1 # File automatically generated from BurntSushi/toml-test
6 use DateTime::Format::RFC3339;
11 binmode STDIN, ':encoding(UTF-8)';
12 binmode STDOUT, ':encoding(UTF-8)';
15 'answer4' => "\x{3b4}",
16 'answer8' => "\x{3b4}"
20 my $actual = from_toml(q{answer4 = "\\u03B4"
21 answer8 = "\\U000003B4"
24 is($actual, $expected1, 'unicode-escape - from_toml') or do{
26 diag Dumper($expected1);
32 is(eval{ from_toml(to_toml($actual)) }, $actual, 'unicode-escape - to_toml') or do{
37 diag to_toml($actual);
39 diag 'REPARSED OUTPUT:';
40 diag Dumper(from_toml(to_toml($actual)));