diff options
author | doy <doy@tozt.net> | 2008-12-15 04:50:57 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-12-15 04:50:57 -0500 |
commit | 0cebe87c6a3f05c0767840993fb6c53faab4c2f0 (patch) | |
tree | 4e750dcb2a4092bd4a91c9c33b552866658bdfea /t | |
parent | 5da8be592d87b2b04d920f085315fad662db6872 (diff) | |
download | graph-implicit-0cebe87c6a3f05c0767840993fb6c53faab4c2f0.tar.gz graph-implicit-0cebe87c6a3f05c0767840993fb6c53faab4c2f0.zip |
simplify edge calculation tests a bit
Diffstat (limited to 't')
-rw-r--r-- | t/001-basic.t | 20 |
1 files changed, 4 insertions, 16 deletions
diff --git a/t/001-basic.t b/t/001-basic.t index ca12425..a464557 100644 --- a/t/001-basic.t +++ b/t/001-basic.t @@ -40,24 +40,12 @@ for my $vertex (qw/a b c d e f g h/) { "calculated vertices reachable from $vertex correctly"); } my %edges = ( - a => [map { [a => $_] } @{ $graph{a} }], - b => [map { [b => $_] } @{ $graph{b} }], - c => [map { [c => $_] } @{ $graph{c} }], - d => [map { [d => $_] } @{ $graph{d} }], - e => [map { [e => $_] } @{ $graph{e} }], - f => [map { [f => $_] } @{ $graph{f} }], - g => [map { [g => $_] } @{ $graph{g} }], - h => [map { [h => $_] } @{ $graph{h} }], + map { my $v = $_; $v => [map { [$v => $_] } @{ $graph{$v} }] } + qw/a b c d e f g h/, ); my %reachable_edges = ( - a => [map { @{ $edges{$_} } } @{ $reachable{a} }], - b => [map { @{ $edges{$_} } } @{ $reachable{b} }], - c => [map { @{ $edges{$_} } } @{ $reachable{c} }], - d => [map { @{ $edges{$_} } } @{ $reachable{d} }], - e => [map { @{ $edges{$_} } } @{ $reachable{e} }], - f => [map { @{ $edges{$_} } } @{ $reachable{f} }], - g => [map { @{ $edges{$_} } } @{ $reachable{g} }], - h => [map { @{ $edges{$_} } } @{ $reachable{h} }], + map { $_ => [map { @{ $edges{$_} } } @{ $reachable{$_} }] } + qw/a b c d e f g h/, ); for my $vertex (qw/a b c d e f g h/) { cmp_bag([$graph->edges($vertex)], $reachable_edges{$vertex}, |