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 'oneline' => 'This string has a \' quote character.',
16 'multiline' => 'This string
17 has \' a quote character
21 'firstnl' => 'This string has a \' quote character.'
25 my $actual = from_toml(q{oneline = '''This string has a ' quote character.'''
27 This string has a ' quote character.'''
30 has ' a quote character
36 is($actual, $expected1, 'raw-multiline-string - from_toml') or do{
38 diag Dumper($expected1);
44 is(eval{ from_toml(to_toml($actual)) }, $actual, 'raw-multiline-string - to_toml') or do{
49 diag to_toml($actual);
51 diag 'REPARSED OUTPUT:';
52 diag Dumper(from_toml(to_toml($actual)));