Re: unicode support and perl [ID 20000901.097]

Message-Id: <200009152037.QAA19056@Orb.Nashua.NH.US>

p4raw-id: //depot/perl@7100

diff --git a/t/op/append.t b/t/op/append.t
index afaf6a1..972d321 100755 (executable)
--- a/t/op/append.t
+++ b/t/op/append.t
@@ -2,7 +2,7 @@
 
 # $RCSfile: append.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:36 $
 
-print "1..13\n";
+print "1..14\n";
 
 $a = 'ab' . 'c';       # compile time
 $b = 'def';
@@ -54,3 +54,11 @@ if ($_ eq 'abcdef') {print "ok 3\n";} else {print "not ok 3\n";}
     my $t8 = $u; $t8 = $ub . $t8;
     print $t8 =~ /b/ ? "ok 13\n" : "not ok 13\t# $t8\n";
 }
+
+# test that undef left and right of utf8 results in a valid string
+{
+    my $a;
+    $a .= "\x{1ff}";
+    print $a eq "\x{1ff}" ? "ok 14\n" :
+       "not ok 14\t# (undef.0x1ff) ne (0x1ff)\n";
+}