[svn:parrot] r36160 - trunk/t/native_pbc
rurban at svn.parrot.org
rurban at svn.parrot.org
Thu Jan 29 22:29:52 UTC 2009
Author: rurban
Date: Thu Jan 29 21:09:59 2009
New Revision: 36160
URL: https://trac.parrot.org/parrot/log/branches?rev=36160
Log:
[test] native_pbc:
- Adapt number and integer to new pbc format, string not yet
- Create new reference pbc's for i386 32 bit opcode_t, 32 bit intval
- Will need other platforms pbc's.
Modified:
trunk/t/native_pbc/integer.t
trunk/t/native_pbc/integer_1.pbc
trunk/t/native_pbc/number.t
trunk/t/native_pbc/number_1.pbc
trunk/t/native_pbc/string.t
trunk/t/native_pbc/string_1.pbc
Modified: trunk/t/native_pbc/integer.t
==============================================================================
--- trunk/t/native_pbc/integer.t Thu Jan 29 21:04:34 2009 (r36159)
+++ trunk/t/native_pbc/integer.t Thu Jan 29 21:09:59 2009 (r36160)
@@ -7,7 +7,7 @@
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test skip_all => 'ongoing PBC format changes';
+use Parrot::Test tests => 1;
=head1 NAME
@@ -25,7 +25,7 @@
=begin comment
-s. 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:
@@ -46,10 +46,11 @@
# execute the file t/native_pbc/integer_1.pbc
#
# HEADER => [
-# wordsize = 4 (interpreter's wordsize = 4)
-# int_size = 4 (interpreter's INTVAL size = 4)
-# byteorder = 0 (interpreter's byteorder = 0)
-# floattype = 0 (interpreter's NUMVAL_SIZE = 8)
+# wordsize = 4 (interpreter's wordsize/INTVAL = 4/4)
+# 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
# ]
@@ -57,9 +58,9 @@
or diag "May need to regenerate t/native_pbc/integer_1.pbc; read test file";
# Formerly following tests had been set up:
-# pasm_output_is(undef, '270544960', "PPC BE 32 bit opcode_t, 32 bit intval");
-# pasm_output_is(undef, '270544960', "little-endian 64-bit tru64");
-# pasm_output_is(undef, '270544960', "big-endian 64-bit irix");
+# 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");
# Local Variables:
# mode: cperl
Modified: trunk/t/native_pbc/integer_1.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Modified: trunk/t/native_pbc/number.t
==============================================================================
--- trunk/t/native_pbc/number.t Thu Jan 29 21:04:34 2009 (r36159)
+++ trunk/t/native_pbc/number.t Thu Jan 29 21:09:59 2009 (r36160)
@@ -7,7 +7,7 @@
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test skip_all => 'ongoing PBC format changes';
+use Parrot::Test tests => 1;
=head1 NAME
@@ -45,41 +45,42 @@
=cut
my $output = << 'END_OUTPUT';
-1.000000
-4.000000
-16.000000
-64.000000
-256.000000
-1024.000000
-4096.000000
-16384.000000
-65536.000000
-262144.000000
-1048576.000000
-4194304.000000
-16777216.000000
-67108864.000000
-268435456.000000
-1073741824.000000
-4294967296.000000
-17179869184.000000
-68719476736.000000
-274877906944.000000
-1099511627776.000000
-4398046511104.000000
-17592186044416.000000
-70368744177664.000000
-281474976710656.000000
-1125899906842620.000000
+1
+4
+16
+64
+256
+1024
+4096
+16384
+65536
+262144
+1048576
+4194304
+16777216
+67108864
+268435456
+1073741824
+4294967296
+17179869184
+68719476736
+274877906944
+1099511627776
+4398046511104
+17592186044416
+70368744177664
+281474976710656
+1.12589990684262e+15
END_OUTPUT
# execute t/native_pbc/number_1.pbc
#
# HEADER => [
-# wordsize = 4 (interpreter's wordsize = 4)
-# int_size = 4 (interpreter's INTVAL size = 4)
-# byteorder = 0 (interpreter's byteorder = 0)
-# floattype = 0 (interpreter's NUMVAL_SIZE = 8)
+# wordsize = 4 (interpreter's wordsize/INTVAL = 4/4)
+# 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
# ]
Modified: trunk/t/native_pbc/number_1.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Modified: trunk/t/native_pbc/string.t
==============================================================================
--- trunk/t/native_pbc/string.t Thu Jan 29 21:04:34 2009 (r36159)
+++ trunk/t/native_pbc/string.t Thu Jan 29 21:09:59 2009 (r36160)
@@ -6,7 +6,7 @@
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test skip_all => 'ongoing PBC format changes';
+use Parrot::Test skip_all => 'ongoing PBC format changes'; # tests => 1;
=head1 NAME
@@ -24,7 +24,7 @@
=begin comment
-The PBC is generated from t/op/strings_133.pasm for different architectures.
+The PBC is generated from t/op/string_133.pasm for different architectures.
Actually, there is a single architecture right now.
For adding tests, see the comments in t/native_pbc/number.t
@@ -41,10 +41,11 @@
# execute t/native_pbc/string_1.pbc
#
# HEADER => [
-# wordsize = 4 (interpreter's wordsize = 4)
-# int_size = 4 (interpreter's INTVAL size = 4)
-# byteorder = 0 (interpreter's byteorder = 0)
-# floattype = 0 (interpreter's NUMVAL_SIZE = 8)
+# wordsize = 4 (interpreter's wordsize/INTVAL = 4/4)
+# 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
# ]
Modified: trunk/t/native_pbc/string_1.pbc
==============================================================================
Binary file (source and/or target). No diff available.
More information about the parrot-commits
mailing list