diff options
Diffstat (limited to 't/01-parser.t')
-rw-r--r-- | t/01-parser.t | 19 |
1 files changed, 19 insertions, 0 deletions
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); + |