diff options
Diffstat (limited to 'Examples/test-suite/perl5/import_nomodule_runme.pl')
| -rw-r--r-- | Examples/test-suite/perl5/import_nomodule_runme.pl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/Examples/test-suite/perl5/import_nomodule_runme.pl b/Examples/test-suite/perl5/import_nomodule_runme.pl new file mode 100644 index 0000000..f2136c1 --- /dev/null +++ b/Examples/test-suite/perl5/import_nomodule_runme.pl @@ -0,0 +1,13 @@ +use strict; +use warnings; +use Test::More tests => 4; +BEGIN { use_ok('import_nomodule') } +require_ok('import_nomodule'); + +my $f = import_nomodule::create_Foo(); +import_nomodule::test1($f,42); +ok(1, "basecase"); + +my $b = new import_nomodule::Bar(); +import_nomodule::test1($b,37); +ok(1, "testcase"); |
