]> git.vpit.fr Git - perl/modules/IPC-MorseSignals.git/blob - t/62-fork-storable.t
aeab377249d9698c0b57ed3721de11e0cf72633c
[perl/modules/IPC-MorseSignals.git] / t / 62-fork-storable.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use utf8;
7
8 use Test::More tests => 8;
9
10 use lib 't/lib';
11 use IPC::MorseSignals::TestSuite qw/try init cleanup/;
12
13 sub test {
14  my ($desc, @args) = @_;
15  eval { ok(try(@args), $desc) };
16  fail($desc . " (died : $@)") if $@;
17 }
18
19 my @msgs = (
20  \(undef, -273, 1.1, 'yes', '¥€$'),
21  [ 5, 6 ],
22  { hlagh => 1, HLAGH => 2 },
23  { x => -3.573 },
24 );
25 $msgs[7]->{y} = $msgs[7];
26
27 init 6;
28
29 test 'plain' => $_ for @msgs;
30
31 cleanup;
32