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

minor runtime test mods

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6302 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2004-10-04 20:04:22 +00:00
commit 571292260e
3 changed files with 20 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Examples/test-suite/perl5/unions_runme.pl
View file

@ -21,14 +21,12 @@ $eut->{number} = 1;
$eut->{uni}->{small} = $small;
$Jill1 = $eut->{uni}->{small}->{jill};
if ($Jill1 != 200) {
print "Runtime test1 failed. eut.uni.small.jill=" , $Jill1, "\n";
exit 1;
die "Runtime test1 failed. eut.uni.small.jill=" , $Jill1, "\n";
}
$Num1 = $eut->{number};
if ($Num1 != 1) {
print "Runtime test2 failed. eut.number=" , $Num1, "\n";
exit 1;
die "Runtime test2 failed. eut.number=" , $Num1, "\n";
}
# Secondly check the BigStruct in EmbeddedUnionTest
@ -36,19 +34,16 @@ $eut->{number} = 2;
$eut->{uni}->{big} = $big;
$Jack1 = $eut->{uni}->{big}->{jack};
if ($Jack1 != 300) {
print "Runtime test3 failed. eut.uni.big.jack=" , $Jack1, "\n";
exit 1;
die "Runtime test3 failed. eut.uni.big.jack=" , $Jack1, "\n";
}
$Jill2 = $eut->{uni}->{big}->{smallstruct}->{jill};
if ($Jill2 != 200) {
print "Runtime test4 failed. eut.uni.big.smallstruct.jill=" , $Jill2, "\n";
exit 1;
die "Runtime test4 failed. eut.uni.big.smallstruct.jill=" , $Jill2, "\n";
}
$Num2 = $eut->{number};
if ($Num2 != 2) {
print "Runtime test5 failed. eut.number=" , $Num2, "\n";
exit 1;
die "Runtime test5 failed. eut.number=" , $Num2, "\n";
}