]> git.vpit.fr Git - perl/modules/IPC-MorseSignals.git/blob - t/60-fork-plain.t
Remove obsolete kwalitee workarounds
[perl/modules/IPC-MorseSignals.git] / t / 60-fork-plain.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 7;
7
8 use lib 't/lib';
9 use IPC::MorseSignals::TestSuite qw/try init cleanup/;
10
11 *IPC::MorseSignals::TestSuite::diag = *Test::More::diag;
12
13 sub test {
14  my ($desc, @args) = @_;
15  my ($res, $speed, $len);
16  eval {
17   ($res, $speed, $len) = try(@args);
18  };
19  fail($desc . " (died : $@)") if $@;
20  ok($res, $desc . ' (' . $len . ' bits @ ' . $speed . ' bauds)');
21 }
22
23 my @msgs = qw/hlagh hlaghlaghlagh HLAGH HLAGHLAGHLAGH \x{0dd0}\x{00}
24               h\x{00}la\x{00}gh \x{00}\x{ff}\x{ff}\x{00}\x{00}\x{ff}/;
25
26 init 6;
27
28 for (1 .. @msgs) {
29  test 'plain ' . $_ => $msgs[$_-1];
30 }
31
32 cleanup;
33