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 'multiline_empty_one' => '',
16 'equivalent_one' => 'The quick brown fox jumps over the lazy dog.',
17 'multiline_empty_three' => '',
18 'multiline_empty_two' => '',
19 'multiline_empty_four' => '',
20 'equivalent_three' => 'The quick brown fox jumps over the lazy dog.',
21 'equivalent_two' => 'The quick brown fox jumps over the lazy dog.'
25 my $actual = from_toml(q{multiline_empty_one = """"""
26 multiline_empty_two = """
28 multiline_empty_three = """\\
30 multiline_empty_four = """\\
35 equivalent_one = "The quick brown fox jumps over the lazy dog."
43 equivalent_three = """\\
50 is($actual, $expected1, 'multiline-string - from_toml') or do{
52 diag Dumper($expected1);
58 is(eval{ from_toml(to_toml($actual)) }, $actual, 'multiline-string - to_toml') or do{
63 diag to_toml($actual);
65 diag 'REPARSED OUTPUT:';
66 diag Dumper(from_toml(to_toml($actual)));