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

modify unsigned long long test to use strings as this is portable across all builds of Perl

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10057 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2007-10-28 16:43:28 +00:00
commit 0d7175fa1c
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Examples/test-suite/perl5/li_std_string_runme.pl
View file

@ -114,8 +114,16 @@ if ($gen1->test(1) ne 2) {
if ($gen1->test("1") ne "11") {
die ("ulonglong");
}
if ($gen1->testl(9234567890121111113) ne 9234567890121111114) {
die ("ulonglong");
if ($gen1->testl(12345) ne 12346) {
die ("ulonglong small number");
}
# Note: 32 bit builds of perl will fail this test as the number is stored internally in scientific notation
# (USE_64_BIT_ALL probably needs defining when building Perl in order to avoid this)
#if ($gen1->testl(9234567890121111113) ne 9234567890121111114) {
# die ("ulonglong big number");
#}
if ($gen1->testl("9234567890121111113") ne "9234567890121111114") {
die ("ulonglong big number");
}