cvsuser 03/10/18 15:49:18
Modified: . MANIFEST
Added: t/pmc float.t
Log:
Tests for Float PMC
Revision Changes Path
1.1 parrot/t/pmc/float.t
Index: float.t
===================================================================
#! perl -w
use Parrot::Test tests => 9;
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
save N1
save N2
set N0, .J
set N1, .K
sub N2, N1,N0
abs N2, N2
gt N2, 0.000001, .$FPEQNOK
restore N2
restore N1
restore N0
branch .L
.local $FPEQNOK:
restore N2
restore N1
restore N0
.endm
.macro fp_ne( J,K,L)
save N0
save N1
save N2
set N0, .J
set N1, .K
sub N2, N1,N0
abs N2, N2
lt N2, 0.000001, .$FPNENOK
restore N2
restore N1
restore N0
branch .L
.local $FPNENOK:
restore N2
restore N1
restore N0
.endm
ENDOFMACRO
output_is(<<"CODE", <<OUTPUT, "basic assignment");
@{[ $fp_equality_macro ]}
new P0, .Float
set P0, 0.001
.fp_eq( P0, 0.001, EQ1)
print "not "
EQ1: print "ok 1\\n"
set P0, 1000
.fp_eq( P0, 1000.0, EQ2)
print "not "
EQ2: print "ok 2\\n"
set P0, "12.5"
.fp_eq( P0, 12.5, EQ3)
print "not "
EQ3: print "ok 3\\n"
set P0, "Twelve point five"
.fp_eq( P0, 0.0, EQ4)
print "not "
EQ4: print "ok 4\\n"
set P0, 123.45
set I0, P0
eq I0, 123, EQ5
print "not "
EQ5: print "ok 5\\n"
set P0, 123.45
set N0, P0
.fp_eq(N0, 123.45, EQ6)
print "not "
EQ6: print "ok 6\\n"
set P0, 123.45
set S0, P0
eq S0, "123.45", EQ7
print "not "
EQ7: print "ok 7\\n"
end
CODE
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
OUTPUT
output_is(<<"CODE", <<OUTPUT, "add number to self");
@{[ $fp_equality_macro ]}
new P0, .Float
set P0, 0.001
add P0, P0, P0
.fp_eq( P0, 0.002, EQ1)
print P0
print "not "
EQ1: print "ok 1\\n"
end
CODE
ok 1
OUTPUT
output_is(<<"CODE", <<OUTPUT, "sub number from self");
@{[ $fp_equality_macro ]}
new P0, .Float
set P0, -1000.2
sub P0, P0, P0
.fp_eq( P0, 0.0, EQ1)
print P0
print "not "
EQ1: print "ok 1\\n"
end
CODE
ok 1
OUTPUT
output_is(<<"CODE", <<OUTPUT, "multiply number by self");
@{[ $fp_equality_macro ]}
new P0, .Float
set P0, 123.4
mul P0, P0, P0
.fp_eq( P0, 15227.56, EQ1)
print P0
print "not "
EQ1: print "ok 1\\n"
end
CODE
ok 1
OUTPUT
output_is(<<"CODE", <<OUTPUT, "divide number by self");
@{[ $fp_equality_macro ]}
new P0, .Float
set P0, 1829354.988
div P0, P0, P0
.fp_eq( P0, 1.0, EQ1)
print P0
print "not "
EQ1: print "ok 1\\n"
end
CODE
ok 1
OUTPUT
output_is(<<"CODE", <<OUTPUT, "add number to other");
@{[ $fp_equality_macro ]}
new P0, .PerlNum
new P1, .Float
set P0, 123.123
set P1, 321.321
add P1, P1, P0
.fp_eq( P1, 444.444, EQ1)
print P1
print "not "
EQ1: print "ok 1\\n"
new P0, .PerlNum
new P1, .Float
set P0, 123.123
set P1, 321.321
add P0, P0, P1
.fp_eq( P0, 444.444, EQ2)
print P0
print "not "
EQ2: print "ok 2\\n"
new P2, .Integer
new P3, .Float
set P2, 100
set P3, 12.5
add P2, P2, P3
eq P2, 112, EQ3
print P2
print "not "
EQ3: print "ok 3\\n"
new P2, .Integer
new P3, .Float
set P2, 100
set P3, 12.5
add P3, P3, P2
.fp_eq(P3, 112.5, EQ4)
print P3
print "not "
EQ4: print "ok 4\\n"
end
CODE
ok 1
ok 2
ok 3
ok 4
OUTPUT
output_is(<<"CODE", <<OUTPUT, "subtract number from other");
@{[ $fp_equality_macro ]}
new P0, .PerlNum
new P1, .Float
set P0, 111.222
set P1, 333.444
sub P1, P1, P0
.fp_eq( P1, 222.222, EQ1)
print P1
print "not "
EQ1: print "ok 1\\n"
new P0, .PerlNum
new P1, .Float
set P0, 123.456
set P1, 456.123
sub P0, P0, P1
.fp_eq( P0, -332.667, EQ2)
print P0
print "not "
EQ2: print "ok 2\\n"
new P2, .Integer
new P3, .Float
set P2, 21
set P3, 321.321
sub P3, P3, P2
.fp_eq( P3, 300.321, EQ3)
print P3
print "not "
EQ3: print "ok 3\\n"
new P2, .Integer
new P3, .Float
set P2, 21
set P3, 321.321
sub P2, P2, P3
eq P2, -300, EQ4
print P2
print "not "
EQ4: print "ok 4\\n"
end
CODE
ok 1
ok 2
ok 3
ok 4
OUTPUT
output_is(<<"CODE", <<OUTPUT, "multiply number by other");
@{[ $fp_equality_macro ]}
new P0, .PerlNum
new P1, .Float
set P0, 123.123
set P1, 321.321
mul P1, P1, P0
.fp_eq( P1, 39562.005483, EQ1)
print P1
print "not "
EQ1: print "ok 1\\n"
new P0, .PerlNum
new P1, .Float
set P0, 123.123
set P1, 321.321
mul P0, P0, P1
.fp_eq( P0, 39562.005483, EQ2)
print P0
print "not "
EQ2: print "ok 2\\n"
new P2, .Integer
new P3, .Float
set P2, 5
set P3, 321.321
mul P3, P3, P2
.fp_eq( P3, 1606.605, EQ3)
print P3
print "not "
EQ3: print "ok 3\\n"
new P2, .PerlNum
new P3, .Float
set P2, 5
set P3, 1010.0101
mul P2, P2, P3
eq P2, 5050, EQ4
print P2
print "not "
EQ4: print "ok 4\\n"
end
CODE
ok 1
ok 2
ok 3
ok 4
OUTPUT
output_is(<<"CODE", <<OUTPUT, "divide number by other");
@{[ $fp_equality_macro ]}
new P0, .PerlNum
new P1, .Float
set P0, 123.123
set P1, 246.246
div P1, P1, P0
.fp_eq( P1, 2.0, EQ1)
print P1
print "not "
EQ1: print "ok 1\\n"
new P0, .PerlNum
new P1, .Float
set P0, 123.123
set P1, 246.246
div P0, P0, P1
.fp_eq( P0, 0.5, EQ2)
print P0
print "not "
EQ2: print "ok 2\\n"
new P2, .Integer
new P3, .Float
set P2, 10
set P3, 246.246
div P3, P3, P2
.fp_eq( P3, 24.6246, EQ3)
print P3
print "not "
EQ3: print "ok 3\\n"
new P2, .Integer
new P3, .Float
set P2, 300
set P3, 246.246
div P2, P2, P3
eq P2, 1, EQ4
print P2
print "not "
EQ4: print "ok 4\\n"
end
CODE
ok 1
ok 2
ok 3
ok 4
OUTPUT
1.475 +1 -0 parrot/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /cvs/public/parrot/MANIFEST,v
retrieving revision 1.474
retrieving revision 1.475
diff -u -w -r1.474 -r1.475
--- MANIFEST 18 Oct 2003 01:52:06 -0000 1.474
+++ MANIFEST 18 Oct 2003 22:49:18 -0000 1.475
@@ -2184,6 +2184,7 @@
t/pmc/env.t []
t/pmc/eval.t []
t/pmc/exception.t []
+t/pmc/float.t []
t/pmc/intlist.t []
t/pmc/io.t []
t/pmc/iter.t []
