several testcases for perl

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10403 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Robert Stone 2008-04-30 21:02:46 +00:00
commit 8b713d759d
53 changed files with 2037 additions and 486 deletions

View file

@ -1,7 +1,13 @@
use import_nomodule;
use strict;
use warnings;
use Test::More tests => 4;
BEGIN { use_ok('import_nomodule') }
require_ok('import_nomodule');
$f = import_nomodule::create_Foo();
my $f = import_nomodule::create_Foo();
import_nomodule::test1($f,42);
ok(1, "basecase");
$b = new import_nomodule::Bar();
my $b = new import_nomodule::Bar();
import_nomodule::test1($b,37);
ok(1, "testcase");