Update test.pl to keep running the plugin until it stops yielding out…

…put.

This results in full test output from parrotlog.pm.

test.pl

@@ -16,21 +16,28 @@
 $module = "modules::local::$module";
 my $inst = $module;
 
+my $output_anything = 0;
+
 sub run_function {
     my $function = shift;
+    $output_anything = 0;
     $inst->$function();
 }
 
 run_function("init");
 
 sub create_timer {
     my ($timername, $self, $functionname, $timeout) = @_;
-    run_function($functionname) for (0..1);
+    $output_anything = 1;
+    run_function($functionname);
+    $output_anything = 1;
+    run_function($functionname) while $output_anything;
 }
 
 my $lastline;
 sub send_privmsg {
     my ($network, $channel, $line) = @_;
+    $output_anything = 1;
     # module may output the same line to multiple channels; detect that here.
     if(defined($lastline) && ($line eq $lastline)) {
         return;