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

Merge remote branch 'upstream/master' into perl5-directors-minimal

Browse source
This commit is contained in:
Robert Stone 2013-11-16 12:06:34 -08:00
commit bb6ab0318c
2 changed files with 17 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Examples/test-suite/perl5/li_typemaps_runme.pl
View file

@ -41,8 +41,8 @@ batch('schar', -0x80, 0, 1, 12, 0x7f);
use Math::BigInt qw();
# the pack dance is to get plain old NVs out of the
# Math::BigInt objects.
my $inf = unpack 'd', pack 'd', Math::BigInt->binf();
my $nan = unpack 'd', pack 'd', Math::BigInt->bnan();
my $inf = unpack 'd', pack 'd', Math::BigInt->new('Inf');
my $nan = unpack 'd', pack 'd', Math::BigInt->new('NaN');
batch('float',
-(2 - 2 ** -23) * 2 ** 127,
-1, -2 ** -149, 0, 2 ** -149, 1,
@ -63,12 +63,16 @@ batch('schar', -0x80, 0, 1, 12, 0x7f);
batch('longlong', -1, 0, 1, 12);
batch('ulonglong', 0, 1, 12);
SKIP: {
my $a = "8000000000000000";
my $b = "7fffffffffffffff";
my $c = "ffffffffffffffff";
use Math::BigInt qw();
skip "not a 64bit Perl", 18 unless eval { pack 'q', 1 };
batch('longlong', -hex($a), hex($b));
batch('ulonglong', hex($c));
my $a = unpack 'q', pack 'q',
Math::BigInt->new('-9223372036854775808');
my $b = unpack 'q', pack 'q',
Math::BigInt->new('9223372036854775807');
my $c = unpack 'Q', pack 'Q',
Math::BigInt->new('18446744073709551615');
batch('longlong', $a, $b);
batch('ulonglong', $c);
}
my($foo, $int) = li_typemaps::out_foo(10);

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)