TOML-Tiny/t/toml-test/invalid/string-bad-codepoint.t

   1 # File automatically generated from BurntSushi/toml-test
   2 use utf8;
   3 use Test2::V0;
   4 use TOML::Tiny;
   5
   6 binmode STDIN,  ':encoding(UTF-8)';
   7 binmode STDOUT, ':encoding(UTF-8)';
   8
   9 ok dies(sub{
  10   from_toml(q{
  11 invalid-codepoint = "This string contains a non scalar unicode codepoint \\uD801"
  12   }, strict_arrays => 1);
  13 }), 'strict_mode dies on string-bad-codepoint';
  14
  15 done_testing;