From b6da79a0bc1289f2a6064a6b3ffcd0c2333f2c97 Mon Sep 17 00:00:00 2001 From: Patrick Spek Date: Wed, 5 May 2021 11:03:32 +0200 Subject: Initial commit --- t/01-parser.t | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 t/01-parser.t (limited to 't/01-parser.t') diff --git a/t/01-parser.t b/t/01-parser.t new file mode 100644 index 0000000..56e4a77 --- /dev/null +++ b/t/01-parser.t @@ -0,0 +1,19 @@ +#!/usr/bin/env raku + +use v6.d; + +use Test; + +use IRC::Client; +use IRC::Client::Message; + +my $client = IRC::Client.new; + +ok IRC::Client::Message.new(":irc.tyil.nl 432 * tyil_ircbot :Nickname too long, max. 9 characters", $client); +ok IRC::Client::Message.new(":irc.tyil.nl 004 tyiltest irc.tyil.nl ngircd-26.1 abBcCFiIoqrRswx abehiIklmMnoOPqQrRstvVz", $client); + +ok IRC::Client::Message.new("PING :adams.freenode.net", $client); +ok IRC::Client::Message.new(":freenode-connect!bot@freenode/utility-bot/frigg PRIVMSG tyil_ircbot :\x[1]VERSION\x[1]", $client); +ok IRC::Client::Message.new(':tyil_ircbot!~raku@2a10:3781:a2:1:e8ed:81a8:92c9:b4aa JOIN #scriptkitties', $client); +ok IRC::Client::Message.new(':freenode-connect!bot@freenode/utility-bot/frigg NOTICE tyil_ircbot :Welcome to freenode. To protect the network all new connections will be scanned for vulnerabilities. This will not harm your computer, and vulnerable hosts will be notified.', $client); + -- cgit v1.1