t/32-receiver-utf8.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use utf8;
   7
   8 use Test::More 'no_plan';
   9
  10 use Bit::MorseSignals::Receiver;
  11
  12 my $hlagh;
  13
  14 my $pants = new Bit::MorseSignals::Receiver done => sub { $hlagh = $_[1] };
  15
  16 my $msg  = 'é';
  17 my @bits = split //, '11110' . '010' . '11000011' . '10010101' . '01111';
  18
  19 $pants->push for @bits;
  20
  21 ok(defined $hlagh && $hlagh eq $msg, 'message properly received');