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

[rurban at svn.parrot.org]

Author: rurban
Date: Mon Mar  9 01:33:07 2009
New Revision: 37221
URL: https://trac.parrot.org/parrot/changeset/37221

Log:
[t] update native_pbcs to 3.38. skip the 64bit coredumps

Modified:
   trunk/t/native_pbc/integer.t
   trunk/t/native_pbc/integer_1.pbc
   trunk/t/native_pbc/integer_2.pbc
   trunk/t/native_pbc/integer_4.pbc
   trunk/t/native_pbc/integer_5.pbc
   trunk/t/native_pbc/number.t
   trunk/t/native_pbc/number_1.pbc
   trunk/t/native_pbc/number_2.pbc
   trunk/t/native_pbc/number_4.pbc
   trunk/t/native_pbc/number_5.pbc
   trunk/t/native_pbc/string.t
   trunk/t/native_pbc/string_1.pbc
   trunk/t/native_pbc/string_2.pbc
   trunk/t/native_pbc/string_4.pbc

Modified: trunk/t/native_pbc/integer.t
==============================================================================
--- trunk/t/native_pbc/integer.t	Mon Mar  9 01:25:49 2009	(r37220)
+++ trunk/t/native_pbc/integer.t	Mon Mar  9 01:33:07 2009	(r37221)
@@ -110,10 +110,10 @@
 # special failures: 64bit cannot read 32bit
 if ($PConfig{ptrsize} == 8) {
     my $todo_msg = "TT #254 64bit cannot read 32bit";
-    $todo->{1} = $todo_msg;
-    $todo->{2} = $todo_msg;
-    $todo->{3} = $todo_msg;
-    $todo->{8} = $todo_msg;
+    $skip->{1} = $todo_msg;
+    $skip->{2} = $todo_msg;
+    $skip->{3} = $todo_msg;
+    $skip->{8} = $todo_msg;
 }
 
 # expected result

Modified: trunk/t/native_pbc/integer_1.pbc
==============================================================================
Binary file (source and/or target). No diff available.

Modified: trunk/t/native_pbc/integer_2.pbc
==============================================================================
Binary file (source and/or target). No diff available.

Modified: trunk/t/native_pbc/integer_4.pbc
==============================================================================
Binary file (source and/or target). No diff available.

Modified: trunk/t/native_pbc/integer_5.pbc
==============================================================================
Binary file (source and/or target). No diff available.

Modified: trunk/t/native_pbc/number.t
==============================================================================
--- trunk/t/native_pbc/number.t	Mon Mar  9 01:25:49 2009	(r37220)
+++ trunk/t/native_pbc/number.t	Mon Mar  9 01:33:07 2009	(r37221)
@@ -60,9 +60,9 @@
 # 1: tested ok, 0: fails (skip), ?: not yet tested (todo)
 my $testmatrix = <<EOF;
        8_le 12_le 16_le 8_be 16_be
-8_le     1     1    0     1     ?
-12_le    1     1    0     0     ?
-16_le    1     1    1     ?     ?
+8_le     1     1    1     1     ?
+12_le    1     1    ?     0     ?
+16_le    1     0    1     ?     ?
 8_be     1     1    ?     1     ?
 16_be    1     1    1     ?     1
 EOF
@@ -151,10 +151,10 @@
 # special failures: 64bit cannot read 32bit
 if ($PConfig{ptrsize} == 8) {
     my $todo_msg = "TT #254 64bit cannot read 32bit";
-    $todo->{1} = $todo_msg;
-    $todo->{2} = $todo_msg;
-    $todo->{3} = $todo_msg;
-    $todo->{8} = $todo_msg;
+    $skip->{1} = $todo_msg;
+    $skip->{2} = $todo_msg;
+    $skip->{3} = $todo_msg;
+    $skip->{8} = $todo_msg;
 }
 
 my $output = << 'END_OUTPUT';

Modified: trunk/t/native_pbc/number_1.pbc
==============================================================================
Binary file (source and/or target). No diff available.

Modified: trunk/t/native_pbc/number_2.pbc
==============================================================================
Binary file (source and/or target). No diff available.

Modified: trunk/t/native_pbc/number_4.pbc
==============================================================================
Binary file (source and/or target). No diff available.

Modified: trunk/t/native_pbc/number_5.pbc
==============================================================================
Binary file (source and/or target). No diff available.

Modified: trunk/t/native_pbc/string.t
==============================================================================
--- trunk/t/native_pbc/string.t	Mon Mar  9 01:25:49 2009	(r37220)
+++ trunk/t/native_pbc/string.t	Mon Mar  9 01:33:07 2009	(r37221)
@@ -77,10 +77,9 @@
 # special failures: 64bit cannot read 32bit
 if ($PConfig{ptrsize} == 8) {
     my $todo_msg = "TT #254 64bit cannot read 32bit";
-    $todo->{1} = $todo_msg;
-    $todo->{2} = $todo_msg;
-    $todo->{3} = $todo_msg;
-    $todo->{8} = $todo_msg;
+    $skip->{1} = $todo_msg;
+    $skip->{3} = $todo_msg;
+    $skip->{8} = $todo_msg;
 }
 
 my $output = << 'END_OUTPUT';

Modified: trunk/t/native_pbc/string_1.pbc
==============================================================================
Binary file (source and/or target). No diff available.

Modified: trunk/t/native_pbc/string_2.pbc
==============================================================================
Binary file (source and/or target). No diff available.

Modified: trunk/t/native_pbc/string_4.pbc
==============================================================================
Binary file (source and/or target). No diff available.