Fudge for test that gets into infinite recursion

lizmat · lizmat · commit a68446c5db97 · 2014-10-07T10:02:20.000+02:00
is() on bufs in rakudo on parrot can't handle Bufs
diff --git a/S32-io/spurt.t b/S32-io/spurt.t
@@ -67,12 +67,13 @@ sub all-basic(Callable $handle) {
     }
 
     # Buf into an open non binary handle
-    {
+    #?rakudo.parrot skip "is() gets into infinite recursion"
+{
         my $io = $path.IO.open(:w);
         my Buf $buf = Buf.new(0xC0, 0x01, 0xF0, 0x0D);
         spurt $io, $buf;
         is slurp($path, :bin), $buf, 'can spurt a Buf into an open handle';
-    }
+}
 
     # Text into a open binary handle
     {

Original file line number	Diff line number	Diff line change
`@@ -67,12 +67,13 @@ sub all-basic(Callable $handle) {`
`67`	`67`	`}`
`68`	`68`
`69`	`69`	`# Buf into an open non binary handle`
`70`		`- {`
	`70`	`+ #?rakudo.parrot skip "is() gets into infinite recursion"`
	`71`	`+{`
`71`	`72`	`my $io = $path.IO.open(:w);`
`72`	`73`	`my Buf $buf = Buf.new(0xC0, 0x01, 0xF0, 0x0D);`
`73`	`74`	`spurt $io, $buf;`
`74`	`75`	`is slurp($path, :bin), $buf, 'can spurt a Buf into an open handle';`
`75`		`- }`
	`76`	`+}`
`76`	`77`
`77`	`78`	`# Text into a open binary handle`
`78`	`79`	`{`