aboutsummaryrefslogtreecommitdiff
path: root/t/network-freenode.t
diff options
context:
space:
mode:
authorPatrick Spek <p.spek@tyil.nl>2023-01-23 10:19:49 +0100
committerPatrick Spek <p.spek@tyil.nl>2023-01-23 10:19:49 +0100
commita2fb1f7bd00dbefdd3009ca5b6cec4f5985e0718 (patch)
tree438f02276da629f7f911ba364b15b9acde245248 /t/network-freenode.t
parent121731baf33064577dfea15976489cf64ef5fb8e (diff)
Apply updates I had laying aroundHEADmaster
Diffstat (limited to 't/network-freenode.t')
-rw-r--r--t/network-freenode.t18
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';
+}