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

Duplicate tests that are run twice as both C and C++ tests to fix parallel make: li_carrays

Browse source
This commit is contained in:
William S Fulton 2016-02-21 14:47:25 +00:00
commit 9600c95234
11 changed files with 320 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

72
Examples/test-suite/perl5/li_carrays_cpp_runme.pl Normal file
View file

@ -0,0 +1,72 @@
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 34;
BEGIN { use_ok('li_carrays_cpp') }
require_ok('li_carrays_cpp');
# array_class
{
my $length = 5;
my $xyArray = new li_carrays_cpp::XYArray($length);
for (my $i=0; $i<$length; $i++) {
my $xy = $xyArray->getitem($i);
$xy->{x} = $i*10;
$xy->{y} = $i*100;
$xyArray->setitem($i, $xy);
}
for (my $i=0; $i<$length; $i++) {
is($xyArray->getitem($i)->{x}, $i*10);
is($xyArray->getitem($i)->{y}, $i*100);
}
}
{
# global array variable
my $length = 3;
my $xyArrayPointer = $li_carrays_cpp::globalXYArray;
my $xyArray = li_carrays_cpp::XYArray::frompointer($xyArrayPointer);
for (my $i=0; $i<$length; $i++) {
my $xy = $xyArray->getitem($i);
$xy->{x} = $i*10;
$xy->{y} = $i*100;
$xyArray->setitem($i, $xy);
}
for (my $i=0; $i<$length; $i++) {
is($xyArray->getitem($i)->{x}, $i*10);
is($xyArray->getitem($i)->{y}, $i*100);
}
}
# array_functions
{
my $length = 5;
my $abArray = li_carrays_cpp::new_ABArray($length);
for (my $i=0; $i<$length; $i++) {
my $ab = li_carrays_cpp::ABArray_getitem($abArray, $i);
$ab->{a} = $i*10;
$ab->{b} = $i*100;
li_carrays_cpp::ABArray_setitem($abArray, $i, $ab);
}
for (my $i=0; $i<$length; $i++) {
is(li_carrays_cpp::ABArray_getitem($abArray, $i)->{a}, $i*10);
is(li_carrays_cpp::ABArray_getitem($abArray, $i)->{b}, $i*100);
}
li_carrays_cpp::delete_ABArray($abArray);
}
{
# global array variable
my $length = 3;
my $abArray = $li_carrays_cpp::globalABArray;
for (my $i=0; $i<$length; $i++) {
my $ab = li_carrays_cpp::ABArray_getitem($abArray, $i);
$ab->{a} = $i*10;
$ab->{b} = $i*100;
li_carrays_cpp::ABArray_setitem($abArray, $i, $ab);
}
for (my $i=0; $i<$length; $i++) {
is(li_carrays_cpp::ABArray_getitem($abArray, $i)->{a}, $i*10);
is(li_carrays_cpp::ABArray_getitem($abArray, $i)->{b}, $i*100);
}
}