43 lines
1.2 KiB
Perl
43 lines
1.2 KiB
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Test::More tests => 7;
|
||
|
|
# This is the union runtime testcase. It ensures that values within a
|
||
|
|
# union embedded within a struct can be set and read correctly.
|
||
|
|
|
||
|
|
BEGIN { use_ok('unions') }
|
||
|
|
require_ok('unions');
|
||
|
|
|
||
|
|
# Create new instances of SmallStruct and BigStruct for later use
|
||
|
|
my $small = new unions::SmallStruct();
|
||
|
|
$small->{jill} = 200;
|
||
|
|
|
||
|
|
my $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.
|
||
|
|
my $eut = new unions::EmbeddedUnionTest();
|
||
|
|
|
||
|
|
# First check the SmallStruct in EmbeddedUnionTest
|
||
|
|
$eut->{number} = 1;
|
||
|
|
$eut->{uni}->{small} = $small;
|
||
|
|
my $Jill1 = $eut->{uni}->{small}->{jill};
|
||
|
|
is($Jill1, 200, "eut.uni.small.jill");
|
||
|
|
|
||
|
|
my $Num1 = $eut->{number};
|
||
|
|
is($Num1, 1, "test2 eut.number");
|
||
|
|
|
||
|
|
# Secondly check the BigStruct in EmbeddedUnionTest
|
||
|
|
$eut->{number} = 2;
|
||
|
|
$eut->{uni}->{big} = $big;
|
||
|
|
my $Jack1 = $eut->{uni}->{big}->{jack};
|
||
|
|
is($Jack1, 300, "test3 eut.uni.big.jack");
|
||
|
|
|
||
|
|
my $Jill2 = $eut->{uni}->{big}->{smallstruct}->{jill};
|
||
|
|
is($Jill2, 200, "test4 eut.uni.big.smallstruct.jill");
|
||
|
|
|
||
|
|
my $Num2 = $eut->{number};
|
||
|
|
is($Num2, 2, "test5 eut.number");
|
||
|
|
|