/tags/rel-1-3-29/SWIG/Examples/test-suite/ruby/unions_runme.rb

# This is the union runtime testcase. It ensures that values within a 
# union embedded within a struct can be set and read correctly.

require 'unions'

# Create new instances of SmallStruct and BigStruct for later use
small = Unions::SmallStruct.new()
small.jill = 200

big = Unions::BigStruct.new()
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.new()

# First check the SmallStruct in EmbeddedUnionTest
eut.number = 1
eut.uni.small = small
Jill1 = eut.uni.small.jill
if (Jill1 != 200)
    print "Runtime test1 failed. eut.uni.small.jill=" , Jill1 , "\n"
    exit 1
end

Num1 = eut.number
if (Num1 != 1)
    print "Runtime test2 failed. eut.number=" , Num1 , "\n"
    exit 1
end

# Secondly check the BigStruct in EmbeddedUnionTest
eut.number = 2
eut.uni.big = big
Jack1 = eut.uni.big.jack
if (Jack1 != 300)
    print "Runtime test3 failed. eut.uni.big.jack=" , Jack1 , "\n"
    exit 1
end

Jill2 = eut.uni.big.smallstruct.jill
if (Jill2 != 200)
    print "Runtime test4 failed. eut.uni.big.smallstruct.jill=" , Jill2 , "\n"
    exit 1
end

Num2 = eut.number
if (Num2 != 2)
    print "Runtime test5 failed. eut.number=" , Num2 , "\n"
    exit 1
end