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 'formfeed' => 'This string has a
\f form feed character.',
16 'notunicode1' => 'This string does not have a unicode \\u escape.',
17 'quote' => 'This string has a " quote character.',
18 'newline' => 'This string has a
20 'notunicode3' => 'This string does not have a unicode \\u0075 escape.',
21 'carriage' => 'This string has a
\r carriage return character.',
22 'tab' => 'This string has a tab character.',
23 'backslash' => 'This string has a \\ backslash character.',
24 'backspace' => 'This string has a
\b backspace character.',
25 'notunicode2' => 'This string does not have a unicode \\u escape.',
26 'notunicode4' => 'This string does not have a unicode \\u escape.'
30 my $actual = from_toml(q{backspace = "This string has a \\b backspace character."
31 tab = "This string has a \\t tab character."
32 newline = "This string has a \\n new line character."
33 formfeed = "This string has a \\f form feed character."
34 carriage = "This string has a \\r carriage return character."
35 quote = "This string has a \\" quote character."
36 backslash = "This string has a \\\\ backslash character."
37 notunicode1 = "This string does not have a unicode \\\\u escape."
38 notunicode2 = "This string does not have a unicode \\u005Cu escape."
39 notunicode3 = "This string does not have a unicode \\\\u0075 escape."
40 notunicode4 = "This string does not have a unicode \\\\\\u0075 escape."
43 is($actual, $expected1, 'string-escapes - from_toml') or do{
45 diag Dumper($expected1);
51 is(eval{ from_toml(to_toml($actual)) }, $actual, 'string-escapes - to_toml') or do{
56 diag to_toml($actual);
58 diag 'REPARSED OUTPUT:';
59 diag Dumper(from_toml(to_toml($actual)));