1 # File automatically generated from BurntSushi/toml-test
7 binmode STDIN, ':encoding(UTF-8)';
8 binmode STDOUT, ':encoding(UTF-8)';
13 'operator' => 'CODE(...)',
14 'name' => '<Custom Code>',
16 BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
21 'Math::BigInt'->new('42')->beq($_);
26 '_file' => '(eval 366)'
27 }, 'Test2::Compare::Custom' ),
30 '_file' => '(eval 367)',
31 'name' => '<Custom Code>',
32 'operator' => 'CODE(...)',
37 BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
42 'Math::BigInt'->new('42')->beq($_);
44 }, 'Test2::Compare::Custom' ),
50 BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
55 'Math::BigInt'->new('42')->beq($_);
57 'operator' => 'CODE(...)',
58 'name' => '<Custom Code>',
59 '_file' => '(eval 368)'
60 }, 'Test2::Compare::Custom' )
66 my $actual = from_toml(q{# Top comment.
70 # [no-extraneous-groups-please]
74 # no-extraneous-keys-please = 999
77 # What about multiple # comments?
82 42, 42, # Comments within arrays are fun.
83 # What about multiple # comments?
92 is($actual, $expected1, 'comments-everywhere - from_toml') or do{
94 diag Dumper($expected1);
100 is(eval{ from_toml(to_toml($actual)) }, $actual, 'comments-everywhere - to_toml') or do{
102 diag Dumper($actual);
105 diag to_toml($actual);
107 diag 'REPARSED OUTPUT:';
108 diag Dumper(from_toml(to_toml($actual)));