1 # File automatically generated from BurntSushi/toml-test
7 binmode STDIN, ':encoding(UTF-8)';
8 binmode STDOUT, ':encoding(UTF-8)';
11 'equivalent_three' => 'The quick brown fox jumps over the lazy dog.',
12 'equivalent_one' => 'The quick brown fox jumps over the lazy dog.',
13 'equivalent_two' => 'The quick brown fox jumps over the lazy dog.',
14 'multiline_empty_four' => '',
15 'multiline_empty_one' => '',
16 'multiline_empty_two' => '',
17 'multiline_empty_three' => ''
21 my $actual = from_toml(q{multiline_empty_one = """"""
22 multiline_empty_two = """
24 multiline_empty_three = """\\
26 multiline_empty_four = """\\
31 equivalent_one = "The quick brown fox jumps over the lazy dog."
39 equivalent_three = """\\
46 is($actual, $expected1, 'multiline-string - from_toml') or do{
48 diag Dumper($expected1);
54 is(eval{ from_toml(to_toml($actual)) }, $actual, 'multiline-string - to_toml') or do{
59 diag to_toml($actual);
61 diag 'REPARSED OUTPUT:';
62 diag Dumper(from_toml(to_toml($actual)));