jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed run test to work with change in static member wrapping.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5367 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2003-11-23 00:29:10 +00:00
commit b2ae153a34
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Examples/perl5/import/runme.pl
View file

@ -77,7 +77,7 @@ print "\nTesting some dynamic casts\n";
$x = $d->toBase(); $x = $d->toBase();
print " Spam -> Base -> Foo : "; print " Spam -> Base -> Foo : ";
$y = foo::Foo_fromBase($x); $y = foo::Foo::fromBase($x);
if ($y) { if ($y) {
print "bad swig\n"; print "bad swig\n";
} else { } else {
@ -85,7 +85,7 @@ if ($y) {
} }
print " Spam -> Base -> Bar : "; print " Spam -> Base -> Bar : ";
$y = bar::Bar_fromBase($x); $y = bar::Bar::fromBase($x);
if ($y) { if ($y) {
print "good swig\n"; print "good swig\n";
} else { } else {
@ -93,7 +93,7 @@ if ($y) {
} }
print " Spam -> Base -> Spam : "; print " Spam -> Base -> Spam : ";
$y = spam::Spam_fromBase($x); $y = spam::Spam::fromBase($x);
if ($y) { if ($y) {
print "good swig\n"; print "good swig\n";
} else { } else {
@ -102,7 +102,7 @@ if ($y) {
print " Foo -> Spam : "; print " Foo -> Spam : ";
#print $b; #print $b;
$y = spam::Spam_fromBase($b); $y = spam::Spam::fromBase($b);
print $y; print $y;
if ($y) { if ($y) {
print "bad swig\n"; print "bad swig\n";