[svn:parrot] r39295 - branches/tt24_unicode_numifications/t/op

[bacek at svn.parrot.org]

Author: bacek
Date: Sun May 31 22:04:33 2009
New Revision: 39295
URL: https://trac.parrot.org/parrot/changeset/39295

Log:
[t] Add more test for unicode string numification. pmichaud++

Modified:
   branches/tt24_unicode_numifications/t/op/string.t

Modified: branches/tt24_unicode_numifications/t/op/string.t
==============================================================================
--- branches/tt24_unicode_numifications/t/op/string.t	Sun May 31 22:04:11 2009	(r39294)
+++ branches/tt24_unicode_numifications/t/op/string.t	Sun May 31 22:04:33 2009	(r39295)
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 165;
+use Parrot::Test tests => 166;
 use Parrot::Config;
 
 =head1 NAME
@@ -2956,6 +2956,22 @@
 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
 #   cperl-indent-level: 4