ext/File/Glob/t/utf8.t

   1 use File::Glob qw(:globally :utf8);
   2
   3 # Can't really depend on Tru64 UTF-8 filenames being so must just see
   4 # that things don't crash and that *if* UTF-8 were to be received, it's
   5 # valid.  (Maybe later add checks that are run if we are on NTFS/HFS+.)
   6 # (see also t/op/readdir.t)
   7
   8 print "1..2\n";
   9
  10 my $a = <*>;
  11
  12 print utf8::valid($a) ? "ok 1\n" : "not ok 1\n";
  13
  14 my @a=<*>;
  15
  16 print utf8::valid($a[0]) ? "ok 2\n" : "not ok 2\n";
  17