diff --git a/t/arg-plugin.t b/t/arg-plugin.t index 4ecaca6..2344c7b 100644 --- a/t/arg-plugin.t +++ b/t/arg-plugin.t @@ -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(); diff --git a/t/lib/t/common.pm b/t/lib/t/common.pm index 7dcfe63..9663356 100644 --- a/t/lib/t/common.pm +++ b/t/lib/t/common.pm @@ -41,6 +41,8 @@ sub make_said by_chan_op => 0, captured => "", }; + + return $said; } 1;