shlist

share and manage lists between multiple people
Log | Files | Refs

utf8.t (566B)

      1 use strict;
      2 use Test;
      3 use SL::Test;
      4 
      5 BEGIN { plan tests => 5 }
      6 
      7 my $s = SL::Test::Server->new();
      8 my $A = SL::Test::Client->new();
      9 
     10 # Create a new list with a name composed of 3 valid Unicode characters
     11 # - a left double quotation mark and
     12 # - ae sorta character thing but where they touch
     13 # - face with medical mask
     14 $A->list_add({ name => "\xE2\x80\x9C \xC3\xA6 \xF0\x9F\x98\xB8", date => 0 });
     15 my ($list) = @{ $A->lists_get() };
     16 
     17 # Check the list name we get back hasn't been mangled in the round trip
     18 ok( "\xE2\x80\x9C \xC3\xA6 \xF0\x9F\x98\xB8", $list->{name} );