t/load_module.t

   1 =pod
   2
   3 This tests against a segfault when PL_parser becomes NULL temporarly, while
   4 another module is loaded.
   5
   6 =cut
   7
   8 use strict;
   9 use warnings;
  10
  11 use Test::More tests => 1;                      # last test to print
  12
  13 use Devel::Declare 'method' => sub{};
  14
  15 sub lowercase {
  16         lc $_[0];
  17 }
  18
  19 is lowercase("FOO\x{263a}"), "foo\x{263a}";