TODO tests for avoid needless use of UTF8=1 format [RT#56336]
authorEric Brine <ikegami@adaelis.com>
Sun, 22 Aug 2010 03:14:08 +0000 (20:14 -0700)
committerRafael Garcia-Suarez <rgs@consttype.org>
Mon, 30 Aug 2010 22:19:35 +0000 (00:19 +0200)
Some literals (e.g. q'abc') don't set the UTF8 flag for pure ASCII literals.
Others (e.g. -abc) do. This should be consistent.

lib/utf8.t

index a5827f4..7f8481c 100644 (file)
@@ -37,7 +37,7 @@ no utf8; # Ironic, no?
 #
 #
 
-plan tests => 150;
+plan tests => 157;
 
 {
     # bug id 20001009.001
@@ -451,3 +451,15 @@ SKIP: {
     ok(utf8::valid(chr(0x270)), "0x270");
     ok(utf8::valid(chr(0x280)), "0x280");
 }
+
+{
+   use utf8;
+   ok( !utf8::is_utf8( "asd"         ), "Wasteful format - qq{}" );
+   ok( !utf8::is_utf8( 'asd'         ), "Wasteful format - q{}" );
+   ok( !utf8::is_utf8( qw(asd)       ), "Wasteful format - qw{}" );
+   ok( !utf8::is_utf8( (asd => 1)[0] ), "Wasteful format - =>" );
+   local $TODO = 'Avoid needless use of UTF8=1 format [RT#56336]';
+   ok( !utf8::is_utf8( asd           ), "Wasteful format - bareword" );
+   ok( !utf8::is_utf8( -asd          ), "Wasteful format - -word" );
+   ok( !utf8::is_utf8( asd::         ), "Wasteful format - word::" );
+}