test append to SV initialized by folded constant
authorGerard Goossen <gerard@ggoossen.net>
Tue, 21 Dec 2010 13:08:28 +0000 (14:08 +0100)
committerZefram <zefram@fysh.org>
Sat, 8 Jan 2011 13:38:39 +0000 (13:38 +0000)
t/op/concat.t

index ff16349..e2e2c66 100644 (file)
@@ -18,7 +18,7 @@ sub ok {
     return $ok;
 }
 
-print "1..29\n";
+print "1..30\n";
 
 ($a, $b, $c) = qw(foo bar);
 
@@ -152,3 +152,10 @@ sub beq { use bytes; $_[0] eq $_[1]; }
     my $x = eval"qr/\x{fff}/";
     ok( ord chop($x .= "\303\277") == 191, "UTF8ness preserved" );
 }
+
+{
+    my $x;
+    $x = "a" . "b";
+    $x .= "-append-";
+    ok($x eq "ab-append-", "Appending to something initialized using constant folding");
+}