diff options
author | Zoffix Znet <cpan@zoffix.com> | 2015-12-06 18:07:19 -0500 |
---|---|---|
committer | Zoffix Znet <cpan@zoffix.com> | 2015-12-06 18:07:19 -0500 |
commit | d2da9fcd250533bee5df17bd182648a8cea0d7b0 (patch) | |
tree | fca0431ce3639d5a2ac85a69c4fe9f05717be789 /test.p6 | |
parent | ba793ec6d1d4c66300f40cbced25f9ffd23ec792 (diff) |
Prerelease
Diffstat (limited to 'test.p6')
-rw-r--r-- | test.p6 | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/test.p6 b/test.p6 deleted file mode 100644 index aa9e493..0000000 --- a/test.p6 +++ /dev/null @@ -1,22 +0,0 @@ -use v6; -grammar IRC::Grammar:ver<1.001001> { - -my $res = IRC::Grammar.parse( -":ZoffixW!~ZoffixW\@unaffiliated/zoffix PRIVMSG #perl6bot :test\r\n" -, :actions(IRC::Grammar::Actions) ).made; - -say $res[0] - -=finish - -my @messages = ( - ":verne.freenode.net 372 Perl6IRC :- running for their sustained support.\r\n", - ":Perl6IRC MODE Perl6IRC :+i\r\n", - ":Perl6IRC!~Perl6IRC@static-67-226-172-41.ptr.terago.net JOIN #perl6bot\r\n", - ":verne.freenode.net MODE #perl6bot +ns\r\n", - ":verne.freenode.net 353 Perl6IRC @ #perl6bot :@Perl6IRC\r\n", - ":ZoffixW!~ZoffixW@unaffiliated/zoffix JOIN #perl6bot\r\n", - ":ZoffixW!~ZoffixW@unaffiliated/zoffix PRIVMSG #perl6bot :test\r\n", -); -# say so IRC::Grammar.parse(@messages[$_]) for 0..@messages.elems-1; -# say IRC::Grammar.parse(":verne.freenode.net 372 Perl6IRC :- running for their sustained support.\r\n"); |