/tags/rel-1-3-25/SWIG/Examples/test-suite/perl5/unions_runme.pl
# · Perl · 49 lines · 31 code · 11 blank · 7 comment · 10 complexity · 718626017462267612a28e792004ff90 MD5 · raw file
- # 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";
- }