t/network-freenode.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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';
}