diff options
Diffstat (limited to 't')
-rw-r--r-- | t/network-freenode.t | 18 | ||||
-rw-r--r-- | t/rfc1459.t | 0 |
2 files changed, 18 insertions, 0 deletions
diff --git a/t/network-freenode.t b/t/network-freenode.t new file mode 100644 index 0000000..b9e32a5 --- /dev/null +++ b/t/network-freenode.t @@ -0,0 +1,18 @@ +#!/usr/bin/env raku + +use Test; + +use IRC::Grammar; + +plan 1; + +subtest ':Geth!~raku@2a01:4f9:c010:e20c::1 JOIN #raku-dev', { + plan 4; + + my $match = IRC::Grammar.parse(':Geth!~raku@2a01:4f9:c010:e20c::1 JOIN #raku-dev'); + + ok $match; + is $match<prefix>, 'Geth!~raku@2a01:4f9:c010:e20c::1'; + is $match<command>, 'JOIN'; + is $match<params>[0], '#raku-dev'; +} diff --git a/t/rfc1459.t b/t/rfc1459.t deleted file mode 100644 index e69de29..0000000 --- a/t/rfc1459.t +++ /dev/null |