[svn:parrot] r36203 - trunk/t/native_pbc

rurban at svn.parrot.org rurban at svn.parrot.org
Sat Jan 31 16:10:36 UTC 2009


Author: rurban
Date: Sat Jan 31 16:10:35 2009
New Revision: 36203
URL: https://trac.parrot.org/parrot/changeset/36203

Log:
Add the "PPC double float 32 bit BE opcode_t" test as 2nd. r36202.
This was the third test before.

Modified:
   trunk/t/native_pbc/number.t

Modified: trunk/t/native_pbc/number.t
==============================================================================
--- trunk/t/native_pbc/number.t	Sat Jan 31 16:02:00 2009	(r36202)
+++ trunk/t/native_pbc/number.t	Sat Jan 31 16:10:35 2009	(r36203)
@@ -8,7 +8,7 @@
 use Test::More;
 use Parrot::Config;
 
-use Parrot::Test tests => 1;
+use Parrot::Test tests => 2;
 
 =head1 NAME
 
@@ -86,18 +86,26 @@
 #         dirformat = 1
 # ]
 TODO: {
-    local $TODO = "numval transform fails on big endian (PPC). See TT #254"
+    local $TODO = "endianized numval transform fails. See TT #254"
       if $PConfig{byteorder} eq '4321';
 
 pbc_output_is( undef, $output, "i386 double float 32 bit opcode_t" )
     or diag "May need to regenerate t/native_pbc/number_1.pbc; see test file";
+
+}
+TODO: {
+    local $TODO = "endianized numval transform fails. See TT #254"
+      if $PConfig{byteorder} eq '1234';
+
+pbc_output_is(undef, $output, "PPC double float 32 bit BE opcode_t")
+    or diag "Requires endianized numval transform fixes. See TT #254.";
+
 }
 
 # Formerly there were tests for:
-# pbc_output_is(undef, <<OUTPUT, "i386 long double float 32 bit opcode_t");
-# pbc_output_is(undef, <<OUTPUT, "PPC double float 32 bit BE opcode_t");
-# pbc_output_is(undef, <<OUTPUT, "little-endian 64-bit tru64");
-# pbc_output_is(undef, <<OUTPUT, "big-endian 64-bit irix");
+# pbc_output_is(undef, <<OUTPUT, "i386 long double float 32 bit opcode_t"); #_2
+# pbc_output_is(undef, <<OUTPUT, "little-endian 64-bit tru64");             #_4
+# pbc_output_is(undef, <<OUTPUT, "big-endian 64-bit irix");                 #_5
 
 # Local Variables:
 #   mode: cperl


More information about the parrot-commits mailing list