#!/usr/bin/perl -w

package main;
use strict;

use Test::More tests => 6;
use constant DEBUG => 0;

# force the output to return for testing
$ENV{CGI_APP_RETURN_ONLY} = 1;

# make explicit the query string
$ENV{REQUEST_METHOD} = 'GET';

BEGIN {
  use_ok('CGI::Application');
  use_ok('CGI');
  use_ok('CGI::FormBuilder');
  use_ok('Handout');
  use_ok('File::Slurp');
}

{
        my $param = shift || "";
        my $redo = ( $param =~ /-r/ ) || 0;

	my $wa = Handout->new( QUERY => CGI->new( { rm => 'select_handout',
				_submit => 'Select Topics',
				 } ) );

        my $source = "";
        my @lines  = ();
        my @items  = ();
	my $okay   = 0;
      
	# registion confirmed output: dw from cut and paste
        $ENV{QUERY_STRING}   = '_submitted_select_handout=1&_sessionid=&handout_name=arisal_of_the_clear&rm=select_handout&_submit=Select+Topics';
        print "QS: $ENV{QUERY_STRING}\n" if DEBUG; 
        $source = $0;				# program name
        $source =~ s/cgi$/out/;
        $okay = run( $source, $wa, \@lines, \@items );
        my $name = $source;
        $name =~ s/\.out$//;
        $name =~ s/^t\///;
        $name =~ s/_/ /g;
	ok($okay, "Test " . $name );

# run_command($command,$host,$init_timeout,$timeout);
    sub run {
   	my ($source, $ca, $lines, $items) = @_;

        my $target = $source;
        $target =~ s/out$/run/;
	unlink $target;

	# create target output 
        @$lines = $ca->run();
	# replace any changeable data here like time/date for DATE
#        $lines->[0] =~ s/received ... ...  \d+ \d+:\d+:\d+ \d+\./received DATE./;
	# read and write to have lines of data
	File::Slurp::write_file($target, @$lines);
	@$lines = File::Slurp::read_file($target);

	# Re-create source only if told or it is not there
	if ( ! -e $source || $redo ) {
	    @$items = $ca->run();
	    # replace any changeable data here like time/date for DATE
#	    $items->[0] =~ s/received ... ...  \d+ \d+:\d+:\d+ \d+\./received DATE./;
	    File::Slurp::write_file($source, @$items);
	    @$items = File::Slurp::read_file($source);
	} else {
	    @$items = File::Slurp::read_file($source);
	}

	# compare sources
        my $okay = eq_array($lines,$items);
	if ( $okay ) {
	    unlink $target;
	} else {
	    diag("Source differed, see $target");
        }
	return $okay;
    }
}

__END__