1 # File automatically generated from BurntSushi/toml-test
7 binmode STDIN, ':encoding(UTF-8)';
8 binmode STDOUT, ':encoding(UTF-8)';
11 'answer8' => "\x{3b4}",
12 'answer4' => "\x{3b4}"
16 my $actual = from_toml(q{answer4 = "\\u03B4"
17 answer8 = "\\U000003B4"
20 is($actual, $expected1, 'unicode-escape - from_toml') or do{
22 diag Dumper($expected1);
28 is(eval{ from_toml(to_toml($actual)) }, $actual, 'unicode-escape - to_toml') or do{
33 diag to_toml($actual);
35 diag 'REPARSED OUTPUT:';
36 diag Dumper(from_toml(to_toml($actual)));