Examples/test-suite/perl5/import_nomodule_runme.pl

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 4;
   4 BEGIN { use_ok('import_nomodule') }
   5 require_ok('import_nomodule');
   6
   7 my $f = import_nomodule::create_Foo();
   8 import_nomodule::test1($f,42);
   9 ok(1, "basecase");
  10
  11 my $b = new import_nomodule::Bar();
  12 import_nomodule::test1($b,37);
  13 ok(1, "testcase");