t/op/utf8magic.t

   1 #!perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6     require './test.pl';
   7 }
   8
   9 plan tests => 4;
  10
  11 use strict;
  12
  13 my $str = "\x{99f1}\x{99dd}"; # "camel" in Japanese kanji
  14 $str =~ /(.)/;
  15
  16 ok utf8::is_utf8($1), "is_utf8(unistr)";
  17 scalar "$1"; # invoke SvGETMAGIC
  18 ok utf8::is_utf8($1), "is_utf8(unistr)";
  19
  20 utf8::encode($str); # off the utf8 flag
  21 $str =~ /(.)/;
  22
  23 ok !utf8::is_utf8($1), "is_utf8(bytes)";
  24 scalar "$1"; # invoke SvGETMAGIC
  25 ok !utf8::is_utf8($1), "is_utf8(bytes)";