diff options
Diffstat (limited to 't/network-freenode.t')
-rw-r--r-- | t/network-freenode.t | 18 |
1 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'; +} |