diff options
Diffstat (limited to 'Examples/test-suite/php5/primitive_ref_runme.php')
-rw-r--r-- | Examples/test-suite/php5/primitive_ref_runme.php | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/Examples/test-suite/php5/primitive_ref_runme.php b/Examples/test-suite/php5/primitive_ref_runme.php deleted file mode 100644 index 263a28074..000000000 --- a/Examples/test-suite/php5/primitive_ref_runme.php +++ /dev/null @@ -1,34 +0,0 @@ -<?php - -require "tests.php"; -require "primitive_ref.php"; - -# A large long long number is too big, so PHP makes treats it as a double, but SWIG opts to return it as a string. -# The conversion to double can lose precision so this isn't an exact comparison. -function long_long_equal($a,$b,$message) { - if (! ($a===$b)) - if (! ((double)$a===$b)) - return check::fail($message . ": '$a'!=='$b'"); - return TRUE; -} - - -check::equal(ref_over(3), 3, "ref_over failed"); - -check::equal(ref_int(3), 3, "ref_int failed"); -check::equal(ref_uint(3), 3, "ref_uint failed"); -check::equal(ref_short(3), 3, "ref_short failed"); -check::equal(ref_ushort(3), 3, "ref_ushort failed"); -check::equal(ref_long(3), 3, "ref_long failed"); -check::equal(ref_ulong(3), 3, "ref_ulong failed"); -check::equal(ref_schar(3), 3, "ref_schar failed"); -check::equal(ref_uchar(3), 3, "ref_uchar failed"); -check::equal(ref_bool(true), true, "ref_bool failed"); -check::equal(ref_float(3.5), 3.5, "ref_float failed"); -check::equal(ref_double(3.5), 3.5, "ref_double failed"); -check::equal(ref_char('x'), 'x', "ref_char failed"); -long_long_equal(ref_longlong(0x123456789ABCDEF0), 0x123456789ABCDEF0, "ref_longlong failed"); -long_long_equal(ref_ulonglong(0xF23456789ABCDEF0), 0xF23456789ABCDEF0, "ref_ulonglong failed"); - -check::done(); -?> |