From a2fb1f7bd00dbefdd3009ca5b6cec4f5985e0718 Mon Sep 17 00:00:00 2001
From: Patrick Spek <p.spek@tyil.nl>
Date: Mon, 23 Jan 2023 10:19:49 +0100
Subject: Apply updates I had laying around

---
 t/network-freenode.t | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 t/network-freenode.t

(limited to 't/network-freenode.t')

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';
+}
-- 
cgit v1.1