correct say.t, and add a test for .print

moritz · moritz · commit 9e5e20c3cc22 · 2011-10-02T09:55:21.000+02:00
diff --git a/S16-io/say.t b/S16-io/say.t
@@ -4,7 +4,7 @@ use v6;
 
 # doesn't use Test.pm and plan() intentionally
 
-say "1..6";
+say "1..7";
 
 # Tests for say
 {
@@ -15,7 +15,7 @@ say "1..6";
     say "o", "k 2 - say with multiple parame", "ters (1)";
 
     my @array = ("o", "k 3 - say with multiple parameters (2)");
-    say @array;
+    say |@array;
 }
 
 {
@@ -29,5 +29,6 @@ say "1..6";
 
 $*OUT.say('ok 6 - $*OUT.say(...)');
 
+'ok 7 - Mu.print'.print;
 
 # vim: ft=perl6

Original file line number	Diff line number	Diff line change
`@@ -4,7 +4,7 @@ use v6;`
`4`	`4`
`5`	`5`	`# doesn't use Test.pm and plan() intentionally`
`6`	`6`
`7`		`-say "1..6";`
	`7`	`+say "1..7";`
`8`	`8`
`9`	`9`	`# Tests for say`
`10`	`10`	`{`
`@@ -15,7 +15,7 @@ say "1..6";`
`15`	`15`	`say "o", "k 2 - say with multiple parame", "ters (1)";`
`16`	`16`
`17`	`17`	`my @array = ("o", "k 3 - say with multiple parameters (2)");`
`18`		`- say @array;`
	`18`	`+ say \|@array;`
`19`	`19`	`}`
`20`	`20`
`21`	`21`	`{`
`@@ -29,5 +29,6 @@ say "1..6";`
`29`	`29`
`30`	`30`	`$OUT.say('ok 6 - $OUT.say(...)');`
`31`	`31`
	`32`	`+'ok 7 - Mu.print'.print;`
`32`	`33`
`33`	`34`	`# vim: ft=perl6`