[svn:parrot] r43062 - trunk/t/op
fperrad at svn.parrot.org
fperrad at svn.parrot.org
Tue Dec 15 10:27:11 UTC 2009
Author: fperrad
Date: Tue Dec 15 10:27:11 2009
New Revision: 43062
URL: https://trac.parrot.org/parrot/changeset/43062
Log:
[t] fix the use of PIR todo
Modified:
trunk/t/op/arithmetics.t
Modified: trunk/t/op/arithmetics.t
==============================================================================
--- trunk/t/op/arithmetics.t Tue Dec 15 10:26:19 2009 (r43061)
+++ trunk/t/op/arithmetics.t Tue Dec 15 10:27:11 2009 (r43062)
@@ -59,20 +59,20 @@
set $I0, 1234567890
neg $I0
is( $I0, "-1234567890", 'take_the_negative_of_a_native_integer' )
-
+
set $I0, -1234567890
neg $I0
is( $I0, "1234567890", 'take_the_negative_of_a_native_integer' )
-
+
set $I0, 0
set $I1, 0
neg $I1, $I0
is( $I1, "0", 'take_the_negative_of_a_native_integer' )
-
+
set $I0, 1234567890
neg $I1, $I0
is( $I1, "-1234567890", 'take_the_negative_of_a_native_integer' )
-
+
set $I0, -1234567890
neg $I1, $I0
is( $I1, "1234567890", 'take_the_negative_of_a_native_integer' )
@@ -104,7 +104,7 @@
abs $I1, $I0
is( $I1, "1234567890", 'take_the_absolute_of_a_native_integer' )
.end
-
+
#
# first arg is INTVAL, second arg is INTVAL
#
@@ -117,7 +117,7 @@
add $I0, $I0, $I1
is( $I0, "3877", 'add_native_integer_to_native_integer' )
.end
-
+
.sub subtract_native_integer_from_native_integer
set $I0, 4000
set $I1, -123
@@ -127,7 +127,7 @@
sub $I0, $I0, $I1
is( $I0, "4123", 'subtract_native_integer_from_native_integer' )
.end
-
+
.sub multiply_native_integer_with_native_integer
set $I0, 4000
set $I1, -123
@@ -137,7 +137,7 @@
mul $I0, $I0, $I1
is( $I0, "-492000", 'multiply_native_integer_with_native_integer' )
.end
-
+
.sub divide_native_integer_by_native_integer
set $I0, 4000
set $I1, -123
@@ -147,7 +147,7 @@
div $I0, $I0, $I1
is( $I0, "-32", 'divide_native_integer_by_native_integer' )
.end
-
+
#
# print -0.0 as -0
#
@@ -162,7 +162,8 @@
is( $S0, "-0", '1' )
goto End_test1
Todo_test1:
- todo(1, 'Faulty on this platform')
+ $I0 = $S0 == "-0"
+ todo($I0, 'Faulty on this platform')
End_test1:
set $N0, -0.0
@@ -183,10 +184,11 @@
is( $S0, "-0", '4' )
goto End_test4
Todo_test4:
- todo(1, 'Faulty on this platform')
+ $I0 = $S0 == "-0"
+ todo($I0, 'Faulty on this platform')
End_test4:
.end
-
+
#
# Operations on a single NUMVAL
#
@@ -207,7 +209,7 @@
neg $N1, $N0
is( $N1, "123.456789", 'negate_a_native_number' )
.end
-
+
.sub take_the_absolute_of_a_native_number
set $N0, 0
abs $N0
@@ -245,7 +247,7 @@
abs $N1, $N0
is( $N1, "123.45678901", 'take_the_absolute_of_a_native_number' )
.end
-
+
.sub ceil_of_a_native_number
set $N0, 0
ceil $N0
@@ -371,7 +373,7 @@
is( $N0, "7876.877", 'add_native_integer_to_native_number' )
.end
-
+
.sub subtract_native_integer_from_native_number
set $I0, 4000
set $N0, -123.123
@@ -385,7 +387,7 @@
is( $N0, "-8123.123", 'subtract_native_integer_from_native_number' )
.end
-
+
.sub multiply_native_number_with_native_integer
set $I0, 4000
set $N0, -123.123
@@ -418,7 +420,7 @@
div $N0, 0.01
is( $N0, "100", 'divide_native_number_by_native_integer' )
.end
-
+
#
# FLOATVAL and FLOATVAL tests
#
@@ -431,7 +433,7 @@
add $N0, $N0, $N2
is( $N0, "3877.123", 'add_native_number_to_native_number' )
.end
-
+
.sub subtract_native_number_from_native_number
set $N2, 4000.246
set $N0, -123.123
@@ -442,7 +444,7 @@
is( $N0, "-4123.369", 'subtract_native_number_from_native_number' )
.end
-
+
.sub multiply_native_number_with_native_number
set $N2, 4000.246
set $N0, -123.123
@@ -453,7 +455,7 @@
is( $N0, "-492522.288258", 'multiply_native_number_with_native_number' )
.end
-
+
.sub divide_native_number_by_native_number
set $N2, 4000.246
set $N0, -123.123
@@ -464,7 +466,7 @@
is( $N0, "-0.0307788571002883", 'divide_native_number_by_native_number' )
.end
-
+
.sub lcm_test
set $I0, 10
set $I1, 10
@@ -515,12 +517,12 @@
.sub integer_overflow_with_pow
.include "iglobals.pasm"
- # Check that we aren't 32-bit INTVALs without GMP
+ # Check that we aren't 32-bit INTVALs without GMP
.local pmc interp # a handle to our interpreter object.
interp = getinterp
.local pmc config
config = interp[.IGLOBALS_CONFIG_HASH]
- .local int intvalsize
+ .local int intvalsize
intvalsize = config['intvalsize']
.local int gmp
gmp = config['gmp']
More information about the parrot-commits
mailing list