1 # File automatically generated from BurntSushi/toml-test
7 binmode STDIN, ':encoding(UTF-8)';
8 binmode STDOUT, ':encoding(UTF-8)';
12 'operator' => 'CODE(...)',
13 'name' => '<Custom Code>',
15 BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
20 'Math::BigInt'->new('0')->beq($_);
25 '_file' => '(eval 406)'
26 }, 'Test2::Compare::Custom' ),
27 'neganswer' => bless( {
32 BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
37 'Math::BigInt'->new('-42')->beq($_);
39 'operator' => 'CODE(...)',
40 'name' => '<Custom Code>',
41 '_file' => '(eval 407)'
42 }, 'Test2::Compare::Custom' ),
43 'posanswer' => bless( {
44 '_file' => '(eval 405)',
49 BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
54 'Math::BigInt'->new('42')->beq($_);
56 'name' => '<Custom Code>',
57 'operator' => 'CODE(...)'
58 }, 'Test2::Compare::Custom' ),
64 BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x54"}
69 'Math::BigInt'->new('42')->beq($_);
71 'name' => '<Custom Code>',
72 'operator' => 'CODE(...)',
73 '_file' => '(eval 408)'
74 }, 'Test2::Compare::Custom' )
78 my $actual = from_toml(q{answer = 42
84 is($actual, $expected1, 'integer - from_toml') or do{
86 diag Dumper($expected1);
92 is(eval{ from_toml(to_toml($actual)) }, $actual, 'integer - to_toml') or do{
97 diag to_toml($actual);
99 diag 'REPARSED OUTPUT:';
100 diag Dumper(from_toml(to_toml($actual)));