Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
fixed a test in say.t, and a new test note.t
  • Loading branch information
zhuomingliang committed Aug 22, 2015
1 parent 9431004 commit c2f2973
Show file tree
Hide file tree
Showing 2 changed files with 40 additions and 1 deletion.
39 changes: 39 additions & 0 deletions S16-io/note.t
@@ -0,0 +1,39 @@
use v6;

# L<S32::IO/IO/=item note>

# doesn't use Test.pm and plan() intentionally

say "1..8";

# Tests for say
{
note "ok 1 - basic form of note";
}

{
note "o", "k 2 - note with multiple parame", "ters (1)";

my @array = ("o", "k 3 - say with multiple parameters (2)");
note @array;
}

{
my $arrayref = <ok 4 - note stringifies its args>;
note $arrayref;
}

{
"ok 5 - method form of note".note;
}


"ok 6 - Mu.note\n".note;

grammar A {
token TOP { .+ };
}

A.parse("ok 7 - Match.note\n").note;

# vim: ft=perl6
2 changes: 1 addition & 1 deletion S16-io/say.t
Expand Up @@ -15,7 +15,7 @@ say "1..8";
say "o", "k 2 - say with multiple parame", "ters (1)";

my @array = ("o", "k 3 - say with multiple parameters (2)");
say |@array;
say @array;
}

{
Expand Down

0 comments on commit c2f2973

Please sign in to comment.