t/toml-test/invalid/string-bad-escape.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-escape = "This string has a bad \\a escape character."
  12
  13   }, strict_arrays => 1);
  14 }), 'strict_mode dies on string-bad-escape';
  15
  16 done_testing;