88c0b425e2
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6302 626c5289-ae23-0410-ae9c-e8d60b6d4f22
49 lines
1.3 KiB
Perl
49 lines
1.3 KiB
Perl
|
|
# This is the union runtime testcase. It ensures that values within a
|
|
# union embedded within a struct can be set and read correctly.
|
|
|
|
use unions;
|
|
|
|
# Create new instances of SmallStruct and BigStruct for later use
|
|
$small = new unions::SmallStruct();
|
|
$small->{jill} = 200;
|
|
|
|
$big = new unions::BigStruct();
|
|
$big->{smallstruct} = $small;
|
|
$big->{jack} = 300;
|
|
|
|
# Use SmallStruct then BigStruct to setup EmbeddedUnionTest.
|
|
# Ensure values in EmbeddedUnionTest are set correctly for each.
|
|
$eut = new unions::EmbeddedUnionTest();
|
|
|
|
# First check the SmallStruct in EmbeddedUnionTest
|
|
$eut->{number} = 1;
|
|
$eut->{uni}->{small} = $small;
|
|
$Jill1 = $eut->{uni}->{small}->{jill};
|
|
if ($Jill1 != 200) {
|
|
die "Runtime test1 failed. eut.uni.small.jill=" , $Jill1, "\n";
|
|
}
|
|
|
|
$Num1 = $eut->{number};
|
|
if ($Num1 != 1) {
|
|
die "Runtime test2 failed. eut.number=" , $Num1, "\n";
|
|
}
|
|
|
|
# Secondly check the BigStruct in EmbeddedUnionTest
|
|
$eut->{number} = 2;
|
|
$eut->{uni}->{big} = $big;
|
|
$Jack1 = $eut->{uni}->{big}->{jack};
|
|
if ($Jack1 != 300) {
|
|
die "Runtime test3 failed. eut.uni.big.jack=" , $Jack1, "\n";
|
|
}
|
|
|
|
$Jill2 = $eut->{uni}->{big}->{smallstruct}->{jill};
|
|
if ($Jill2 != 200) {
|
|
die "Runtime test4 failed. eut.uni.big.smallstruct.jill=" , $Jill2, "\n";
|
|
}
|
|
|
|
$Num2 = $eut->{number};
|
|
if ($Num2 != 2) {
|
|
die "Runtime test5 failed. eut.number=" , $Num2, "\n";
|
|
}
|
|
|