TOML-Tiny
view release on metacpan or search on metacpan
t/toml-test/valid/inline-table/key-dotted.t view on Meta::CPAN
# File automatically generated from BurntSushi/toml-test
use utf8;
use Test2::V0;
use Data::Dumper;
use Math::BigInt;
use Math::BigFloat;
use TOML::Tiny;
local $Data::Dumper::Sortkeys = 1;
local $Data::Dumper::Useqq = 1;
binmode STDIN, ':encoding(UTF-8)';
binmode STDOUT, ':encoding(UTF-8)';
open my $fh, '<', "./t/toml-test/valid/inline-table/key-dotted.toml" or die $!;
binmode $fh, ':encoding(UTF-8)';
my $toml = do{ local $/; <$fh>; };
close $fh;
my $expected1 = {
"a" => {
"a" => {
"b" => bless( {
"_file" => "(eval 222)",
"_lines" => [
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('1')->beq($got);
},
"name" => "Math::BigInt->new(\"1\")->beq(\$_)",
"operator" => "CODE(...)"
}, 'Test2::Compare::Custom' )
}
},
"arr" => [
{
"T" => {
"a" => {
"b" => bless( {
"_file" => "(eval 219)",
"_lines" => [
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('1')->beq($got);
},
"name" => "Math::BigInt->new(\"1\")->beq(\$_)",
"operator" => "CODE(...)"
}, 'Test2::Compare::Custom' )
}
},
"t" => {
"a" => {
"b" => bless( {
"_file" => "(eval 218)",
"_lines" => [
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('1')->beq($got);
},
"name" => "Math::BigInt->new(\"1\")->beq(\$_)",
"operator" => "CODE(...)"
}, 'Test2::Compare::Custom' )
}
}
},
{
"T" => {
"a" => {
"b" => bless( {
"_file" => "(eval 221)",
"_lines" => [
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('2')->beq($got);
},
"name" => "Math::BigInt->new(\"2\")->beq(\$_)",
"operator" => "CODE(...)"
}, 'Test2::Compare::Custom' )
}
},
"t" => {
"a" => {
"b" => bless( {
"_file" => "(eval 220)",
"_lines" => [
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('2')->beq($got);
},
"name" => "Math::BigInt->new(\"2\")->beq(\$_)",
"operator" => "CODE(...)"
}, 'Test2::Compare::Custom' )
}
}
}
],
"b" => {
"a" => {
"b" => bless( {
"_file" => "(eval 223)",
"_lines" => [
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('1')->beq($got);
},
"name" => "Math::BigInt->new(\"1\")->beq(\$_)",
"operator" => "CODE(...)"
}, 'Test2::Compare::Custom' )
}
},
"c" => {
"a" => {
"b" => bless( {
"_file" => "(eval 211)",
"_lines" => [
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('1')->beq($got);
},
"name" => "Math::BigInt->new(\"1\")->beq(\$_)",
"operator" => "CODE(...)"
}, 'Test2::Compare::Custom' )
}
},
"d" => {
"a" => {
"b" => bless( {
"_file" => "(eval 210)",
"_lines" => [
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('1')->beq($got);
},
"name" => "Math::BigInt->new(\"1\")->beq(\$_)",
"operator" => "CODE(...)"
}, 'Test2::Compare::Custom' )
}
},
"e" => {
"a" => {
"b" => bless( {
"_file" => "(eval 212)",
"_lines" => [
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('1')->beq($got);
},
"name" => "Math::BigInt->new(\"1\")->beq(\$_)",
"operator" => "CODE(...)"
}, 'Test2::Compare::Custom' )
}
},
"inline" => {
"a" => {
"b" => bless( {
"_file" => "(eval 215)",
"_lines" => [
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('42')->beq($got);
},
"name" => "Math::BigInt->new(\"42\")->beq(\$_)",
"operator" => "CODE(...)"
}, 'Test2::Compare::Custom' )
}
},
"many" => {
"dots" => {
"here" => {
"dot" => {
"dot" => {
"dot" => {
"a" => {
"b" => {
"c" => bless( {
"_file" => "(eval 213)",
"_lines" => [
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('1')->beq($got);
},
"name" => "Math::BigInt->new(\"1\")->beq(\$_)",
"operator" => "CODE(...)"
}, 'Test2::Compare::Custom' ),
"d" => bless( {
"_file" => "(eval 214)",
"_lines" => [
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('2')->beq($got);
},
"name" => "Math::BigInt->new(\"2\")->beq(\$_)",
"operator" => "CODE(...)"
}, 'Test2::Compare::Custom' )
}
}
}
}
}
}
}
},
"tbl" => {
"a" => {
"b" => {
"c" => {
"d" => {
"e" => bless( {
"_file" => "(eval 217)",
"_lines" => [
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('1')->beq($got);
},
"name" => "Math::BigInt->new(\"1\")->beq(\$_)",
"operator" => "CODE(...)"
}, 'Test2::Compare::Custom' )
}
}
}
},
"x" => {
"a" => {
"b" => {
"c" => {
"d" => {
"e" => bless( {
"_file" => "(eval 216)",
"_lines" => [
7
],
"code" => sub {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15\x00\x04\x40\x05\x04\x50"}
use strict;
no feature ':all';
use feature ':5.16';
require Math::BigInt;
my $got = 'Math::BigInt'->new($_);
'Math::BigInt'->new('1')->beq($got);
},
"name" => "Math::BigInt->new(\"1\")->beq(\$_)",
"operator" => "CODE(...)"
}, 'Test2::Compare::Custom' )
}
}
}
}
}
}
};
my $actual = from_toml($toml);
is($actual, $expected1, 'inline-table/key-dotted - from_toml') or do{
diag 'TOML INPUT:';
diag "$toml";
diag '';
diag 'EXPECTED:';
diag Dumper($expected1);
diag '';
diag 'ACTUAL:';
diag Dumper($actual);
};
my $regenerated = to_toml $actual;
my $reparsed = eval{ scalar from_toml $regenerated };
my $error = $@;
ok(!$error, 'inline-table/key-dotted - to_toml - no errors')
or diag $error;
is($reparsed, $expected1, 'inline-table/key-dotted - to_toml') or do{
diag "ERROR: $error" if $error;
diag '';
diag 'PARSED FROM TEST SOURCE TOML:';
diag Dumper($actual);
diag '';
diag 'REGENERATED TOML:';
diag $regenerated;
diag '';
diag 'REPARSED FROM REGENERATED TOML:';
diag Dumper($reparsed);
};
done_testing;
( run in 5.318 seconds using v1.01-cache-2.11-cpan-bbc515a03b3 )