jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

several testcases for perl

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10403 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Robert Stone 2008-04-30 21:02:46 +00:00
commit 8b713d759d
53 changed files with 2037 additions and 486 deletions
Download patch file Download diff file Expand all files Collapse all files

43
Examples/test-suite/perl5/unions_runme.pl
View file

@ -1,49 +1,42 @@
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.
use unions;
BEGIN { use_ok('unions') }
require_ok('unions');
# Create new instances of SmallStruct and BigStruct for later use
$small = new unions::SmallStruct();
my $small = new unions::SmallStruct();
$small->{jill} = 200;
$big = new unions::BigStruct();
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.
$eut = new unions::EmbeddedUnionTest();
my $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";
}
my $Jill1 = $eut->{uni}->{small}->{jill};
is($Jill1, 200, "eut.uni.small.jill");
$Num1 = $eut->{number};
if ($Num1 != 1) {
die "Runtime test2 failed. eut.number=" , $Num1, "\n";
}
my $Num1 = $eut->{number};
is($Num1, 1, "test2 eut.number");
# 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";
}
my $Jack1 = $eut->{uni}->{big}->{jack};
is($Jack1, 300, "test3 eut.uni.big.jack");
$Jill2 = $eut->{uni}->{big}->{smallstruct}->{jill};
if ($Jill2 != 200) {
die "Runtime test4 failed. eut.uni.big.smallstruct.jill=" , $Jill2, "\n";
}
my $Jill2 = $eut->{uni}->{big}->{smallstruct}->{jill};
is($Jill2, 200, "test4 eut.uni.big.smallstruct.jill");
$Num2 = $eut->{number};
if ($Num2 != 2) {
die "Runtime test5 failed. eut.number=" , $Num2, "\n";
}
my $Num2 = $eut->{number};
is($Num2, 2, "test5 eut.number");