]> git.vpit.fr Git - perl/modules/IPC-MorseSignals.git/blob - 60-fork-plain.t
af36286c55c1f1386bd2c2a453822e5fa8edcd9b
[perl/modules/IPC-MorseSignals.git] / 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