Test for ro binding

sorear · Aug 21, 2010 · 5de4fa0 · 5de4fa0
1 parent 36516a9
commit 5de4fa0
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/test2.pl b/test2.pl
@@ -7,4 +7,11 @@
 ok '\\' ~~ /\\/, '\\\\ in regex matches literal \\';
 ok 'a' ~~ /\x61/, '\x61 in regex matches literal a';
 
+ok 'xy' ~~ /x <?> y/, '<?> matches null string';
+
+my $a = 2;
+my $b ::= $a;
+$a = 5;
+is $b, 2, "ro binding loses original container";
+
 done-testing;