1 # File automatically generated from BurntSushi/toml-test
7 binmode STDIN, ':encoding(UTF-8)';
8 binmode STDOUT, ':encoding(UTF-8)';
13 'name' => 'Born to Run',
16 'name' => 'Jungleland'
19 'name' => 'Meeting Across the River'
26 'name' => 'Glory Days'
29 'name' => 'Dancing in the Dark'
32 'name' => 'Born in the USA'
38 my $actual = from_toml(q{[[albums]]
45 name = "Meeting Across the River"
48 name = "Born in the USA"
54 name = "Dancing in the Dark"
57 is($actual, $expected1, 'table-array-nest - from_toml') or do{
59 diag Dumper($expected1);
65 is(eval{ from_toml(to_toml($actual)) }, $actual, 'table-array-nest - to_toml') or do{
70 diag to_toml($actual);
72 diag 'REPARSED OUTPUT:';
73 diag Dumper(from_toml(to_toml($actual)));