test for RT #76508, binding variable to itself

Raku · Oct 20, 2011 · 6e4c316 · 6e4c316
1 parent b653885
commit 6e4c316
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S03-operators/binding-scalars.t b/S03-operators/binding-scalars.t
@@ -11,7 +11,7 @@ These tests are derived from the "Item assignment precedence" section of Synopsi
 
 =end head1
 
-plan 29;
+plan 30;
 
 # Basic scalar binding tests
 {
@@ -146,4 +146,11 @@ plan 29;
     is $x.join, '12', 'binding has same precdence as list assignment'
 }
 
+# RT #76508
+{
+    my $a := 2;
+    $a := $a;
+    is $a, 2, 'can bind variable to itself (no-oop)';
+}
+
 # vim: ft=perl6