Importing IPC-MorseSignals-0.08.tar.gz

[perl/modules/IPC-MorseSignals.git] / t / 10-proto.t

diff --git a/t/10-proto.t b/t/10-proto.t
index d05c7efc515455cd3e153abd44a843b0a89ccc70..5c25980877e4c9c5f9100d15cdd899efc61c404a 100644 (file)
--- a/t/10-proto.t
+++ b/t/10-proto.t
@@ -8,9 +8,15 @@ use Test::More tests => 2;
 use lib 't/lib';
 use IPCMTest qw/try init cleanup/;
 
-init;
+sub test {
+ my ($desc, @args) = @_;
+ eval { ok(try(@args), $desc) };
+ fail($desc . " (died : $@)") if $@;
+}
 
-ok(try('x', 0), 'anonymous');
-ok(try('x', 1), 'signed');
+init 6;
+
+test 'anonymous' => 'x', 0;
+test 'signed'    => 'x', 1;
 
 cleanup;