X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-proto.t;h=5cd76ba63f9c28cc4febee04e3962041151483c5;hb=accfcdfb12dc278650d05fed5f14d78291e66d97;hp=d05c7efc515455cd3e153abd44a843b0a89ccc70;hpb=8a4a3ba553f81cfdb679c19363f514efb04f29c1;p=perl%2Fmodules%2FIPC-MorseSignals.git

diff --git a/t/10-proto.t b/t/10-proto.t
index d05c7ef..5cd76ba 100644
--- a/t/10-proto.t
+++ b/t/10-proto.t
@@ -6,11 +6,17 @@ use warnings;
 use Test::More tests => 2;
 
 use lib 't/lib';
-use IPCMTest qw/try init cleanup/;
+use IPC::MorseSignals::TestSuite 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;