diff options
Diffstat (limited to 'Examples/test-suite/octave/unions_runme.m')
| -rw-r--r-- | Examples/test-suite/octave/unions_runme.m | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/Examples/test-suite/octave/unions_runme.m b/Examples/test-suite/octave/unions_runme.m new file mode 100644 index 0000000..05ac252 --- /dev/null +++ b/Examples/test-suite/octave/unions_runme.m @@ -0,0 +1,49 @@ + +# This is the union runtime testcase. It ensures that values within a +# union embedded within a struct can be set and read correctly. + +unions + +# Create new instances of SmallStruct and BigStruct for later use +small = unions.SmallStruct(); +small.jill = 200; + +big = 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 = unions.EmbeddedUnionTest(); + +# First check the SmallStruct in EmbeddedUnionTest +eut.number = 1; +eut.uni.small = small; +Jill1 = eut.uni.small.jill; +if (Jill1 != 200) + error("Runtime test1 failed. eut.uni.small.jill=%i" , Jill1) +endif + +Num1 = eut.number; +if (Num1 != 1) + error("Runtime test2 failed. eut.number=%i" , Num1) +endif + +# Secondly check the BigStruct in EmbeddedUnionTest +eut.number = 2; +eut.uni.big = big; +Jack1 = eut.uni.big.jack; +if (Jack1 != 300) + error("Runtime test3 failed. eut.uni.big.jack=%i" , Jack1) +endif + +Jill2 = eut.uni.big.smallstruct.jill; +if (Jill2 != 200) + error("Runtime test4 failed. eut.uni.big.smallstruct.jill=%i" , Jill2) +endif + +Num2 = eut.number; +if (Num2 != 2) + error("Runtime test5 failed. eut.number=%i" , Num2) +endif + |