duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add test for explicitly enabled nesting 

And clean the tests up a bit too.
master
Ben Moon 2016-05-30 15:50:12 +01:00
parent e0017279ef
commit 8e2dd40e7b
1 changed files with 23 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
t/00-roles/Parse/List.t
View File

@ -116,22 +116,30 @@ subtest parse_list => sub {
subtest 'nested' => sub {
my %tcs = (
'[1, [2, 3]]' => [1, [2, 3]],
'[1, [2, [3]]]' => [1, [2, [3]]],
'[1, (2, 3)]' => [1, '(2', '3)'],
'[1, [2, 3]]' => {
nested => [1, [2, 3]],
no_nested => [1, '[2', '3]'],
},
'[1, [2, [3]]]' => {
nested => [1, [2, [3]]],
no_nested => [1, '[2', '[3]]'],
},
'[1, (2, 3)]' => {
nested => [1, '(2', '3)'],
no_nested => [1, '(2', '3)'],
},
);
while (my ($ts, $tr) = each %tcs) {
parse_test($ts, $tr);
}
subtest 'disabled' => sub {
my %tcs = (
'[1, [2, 3]]' => ['1', '[2', '3]'],
'[1, [2, [3]]]' => [1, '[2', '[3]]'],
'[1, (2, 3)]' => [1, '(2', '3)'],
);
while (my ($ts, $tr) = each %tcs) {
parse_test($ts, $tr, nested => 0);
}
my %tests = (
enabled => ['nested', [qw(nested 1)]],
disabled => ['no_nested', [qw(nested 0)]],
'default (enabled)' => ['nested', []],
);
while (my ($tname, $tc) = each %tests) {
subtest $tname => sub {
while (my ($ts, $tr) = each %tcs) {
parse_test($ts, $tr->{$tc->[0]}, @{$tc->[1]});
}
};
}
};