aboutsummaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/network-freenode.t18
-rw-r--r--t/rfc1459.t0
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