summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordoy <doy@tozt.net>2008-12-15 04:50:57 -0500
committerdoy <doy@tozt.net>2008-12-15 04:50:57 -0500
commit0cebe87c6a3f05c0767840993fb6c53faab4c2f0 (patch)
tree4e750dcb2a4092bd4a91c9c33b552866658bdfea
parent5da8be592d87b2b04d920f085315fad662db6872 (diff)
downloadgraph-implicit-0cebe87c6a3f05c0767840993fb6c53faab4c2f0.tar.gz
graph-implicit-0cebe87c6a3f05c0767840993fb6c53faab4c2f0.zip
simplify edge calculation tests a bit
-rw-r--r--t/001-basic.t20
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},