blob: a011660ec89902a18ed48ae412643dd84ea6c2a3 (
plain)
- 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( admin.pl drafts.pl login.pl payment.pl
- report.pl employee.pl menu.pl vendor.pl
- customer.pl inventory.pl migration.pl recon.pl
- vouchers.pl)){
- do "$_";
- } # Import new code namespaces
- my $dbh = LedgerSMB::DBTest->connect("dbi:Pg:dbname=$ENV{PGDATABASE}", undef, undef);
- print scalar @$test_request_data ." test case scenarios defined";
- for my $test (@$test_request_data){
- if (lc $test->{_codebase} eq 'old'){
- old_code_test::_load_script($test->{module});
- $old_code_test::form = new Form();
- for (keys (%$test)){
- $form->{$_} = $test->{$_};
- }
- ok(eval ("old_code_test::$test->{action}()"),
- "$test->{_test_id}: Action Successful");
- } else {
- my $request = LedgerSMB->new();
- $request->merge($test);
- my $script = $test->{module};
- $script =~ s/\.pl$//;
- ok(eval "LedgerSMB::Scripts::$script::$request->{action}(\$request)");
- }
- 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]";
- }
|