Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 00:55:40 -04:00
Code Issues Releases Wiki Activity

bad test, forgot to check it

Browse source
This commit is contained in:
Ryan Voots 2020-10-30 18:44:48 -07:00
parent 440c75037d
commit 8bde0b52af
2 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
t/arg-plugin.t
View file

@ -10,14 +10,14 @@ use Encode qw/encode/;
load_plugin("arg");
check("n", "perlbot", [1], "empty but valid");
check("&n", "perlbot", ['FOO'], "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("&a", "", ['FOO'], "macro args"); # this one is difficult to test for, it really gets the arguments to the parent macro
check("", "", ['FOO'], "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");
check("&h", "irc.client.example.com", ['FOO'], "host");
check("&c", "##NULL", ['FOO'], "channel");
check("&o", 0, ['FOO'], "is op?");
check("&s", "irc.server.example.com", ['FOO'], "server");
done_testing();

2
t/lib/t/common.pm
View file

@ -41,6 +41,8 @@ sub make_said
by_chan_op => 0,
captured => "",
};
return $said;
}
1;