BEGIN { 
	use LedgerSMB;
	use Test::More;
	use LedgerSMB::Template;
	use LedgerSMB::DBTest;
}

our $api_test_cases = {
};

if (defined $ENV{LSMB_TEST_DB}){
	if (defined $ENV{LSMB_NEW_DB}){
		$ENV{PGDATABASE} = $ENV{LSMB_NEW_DB};
	}
	if (!defined $ENV{PGDATABASE}){
		die "Oops...  LSMB_TEST_DB set but no db selected!";
	}
	plan 'no_plan';
} else {
	plan skip_all => 'Skipping, LSMB_TEST_DB environment variable not set.';
}

do 't/data/62-request-data'; # Import test case hashes

for (qw(	drafts.pl     login.pl      payment.pl      
		report.pl    employee.pl   menu.pl       vendor.pl
		customer.pl  inventory.pl  vouchers.pl)
    ){
	ok(eval { require "scripts/$_" }, "Importing $_");
	if ($@){
		print STDERR "Error:  $@\n";
	}
} # Import new code namespaces

my $dbh = LedgerSMB::DBTest->connect("dbi:Pg:dbname=$ENV{PGDATABASE}", undef, undef);

for my $test (@$test_request_data){
	if (lc $test->{_codebase} eq 'old'){
		next; # skip old codebase tests for now
		old_code_test::_load_script($test->{module});
		my $qtring = "$test->{module}?";
		for $key (keys(%$test)){
			if ($key !~ /^_/){
				$qstring .= qq|$key=$test->{"$key"}&|;
			}	
		}
		$qstring =~ s/&$//;
		$old_code_test::form = Form->new($qstring);
		for (keys (%$test)){
			$form->{$_} = $test->{$_};
		}
		is('old_code_test'->can($test->{action}), 0,
			"$test->{_test_id}: Action Successful");
	} else {
		my $request = LedgerSMB->new();
		$request->merge($test);
		my $script = $test->{module};
		$request->{dbh} = $dbh;
		$script =~ s/\.pl$//;
		is(ref "LedgerSMB::Scripts::$script"->can($request->{action}), 
			'CODE',
			"$test->{_test_id}: Action ($request->{action}) Defined");
		ok("LedgerSMB::Scripts::$script"->can($request->{action})->($request), "$test->{_test_id}: Action Successful");
	}
	for (@{$api_test_cases->{"$test->{_test_id}"}}){
		&$_;
	}
	ok($dbh->rollback, "$test->{_test_id}: rollback");
}

package LedgerSMB::Template;

# Don't render templates.  Just return so we can run tests on data structures.
sub render {
	return 1;
}

package old_code_test;
# Keeps old code isolated in a different namespace, and provides for reasonable 
# reload facilities.
our $form;

