cvsuser 04/04/11 02:56:32
Modified: . MANIFEST
t/op string.t
Added: t/native_pbc string.t string_1.pbc string_2.pbc
Log:
string native tests
Revision Changes Path
1.624 +3 -0 parrot/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /cvs/public/parrot/MANIFEST,v
retrieving revision 1.623
retrieving revision 1.624
diff -u -w -r1.623 -r1.624
--- MANIFEST 9 Apr 2004 21:19:33 -0000 1.623
+++ MANIFEST 11 Apr 2004 09:56:26 -0000 1.624
@@ -2563,6 +2563,9 @@
t/native_pbc/number_3.pbc []
t/native_pbc/number_4.pbc []
t/native_pbc/number_5.pbc []
+t/native_pbc/string.t []
+t/native_pbc/string_1.pbc []
+t/native_pbc/string_2.pbc []
t/op/00ff-dos.t []
t/op/00ff-unix.t []
t/op/arithmetics.t []
1.1 parrot/t/native_pbc/string.t
Index: string.t
===================================================================
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
# $Id: string.t,v 1.1 2004/04/11 09:56:29 leo Exp $
=head1 NAME
t/native_pbc/string.t - PBC string tests
=head1 SYNOPSIS
% perl -Ilib t/native_pbc/string.t
=head1 DESCRIPTION
Tests word-size/string/endian-ness for different architectures.
=cut
use Parrot::Test tests => 2;
output_is(<<CODE, <<OUTPUT, "angstrom 32 bit PPC BE");
# string_1.pbc s. t/op/string_133
CODE
\xe2\x84\xab
OUTPUT
output_is(<<CODE, <<OUTPUT, "angstrom 32 bit x86 LE");
# string_2.pbc s. t/op/string_133
CODE
\xe2\x84\xab
OUTPUT
1.1 parrot/t/native_pbc/string_1.pbc
<<Binary file>>
1.1 parrot/t/native_pbc/string_2.pbc
<<Binary file>>
1.72 +11 -2 parrot/t/op/string.t
Index: string.t
===================================================================
RCS file: /cvs/public/parrot/t/op/string.t,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -w -r1.71 -r1.72
--- string.t 9 Apr 2004 20:32:51 -0000 1.71
+++ string.t 11 Apr 2004 09:56:32 -0000 1.72
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: string.t,v 1.71 2004/04/09 20:32:51 dan Exp $
+# $Id: string.t,v 1.72 2004/04/11 09:56:32 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 131;
+use Parrot::Test tests => 132;
use Test::More;
output_is( <<'CODE', <<OUTPUT, "set_s_s|sc" );
@@ -2427,6 +2427,15 @@
CODE
ok 1
ok 2
+OUTPUT
+
+output_is( <<'CODE', <<OUTPUT, "angstrom" );
+ chr S0, 0x212B
+ print S0
+ print "\n"
+ end
+CODE
+\xe2\x84\xab
OUTPUT
1;
