From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Fri, 15 Sep 2000 16:37:58 +0000 (-0400)
Subject: Re: unicode support and perl [ID 20000901.097]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5fa9e1699857f48f424aaf1b7c26bcdffdf16a76;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";
+}