'ne' operator instead of 'leg', [Coke]++

FROGGS · FROGGS · commit c5f5026b05b1 · 2012-11-20T18:24:14.000+01:00
diff --git a/S32-list/roll.t b/S32-list/roll.t
@@ -126,7 +126,7 @@ ok ('a' .. 'z').roll ~~ /\w/, 'Str-Range roll';
     my $a = qqx{$*EXECUTABLE_NAME -e "print ~(1..10).pick(5)"};
     my $b = qqx{$*EXECUTABLE_NAME -e "print ~(1..10).pick(5)"};
     my $c = qqx{$*EXECUTABLE_NAME -e "print ~(1..10).pick(5)"};
-    ok ($a leg $b || $b leg $c), 'different results due to random random-number seed';
+    ok ($a ne $b || $b ne $c), 'different results due to random random-number seed';
 }
 
 # vim: ft=perl6

Original file line number	Diff line number	Diff line change
`@@ -126,7 +126,7 @@ ok ('a' .. 'z').roll ~~ /\w/, 'Str-Range roll';`
`126`	`126`	`my $a = qqx{$*EXECUTABLE_NAME -e "print ~(1..10).pick(5)"};`
`127`	`127`	`my $b = qqx{$*EXECUTABLE_NAME -e "print ~(1..10).pick(5)"};`
`128`	`128`	`my $c = qqx{$*EXECUTABLE_NAME -e "print ~(1..10).pick(5)"};`
`129`		`- ok ($a leg $b \|\| $b leg $c), 'different results due to random random-number seed';`
	`129`	`+ ok ($a ne $b \|\| $b ne $c), 'different results due to random random-number seed';`
`130`	`130`	`}`
`131`	`131`
`132`	`132`	`# vim: ft=perl6`