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

[rurban at svn.parrot.org]

Author: rurban
Date: Sat Jan 31 17:57:49 2009
New Revision: 36206
URL: https://trac.parrot.org/parrot/changeset/36206

Log:
t/native_pbc/*_3.pbc: 
- Add Whiteknight's "x86_64 double float 64 bit opcode_t" pbc's (as _3)
- darwin/ppc pbc's need to be regenerated (as _2)

Modified:
   trunk/t/native_pbc/integer.t
   trunk/t/native_pbc/integer_3.pbc
   trunk/t/native_pbc/number.t
   trunk/t/native_pbc/number_3.pbc

Modified: trunk/t/native_pbc/integer.t
==============================================================================
--- trunk/t/native_pbc/integer.t	Sat Jan 31 17:40:21 2009	(r36205)
+++ trunk/t/native_pbc/integer.t	Sat Jan 31 17:57:49 2009	(r36206)
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
 
-use Parrot::Test tests => 1;
+use Parrot::Test tests => 3;
 
 =head1 NAME
 
@@ -25,19 +25,19 @@
 
 =begin comment
 
-see t/native_pbc/number.t for additional comments
+See t/native_pbc/number.t for additional comments
 
 Test files on different architectures are generated by:
 
-$ parrot -o i.pbc -a - <<EOF
-> print 0x10203040
-> end
-> EOF
-$ mv i.pbc t/native_pbc/integer_${N}.pbc
+  $ parrot -o i.pbc -a - <<EOF
+  print 0x10203040
+  end
+  EOF
+  $ mv i.pbc t/native_pbc/integer_${N}.pbc
 
 The output of
 
-$ pdump -h i.pbc
+  $ pdump -h i.pbc
 
 should be included for reference.
 
@@ -56,9 +56,14 @@
 # ]
 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");
+}
+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";
 
 # Formerly following tests had been set up:
-# pbc_output_is(undef, '270544960', "PPC BE 32 bit opcode_t, 32 bit intval");
 # pbc_output_is(undef, '270544960', "little-endian 64-bit tru64");
 # pbc_output_is(undef, '270544960', "big-endian 64-bit irix");
 

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

Modified: trunk/t/native_pbc/number.t
==============================================================================
--- trunk/t/native_pbc/number.t	Sat Jan 31 17:40:21 2009	(r36205)
+++ trunk/t/native_pbc/number.t	Sat Jan 31 17:57:49 2009	(r36206)
@@ -8,7 +8,7 @@
 use Test::More;
 use Parrot::Config;
 
-use Parrot::Test tests => 2;
+use Parrot::Test tests => 3;
 
 =head1 NAME
 
@@ -85,23 +85,18 @@
 #         no endianize, no opcode, no numval transform
 #         dirformat = 1
 # ]
-TODO: {
-    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';
-
+local $TODO = "wrong number_2.pbc based on number_2.pasm. needs to be regenerated";
 pbc_output_is(undef, $output, "PPC double float 32 bit BE opcode_t")
-    or diag "Requires endianized numval transform fixes. See TT #254.";
-
+    or diag "May need to regenerate t/native_pbc/number_2.pbc; see test file";
 }
 
+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";
+
 # Formerly there were tests for:
 # 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

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