t/segv_utf8_lc_prevented.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 2;                      # last test to print
   6
   7 use Devel::Declare 'method' => sub{};
   8
   9 sub lowercase {
  10         lc $_[0];
  11 }
  12
  13 is uc("bar\x{263a}"), "BAR\x{263a}";
  14 is lowercase("FOO\x{263a}"), "foo\x{263a}";
  15
  16 =pod
  17
  18 This test does *not* segfault for me like t/segv_utf8_lc.t
  19
  20 =cut
  21