Test for RT 128717 (#250)

dogbert17 · zoffixznet · commit 1da17b7cbf79 · 2017-03-06T12:56:16.000-05:00
diff --git a/S17-supply/syntax.t b/S17-supply/syntax.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 71;
+plan 72;
 
 {
     my $s = supply {
@@ -329,6 +329,13 @@ plan 71;
     is $i, 2, 'react/whenever with supply that immediately emits values works';
 }
 
+# RT #128717
+{
+    my $i = 0;
+    react whenever Supply.interval: 0.01 { done() if $_ == 3; $i++ }
+    is $i, 3, 'blockless react/whenever works';
+}
+
 {
     my $trigger1 = Supplier.new;
     my $trigger2 = Supplier.new;

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,7 @@`
`1`	`1`	`use v6;`
`2`	`2`	`use Test;`
`3`	`3`
`4`		`-plan 71;`
	`4`	`+plan 72;`
`5`	`5`
`6`	`6`	`{`
`7`	`7`	`my $s = supply {`
`@@ -329,6 +329,13 @@ plan 71;`
`329`	`329`	`is $i, 2, 'react/whenever with supply that immediately emits values works';`
`330`	`330`	`}`
`331`	`331`
	`332`	`+# RT #128717`
	`333`	`+{`
	`334`	`+ my $i = 0;`
	`335`	`+ react whenever Supply.interval: 0.01 { done() if $_ == 3; $i++ }`
	`336`	`+ is $i, 3, 'blockless react/whenever works';`
	`337`	`+}`
	`338`	`+`
`332`	`339`	`{`
`333`	`340`	`my $trigger1 = Supplier.new;`
`334`	`341`	`my $trigger2 = Supplier.new;`