mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 10:35:41 -04:00
23 lines
602 B
Perl
23 lines
602 B
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
use Test::More;
|
|
use lib::relative './lib', '../lib', '..';
|
|
use t::simple_plugin;
|
|
use Encode qw/encode/;
|
|
|
|
load_plugin("arg");
|
|
|
|
check("n", "perlbot", [1], "empty but valid");
|
|
|
|
check("a", "a", [1], "macro args"); # this one is difficult to test for, it really gets the arguments to the parent macro
|
|
check("", "", [1], "empty arguments, needs better check");
|
|
|
|
check("h", "irc.client.example.com", [1], "host");
|
|
check("c", "##NULL", [1], "channel");
|
|
check("o", 0, [1], "is op?");
|
|
check("s", "irc.server.example.com", [1], "server");
|
|
|
|
done_testing();
|