Re: [perl #23463]: compiler version on sparc/netbsd

[p5sagit/p5-mst-13.2.git] / t / op / concat.t

diff --git a/t/op/concat.t b/t/op/concat.t
index c1a6e23..97a5200 100644 (file)
--- a/t/op/concat.t
+++ b/t/op/concat.t
@@ -18,7 +18,7 @@ sub ok {
     return $ok;
 }
 
-print "1..18\n";
+print "1..19\n";
 
 ($a, $b, $c) = qw(foo bar);
 
@@ -104,3 +104,8 @@ sub beq { use bytes; $_[0] eq $_[1]; }
     ok(beq($l, "\x{fe}"), "right not changed after concat b+u");
     ok(beq($r, "\x{101}"), "left not changed after concat b+u");
 }
+
+{
+    my $a; ($a .= 5) . 6;
+    ok($a == 5, '($a .= 5) . 6 - present since 5.000');
+}