/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
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- # 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";
- }