t/toml-test/invalid/float-underscore-before-point.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 bad = 1_.2
  12
  13   }, strict_arrays => 1);
  14 }), 'strict_mode dies on float-underscore-before-point';
  15
  16 done_testing;