TOML-Tiny/t/toml-test/invalid/integer-leading-zero-neg.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 leading-zero = -012
  12
  13   }, strict_arrays => 1);
  14 }), 'strict_mode dies on integer-leading-zero-neg';
  15
  16 done_testing;