develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35835 - trunk/t/op

From:
chromatic
Date:
January 20, 2009 10:55
Subject:
[svn:parrot] r35835 - trunk/t/op
Message ID:
20090120185537.D7B44CB9AE@x12.develooper.com
Author: chromatic
Date: Tue Jan 20 10:55:37 2009
New Revision: 35835

Modified:
   trunk/t/op/trans.t

Log:
[t] Made the weird atan JIT NAN test a TODO test for the JIT core (TT #201).

Modified: trunk/t/op/trans.t
==============================================================================
--- trunk/t/op/trans.t	(original)
+++ trunk/t/op/trans.t	Tue Jan 20 10:55:37 2009
@@ -265,7 +265,10 @@
 ok 2
 OUTPUT
 
-pasm_output_is( <<"CODE", <<OUTPUT, "atan2" );
+my $runcore = $ENV{TEST_PROG_ARGS} || '';
+my @todo    = ( $runcore =~ /j/ ? ( todo => 'broken under JIT TT #201' ) : () );
+
+pasm_output_is( <<"CODE", <<OUTPUT, 'atan2', @todo );
         .include 'include/fp_equality.pasm'
         set N0, 0.0
         set I0, 0



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About