sub _load_script {
	do "bin/arapprn.pl";
	do "bin/arap.pl";
	do "bin/io.pl";
	do "bin/$1[0]";
}
/option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/notmuch/commit/?h=master'>root</a>/<a href='/notmuch/commit/tags?h=master'>tags</a>/<a href='/notmuch/commit/tags/d0?h=master'>d0</a>/<a href='/notmuch/commit/tags/d0/4e?h=master'>4e</a>/<a href='/notmuch/commit/tags/d0/4e/2ec0e5d4aa41bd836ea2d3d82db8bae0@mail.adsl.funky-badger.org?h=master'>2ec0e5d4aa41bd836ea2d3d82db8bae0@mail.adsl.funky-badger.org</a>/<a href='/notmuch/commit/tags/d0/4e/2ec0e5d4aa41bd836ea2d3d82db8bae0@mail.adsl.funky-badger.org/unread?h=master'>unread</a></div><div class='content'><div class='cgit-panel'><b>diff options</b><form method='get'><input type='hidden' name='h' value='master'/><table><tr><td colspan='2'/></tr><tr><td class='label'>context:</td><td class='ctrl'><select name='context' onchange='this.form.submit();'><option value='1'>1</option><option value='2'>2</option><option value='3' selected='selected'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option><option value='15'>15</option><option value='20'>20</option><option value='25'>25</option><option value='30'>30</option><option value='35'>35</option><option value='40'>40</option></select></td></tr><tr><td class='label'>space:</td><td class='ctrl'><select name='ignorews' onchange='this.form.submit();'><option value='0' selected='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><table summary='commit info' class='commit-info'>
<tr><th>author</th><td>Jonas Smedegaard &lt;dr@jones.dk&gt;</td><td class='right'>2023-06-27 09:35:08 +0200</td></tr>
<tr><th>committer</th><td>Jonas Smedegaard &lt;dr@jones.dk&gt;</td><td class='right'>2023-06-27 09:35:08 +0200</td></tr>
<tr><th>commit</th><td colspan='2' class='oid'><a href='/notmuch/commit/tags/d0/4e/2ec0e5d4aa41bd836ea2d3d82db8bae0@mail.adsl.funky-badger.org/unread?h=master&amp;id=fd54908da2b05c526dd3bee9b6dcd093214a220d'>fd54908da2b05c526dd3bee9b6dcd093214a220d</a> (<a href='/notmuch/patch/tags/d0/4e/2ec0e5d4aa41bd836ea2d3d82db8bae0@mail.adsl.funky-badger.org/unread?id=fd54908da2b05c526dd3bee9b6dcd093214a220d'>patch</a>)</td></tr>
<tr><th>tree</th><td colspan='2' class='oid'><a href='/notmuch/tree/?h=master'>c69c845069c99d1d01044f6fafda7c08433329c6</a> /<a href='/notmuch/tree/tags/d0/4e/2ec0e5d4aa41bd836ea2d3d82db8bae0@mail.adsl.funky-badger.org/unread?h=master'>tags/d0/4e/2ec0e5d4aa41bd836ea2d3d82db8bae0@mail.adsl.funky-badger.org/unread</a></td></tr>
<tr><th>parent</th><td colspan='2' class='oid'><a href='/notmuch/commit/tags/d0/4e/2ec0e5d4aa41bd836ea2d3d82db8bae0@mail.adsl.funky-badger.org/unread?h=master&amp;id=ba46132213560cf3335d53560d519c0ec0190da2'>ba46132213560cf3335d53560d519c0ec0190da2</a> (<a href='/notmuch/diff/tags/d0/4e/2ec0e5d4aa41bd836ea2d3d82db8bae0@mail.adsl.funky-badger.org/unread?h=master&amp;id2=ba46132213560cf3335d53560d519c0ec0190da2'>diff</a>)</td></tr></table>
<div class='commit-subject'><span class='decoration'><a class='branch-deco' href='/notmuch/log/tags/d0/4e/2ec0e5d4aa41bd836ea2d3d82db8bae0@mail.adsl.funky-badger.org/unread?h=master'>master</a></span></div><div class='commit-msg'></div><div class='diffstat-header'><a href='/notmuch/diff/?h=master'>Diffstat</a> (limited to 'tags/d0/4e/2ec0e5d4aa41bd836ea2d3d82db8bae0@mail.adsl.funky-badger.org/unread')</div><table summary='diffstat' class='diffstat'><tr><td class='mode'>-rw-r--r--</td><td class='add'><a href='/notmuch/diff/tags/d0/4e/2ec0e5d4aa41bd836ea2d3d82db8bae0@mail.adsl.funky-badger.org/unread?h=master'>tags/d0/4e/2ec0e5d4aa41bd836ea2d3d82db8bae0@mail.adsl.funky-badger.org/unread</a></td><td class='right'>0</td><td class='graph'><table summary='file diffstat' width='0%'><tr><td class='add' style='width: -nan%;'/><td class='rem' style='width: -nan%;'/><td class='none' style='width: -nan%;'/></tr></table></td></tr>
</table><div class='diffstat-summary'>1 files changed, 0 insertions, 0 deletions</div><table summary='diff' class='diff'><tr><td>