[svn:parrot] r39297 - branches/tt24_unicode_numifications/t/op
bacek at svn.parrot.org
bacek at svn.parrot.org
Sun May 31 22:05:17 UTC 2009
Author: bacek
Date: Sun May 31 22:05:16 2009
New Revision: 39297
URL: https://trac.parrot.org/parrot/changeset/39297
Log:
[t] Move unicode string tests to t/op/stringu.t
Modified:
branches/tt24_unicode_numifications/t/op/string.t
branches/tt24_unicode_numifications/t/op/stringu.t
Modified: branches/tt24_unicode_numifications/t/op/string.t
==============================================================================
--- branches/tt24_unicode_numifications/t/op/string.t Sun May 31 22:04:56 2009 (r39296)
+++ branches/tt24_unicode_numifications/t/op/string.t Sun May 31 22:05:16 2009 (r39297)
@@ -7,7 +7,7 @@
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 166;
+use Parrot::Test tests => 163;
use Parrot::Config;
=head1 NAME
@@ -2926,51 +2926,6 @@
Foo/Bar
OUT
-pir_output_is( <<'CODE', <<'OUT', 'numification of unicode strings (see TT#724)', todo =>'TT#724' );
-.sub main :main
- $S0 = "140"
- $I0 = $S0
- say $I0
- $I0 = find_encoding 'ucs2'
- $S0 = trans_encoding $S0, $I0
- $I0 = $S0
- say $I0
-.end
-CODE
-140
-140
-OUT
-
-pir_output_is( <<'CODE', <<'OUT', 'numification of unicode strings (see TT#724)', todo =>'TT#724' );
-.sub main :main
- $S0 = "140"
- $N0 = $S0
- say $N0
- $I0 = find_encoding 'ucs2'
- $S0 = trans_encoding $S0, $I0
- $N0 = $S0
- say $N0
-.end
-CODE
-140
-140
-OUT
-
-pir_output_is( <<'CODE', <<'OUT', 'numification of unicode strings (see TT#724)', todo =>'TT#724' );
-.sub main :main
- $S0 = unicode:"140 r\x{e9}sum\x{e9}s"
- $N0 = $S0
- say $N0
- $I0 = find_encoding 'ucs2'
- $S0 = trans_encoding $S0, $I0
- $N0 = $S0
- say $N0
-.end
-CODE
-140
-140
-OUT
-
# Local Variables:
# mode: cperl
Modified: branches/tt24_unicode_numifications/t/op/stringu.t
==============================================================================
--- branches/tt24_unicode_numifications/t/op/stringu.t Sun May 31 22:04:56 2009 (r39296)
+++ branches/tt24_unicode_numifications/t/op/stringu.t Sun May 31 22:05:16 2009 (r39297)
@@ -6,7 +6,7 @@
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 28;
+use Parrot::Test tests => 31;
use Parrot::Config;
=head1 NAME
@@ -502,6 +502,51 @@
OUTPUT
+pir_output_is( <<'CODE', <<'OUT', 'numification of unicode strings' );
+.sub main :main
+ $S0 = "140"
+ $I0 = $S0
+ say $I0
+ $I0 = find_encoding 'ucs2'
+ $S0 = trans_encoding $S0, $I0
+ $I0 = $S0
+ say $I0
+.end
+CODE
+140
+140
+OUT
+
+pir_output_is( <<'CODE', <<'OUT', 'numification of unicode strings' );
+.sub main :main
+ $S0 = "140"
+ $N0 = $S0
+ say $N0
+ $I0 = find_encoding 'ucs2'
+ $S0 = trans_encoding $S0, $I0
+ $N0 = $S0
+ say $N0
+.end
+CODE
+140
+140
+OUT
+
+pir_output_is( <<'CODE', <<'OUT', 'numification of unicode strings' );
+.sub main :main
+ $S0 = unicode:"140 r\x{e9}sum\x{e9}s"
+ $N0 = $S0
+ say $N0
+ $I0 = find_encoding 'ucs2'
+ $S0 = trans_encoding $S0, $I0
+ $N0 = $S0
+ say $N0
+.end
+CODE
+140
+140
+OUT
+
# Local Variables:
More information about the parrot-commits
mailing list