test infix:<^^>'s short circuiting

Fitz Elliott · Fitz Elliott · commit 47ae04976ca5 · 2011-01-16T17:17:09.000-05:00
diff --git a/S03-operators/short-circuit.t b/S03-operators/short-circuit.t
@@ -88,6 +88,10 @@ plan 39;
     $x ^^ ($y = 42);
 
     is($y, 42, "^^ operator not short circuiting");
+
+    $x = 0;
+    1 ^^ 2 ^^ ($x = 5);
+    is($x, 0, "^^ operator short circuiting");
 }
 
 {

Original file line number	Diff line number	Diff line change
`@@ -88,6 +88,10 @@ plan 39;`
`88`	`88`	`$x ^^ ($y = 42);`
`89`	`89`
`90`	`90`	`is($y, 42, "^^ operator not short circuiting");`
	`91`	`+`
	`92`	`+ $x = 0;`
	`93`	`+ 1 ^^ 2 ^^ ($x = 5);`
	`94`	`+ is($x, 0, "^^ operator short circuiting");`
`91`	`95`	`}`
`92`	`96`
`93`	`97`	`{`