PageRenderTime 47ms CodeModel.GetById 33ms app.highlight 10ms RepoModel.GetById 1ms app.codeStats 0ms

/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
 1
 2# This is the union runtime testcase. It ensures that values within a 
 3# union embedded within a struct can be set and read correctly.
 4
 5use unions;
 6
 7# Create new instances of SmallStruct and BigStruct for later use
 8$small = new unions::SmallStruct();
 9$small->{jill} = 200;
10
11$big = new unions::BigStruct();
12$big->{smallstruct} = $small;
13$big->{jack} = 300;
14
15# Use SmallStruct then BigStruct to setup EmbeddedUnionTest.
16# Ensure values in EmbeddedUnionTest are set correctly for each.
17$eut = new unions::EmbeddedUnionTest();
18
19# First check the SmallStruct in EmbeddedUnionTest
20$eut->{number} = 1;
21$eut->{uni}->{small} = $small;
22$Jill1 = $eut->{uni}->{small}->{jill};
23if ($Jill1 != 200) {
24    die "Runtime test1 failed. eut.uni.small.jill=" , $Jill1, "\n";
25}
26
27$Num1 = $eut->{number};
28if ($Num1 != 1) {
29    die "Runtime test2 failed. eut.number=" , $Num1, "\n";
30}
31
32# Secondly check the BigStruct in EmbeddedUnionTest
33$eut->{number} = 2;
34$eut->{uni}->{big} = $big;
35$Jack1 = $eut->{uni}->{big}->{jack};
36if ($Jack1 != 300) {
37    die "Runtime test3 failed. eut.uni.big.jack=" , $Jack1, "\n";
38}
39
40$Jill2 = $eut->{uni}->{big}->{smallstruct}->{jill};
41if ($Jill2 != 200) {
42    die "Runtime test4 failed. eut.uni.big.smallstruct.jill=" , $Jill2, "\n";
43}
44
45$Num2 = $eut->{number};
46if ($Num2 != 2) {
47    die "Runtime test5 failed. eut.number=" , $Num2, "\n";
48}
49