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

[rurban at svn.parrot.org]

Author: rurban
Date: Sun Feb  1 19:14:08 2009
New Revision: 36251
URL: https://trac.parrot.org/parrot/changeset/36251

Log:
native_pbc: mark 32bit tests on 64bit as failing

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	Sun Feb  1 18:04:57 2009	(r36250)
+++ trunk/t/native_pbc/integer.t	Sun Feb  1 19:14:08 2009	(r36251)
@@ -6,6 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
+use Parrot::Config;
 
 use Parrot::Test tests => 3;
 
@@ -41,6 +42,12 @@
 
 should be included for reference.
 
+On test failures please add the output of
+
+  $ ./pdump -h t/native_pbc/number_${N}.pbc
+
+into your report. We need your wordsize/floattype/endianess.
+
 =cut
 
 # execute the file t/native_pbc/integer_1.pbc
@@ -54,6 +61,10 @@
 #         no endianize, no opcode, no numval transform
 #         dirformat = 1
 # ]
+TODO: {
+local $TODO = "Known problem on 64bit with reading 32bit dirs. See TT #254"
+  if $PConfig{ptrsize} == 8;
+
 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";
 
@@ -68,6 +79,7 @@
 # ]
 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)

Modified: trunk/t/native_pbc/number.t
==============================================================================
--- trunk/t/native_pbc/number.t	Sun Feb  1 18:04:57 2009	(r36250)
+++ trunk/t/native_pbc/number.t	Sun Feb  1 19:14:08 2009	(r36251)
@@ -31,10 +31,10 @@
 # if your wordsize/floattype/endianess is not covered here
 # please add it:
 
-$ ./parrot -o n.pbc t/op/number_1.pasm
-$ make pdump
-$ ./pdump -h n.pbc
-$ mv n.pbc t/native_pbc/number_$(N).pbc
+  $ ./parrot -o n.pbc t/op/number_1.pasm
+  $ make pdump
+  $ ./pdump -h n.pbc
+  $ mv n.pbc t/native_pbc/number_$(N).pbc
 
 # then
 # - increase number of tests
@@ -43,6 +43,12 @@
 # - add the file as binary (svn add) and commit it
 # thanks -leo
 
+On test failures please add the output of
+
+  $ ./pdump -h t/native_pbc/number_${N}.pbc
+
+into your report. We need your wordsize/floattype/endianess.
+
 =cut
 
 my $output = << 'END_OUTPUT';
@@ -85,8 +91,12 @@
 #         no endianize, no opcode, no numval transform
 #         dirformat = 1
 # ]
+TODO: {
+local $TODO = "Known problem on 64bit with reading 32bit dirs. See TT #254"
+  if $PConfig{ptrsize} == 8;
+
 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";
+    or diag "May need to regenerate t/native_pbc/number_1.pbc; read test file";
 
 # HEADER => [
 #         wordsize  = 4   (interpreter's wordsize/INTVAL = 4/4)
@@ -98,7 +108,8 @@
 #         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";
+    or diag "May need to regenerate t/native_pbc/number_2.pbc; read test file";
+}
 
 # HEADER => [
 #         wordsize  = 8   (interpreter's wordsize/INTVAL = 8/8)
@@ -110,7 +121,7 @@
 #         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";
+    or diag "May need to regenerate t/native_pbc/number_3.pbc; read test file";
 
 # Formerly there were tests for:
 # pbc_output_is(undef, <<OUTPUT, "i386 long double float 32 bit opcode_t"); #_2