some basic tests for RT #77864, &&=, ||= etc. One of them fails

Raku · Sep 18, 2010 · 519bef8 · 519bef8
1 parent 5ca3dae
commit 519bef8
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/S03-operators/short-circuit.t b/S03-operators/short-circuit.t
@@ -14,7 +14,7 @@ it is closely related to || and && and //.
 
 # test cases by Andrew Savige
 
-plan 37;
+plan 39;
 
 {
     my $x = 1;
@@ -174,6 +174,17 @@ plan 37;
 # a rakudo regression
 ok (0 || 0 || 1), '0 || 0 || 1 is true';
 
+# RT #77864
+{
+    my $x;
+    $x &&= 5;
+    #?rakudo todo '77864'
+    nok $x.defined, '&&= leaves var on the right undefined';
+    my $y ||= 'moin';
+    is $y, 'moin', '||= on a fresh variable works';
+
+}
+
 done_testing;
 
 # vim: ft=perl6