]> git.vpit.fr Git - perl/modules/Bit-MorseSignals.git/blob - t/32-receiver-utf8.t
Get rid of t/99-kwalitee.t
[perl/modules/Bit-MorseSignals.git] / t / 32-receiver-utf8.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use utf8;
7
8 use Test::More tests => 1;
9
10 use Bit::MorseSignals::Receiver;
11
12 my $pants = new Bit::MorseSignals::Receiver;
13
14 my $msg  = 'é';
15 my @bits = split //, '11110' . '100' . '11000011' . '10010101' . '01111';
16
17 $pants->push for @bits;
18
19 is($pants->msg, $msg, 'message properly stored');