[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