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
12
Examples/test-suite/perl5/inctest_runme.pl
Normal file
12
Examples/test-suite/perl5/inctest_runme.pl
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
#!/usr/bin/perl
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 3;
|
||||
BEGIN { use_ok('inctest') }
|
||||
require_ok('inctest');
|
||||
|
||||
my $things = inctest::MY_THINGS->new();
|
||||
my $i = 0;
|
||||
$things->{IntegerMember} = $i;
|
||||
my $d = $things->{DoubleMember};
|
||||
ok(1);
|
||||
Loading…
Add table
Add a link
Reference in a new issue