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 'poundcomment' => 'But there are # some comments here.',
16 'pound' => 'We see no # comments here.'
20 my $actual = from_toml(q{pound = "We see no # comments here."
21 poundcomment = "But there are # some comments here." # Did I # mess you up?
24 is($actual, $expected1, 'string-with-pound - from_toml') or do{
26 diag Dumper($expected1);
32 is(eval{ from_toml(to_toml($actual)) }, $actual, 'string-with-pound - to_toml') or do{
37 diag to_toml($actual);
39 diag 'REPARSED OUTPUT:';
40 diag Dumper(from_toml(to_toml($actual)));