3 use Test::More tests => 4;
4 BEGIN { use_ok('li_cdata_carrays') }
5 require_ok('li_cdata_carrays');
7 my $ia = li_cdata_carrays::intArray->new(5);
9 $ia->setitem($_, $_**2);
12 my $x = pack q{I5}, map $_**2, (0..4);
13 my $y = li_cdata_carrays::cdata_int($ia->cast, 5);
14 is($x, $y, "carrays");