X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F13-speed.t;h=02de5b10ee06681f8249e3e0bac9e72b6a69b63a;hb=accfcdfb12dc278650d05fed5f14d78291e66d97;hp=ee5a80ce00645818c0fba05605b6448a481d4e5f;hpb=8a4a3ba553f81cfdb679c19363f514efb04f29c1;p=perl%2Fmodules%2FIPC-MorseSignals.git diff --git a/t/13-speed.t b/t/13-speed.t index ee5a80c..02de5b1 100644 --- a/t/13-speed.t +++ b/t/13-speed.t @@ -6,12 +6,12 @@ use warnings; use Test::More tests => 3; use lib 't/lib'; -use IPCMTest qw/speed init cleanup/; +use IPC::MorseSignals::TestSuite qw/speed init cleanup/; my $diag = sub { diag @_ }; my @res; -init; +init 12; ok(speed(4, 1, $diag, \@res)); ok(speed(4, 4, $diag, \@res));