diff options
author | Patrick Spek <p.spek@tyil.nl> | 2023-01-23 10:19:49 +0100 |
---|---|---|
committer | Patrick Spek <p.spek@tyil.nl> | 2023-01-23 10:19:49 +0100 |
commit | a2fb1f7bd00dbefdd3009ca5b6cec4f5985e0718 (patch) | |
tree | 438f02276da629f7f911ba364b15b9acde245248 /t/network-freenode.t | |
parent | 121731baf33064577dfea15976489cf64ef5fb8e (diff) |
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'; +} |