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

fix "long long" tests for perl v5.6

Browse source
This commit is contained in:
Robert Stone 2013-11-14 11:19:11 -08:00
commit 81ce0a723e
2 changed files with 17 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Examples/test-suite/perl5/reference_global_vars_runme.pl
View file

@ -53,12 +53,13 @@ $cvar->{var_unsigned_long} = createref_unsigned_long(10);
is(value_unsigned_long($cvar->{var_unsigned_long}), 10);
SKIP: {
my $a = "6FFFFFFFFFFFFFF8";
use Math::BigInt qw();
skip "64 bit int support", 1 unless eval { pack 'q', 1 };
# using hex() here instead of a literal because non 64bit Perls will
# be noisy about big constants.
$cvar->{var_long_long} = createref_long_long(hex $a);
is(value_long_long($cvar->{var_long_long}), hex $a);
# the pack dance is to get plain old IVs out of the
# Math::BigInt objects.
my $a = unpack 'q', pack 'q', Math::BigInt->new('8070450532247928824');
$cvar->{var_long_long} = createref_long_long($a);
is(value_long_long($cvar->{var_long_long}), $a);
}
#ull = abs(0xFFFFFFF2FFFFFFF0)