]> git.vpit.fr Git - perl/modules/IPC-MorseSignals.git/blob - t/61-fork-utf8.t
Importing IPC-MorseSignals-0.10.tar.gz
[perl/modules/IPC-MorseSignals.git] / t / 61-fork-utf8.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use utf8;
7
8 use Test::More tests => 5;
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 = qw/€éèë 月語 x tata たTÂ/;
20
21 init 6;
22
23 test 'plain' => $_ for @msgs;
24
25 cleanup;
26