rename package testcase to packageoption as package is a Java keyword
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10433 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
9128626a71
commit
0df0a87981
7 changed files with 9 additions and 9 deletions
24
Examples/test-suite/perl5/packageoption_runme.pl
Normal file
24
Examples/test-suite/perl5/packageoption_runme.pl
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
#!/usr/bin/perl -w
|
||||
use strict;
|
||||
use Test::More tests => 4;
|
||||
|
||||
BEGIN { use_ok('packageoption_a'); }
|
||||
BEGIN { use_ok('packageoption_b'); }
|
||||
|
||||
# Workaround for
|
||||
# ok( not (expression) , "test description" );
|
||||
# does not working in older versions of Perl, eg 5.004_04
|
||||
sub ok_not ($;$) {
|
||||
my($test, $name) = @_;
|
||||
$test = not $test;
|
||||
ok($test, $name);
|
||||
}
|
||||
|
||||
my $a = C::A->new();
|
||||
|
||||
isa_ok($a, 'C::A');
|
||||
|
||||
my $b = C::B->new();
|
||||
|
||||
isa_ok($b, 'C::B');
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue