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

rurban at svn.parrot.org rurban at svn.parrot.org
Sat Jan 31 19:10:07 UTC 2009


Author: rurban
Date: Sat Jan 31 19:10:06 2009
New Revision: 36211
URL: https://trac.parrot.org/parrot/changeset/36211

Log:
[test] native_pbc: remove todo's for new darwin/ppc pbc's. 
- added with r36209.
- Add missing headers for ppc and x86_64

Modified:
   trunk/t/native_pbc/integer.t
   trunk/t/native_pbc/number.t

Modified: trunk/t/native_pbc/integer.t
==============================================================================
--- trunk/t/native_pbc/integer.t	Sat Jan 31 19:09:57 2009	(r36210)
+++ trunk/t/native_pbc/integer.t	Sat Jan 31 19:10:06 2009	(r36211)
@@ -56,10 +56,28 @@
 # ]
 pbc_output_is( undef, '270544960', "i386 32 bit opcode_t, 32 bit intval" )
     or diag "May need to regenerate t/native_pbc/integer_1.pbc; read test file";
-TODO: {
-local $TODO = "darwin/PPC integer_2.pbc missing";
-pbc_output_is(undef, '270544960', "PPC BE 32 bit opcode_t, 32 bit intval");
-}
+
+# HEADER => [
+#         wordsize  = 4   (interpreter's wordsize/INTVAL = 4/4)
+#         byteorder = 1   (interpreter's byteorder       = 1)
+#         floattype = 0   (interpreter's NUMVAL_SIZE     = 8)
+#         parrot-version 0.9.0, bytecode-version 3.34
+#         UUID type = 0, UUID size = 0
+#         no endianize, no opcode, no numval transform
+#         dirformat = 1
+# ]
+pbc_output_is(undef, '270544960', "PPC BE 32 bit opcode_t, 32 bit intval")
+    or diag "May need to regenerate t/native_pbc/integer_2.pbc; read test file";
+
+# HEADER => [
+#         wordsize  = 8   (interpreter's wordsize/INTVAL = 8/8)
+#         byteorder = 0   (interpreter's byteorder       = 0)
+#         floattype = 0   (interpreter's NUMVAL_SIZE     = 8)
+#         parrot-version 0.9.0, bytecode-version 3.34
+#         UUID type = 0, UUID size = 0
+#         no endianize, no opcode, no numval transform
+#         dirformat = 1
+# ]
 pbc_output_is( undef, '270544960', "x86_64 double float 64 bit opcode_t" )
     or diag "May need to regenerate t/native_pbc/integer_3.pbc; read test file";
 

Modified: trunk/t/native_pbc/number.t
==============================================================================
--- trunk/t/native_pbc/number.t	Sat Jan 31 19:09:57 2009	(r36210)
+++ trunk/t/native_pbc/number.t	Sat Jan 31 19:10:06 2009	(r36211)
@@ -88,12 +88,27 @@
 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 = "wrong number_2.pbc based on number_2.pasm. needs to be regenerated";
+# HEADER => [
+#         wordsize  = 4   (interpreter's wordsize/INTVAL = 4/4)
+#         byteorder = 1   (interpreter's byteorder       = 1)
+#         floattype = 0   (interpreter's NUMVAL_SIZE     = 8)
+#         parrot-version 0.9.0, bytecode-version 3.34
+#         UUID type = 0, UUID size = 0
+#         no endianize, no opcode, no numval transform
+#         dirformat = 1
+# ]
 pbc_output_is(undef, $output, "PPC double float 32 bit BE opcode_t")
     or diag "May need to regenerate t/native_pbc/number_2.pbc; see test file";
-}
 
+# HEADER => [
+#         wordsize  = 8   (interpreter's wordsize/INTVAL = 8/8)
+#         byteorder = 0   (interpreter's byteorder       = 0)
+#         floattype = 0   (interpreter's NUMVAL_SIZE     = 8)
+#         parrot-version 0.9.0, bytecode-version 3.34
+#         UUID type = 0, UUID size = 0
+#         no endianize, no opcode, no numval transform
+#         dirformat = 1
+# ]
 pbc_output_is(undef, $output, "x86_64 double float 64 bit opcode_t")
     or diag "May need to regenerate t/native_pbc/number_3.pbc; see test file";
 


More information about the parrot-commits mailing list