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:
parent
ef7c0cbbd2
commit
8b713d759d
53 changed files with 2037 additions and 486 deletions
|
|
@ -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");
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue