Author: coke
Date: Wed Apr 25 10:19:13 2007
New Revision: 18332
Modified:
trunk/ (props changed)
trunk/t/op/trans.t
Log:
[t] break out a test so we can todo it by platform.
Modified: trunk/t/op/trans.t
==============================================================================
--- trunk/t/op/trans.t (original)
+++ trunk/t/op/trans.t Wed Apr 25 10:19:13 2007
@@ -6,7 +6,7 @@
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 21;
+use Parrot::Test tests => 22;
use Math::Trig qw( tan sec atan asin acos asec cosh sinh tanh sech );
=head1 NAME
@@ -398,12 +398,6 @@
.fp_eq (N4, 0.000000, EQ16)
print "not "
EQ16: print "ok 16\\n"
-
- atan N4, -0.0, -0.0
- .fp_eq (N4, -3.1415926, EQ17)
- print "not "
- print N4
-EQ17: print "ok 17\\n"
end
CODE
ok 1
@@ -422,7 +416,18 @@
ok 14
ok 15
ok 16
-ok 17
+OUTPUT
+
+pasm_output_is( <<"CODE", <<'OUTPUT', 'atan, part 2' );
[EMAIL PROTECTED] $fp_equality_macro ]}
+ atan N4, -0.0, -0.0
+ .fp_eq (N4, -3.1415926, EQ1)
+ print "not "
+ print N4
+EQ1: print "ok 1\\n"
+ end
+CODE
+ok 1
OUTPUT
pasm_output_is( <<"CODE", <<OUTPUT, "log2" );
