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

19
Examples/test-suite/perl5/li_cdata_carrays_runme.pl
View file

@ -1,11 +1,14 @@
use li_cdata_carrays;
use strict;
use warnings;
use Test::More tests => 4;
BEGIN { use_ok('li_cdata_carrays') }
require_ok('li_cdata_carrays');
$a = li_cdata_carrays::intArray->new(5);
my $ia = li_cdata_carrays::intArray->new(5);
for (0..4) {
$a->setitem($_, $_**2);
}
$x = pack q{I5}, map $_**2, (0..4);
$y = li_cdata_carrays::cdata_int($a->cast, 5);
if ( $x ne $y ) {
die "$x vs $y";
$ia->setitem($_, $_**2);
}
ok(1, "setitems");
my $x = pack q{I5}, map $_**2, (0..4);
my $y = li_cdata_carrays::cdata_int($ia->cast, 5);
is($x, $y, "carrays");