summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordoy <doy@tozt.net>2009-02-07 20:24:24 -0500
committerdoy <doy@tozt.net>2009-02-07 20:24:24 -0500
commitd128515f052cab9b83ecac8632722463ae44c2e4 (patch)
treeb7c55e5ed53ac741c87a8f42f2065eb46f263b51
parent646218c1f8e98fd9cf0e84fc2f833b285aade961 (diff)
downloadgraph-implicit-d128515f052cab9b83ecac8632722463ae44c2e4.tar.gz
graph-implicit-d128515f052cab9b83ecac8632722463ae44c2e4.zip
spanning tree tests shouldn't be using $traversal
-rw-r--r--t/003-minimum-spanning-tree.t10
1 files changed, 5 insertions, 5 deletions
diff --git a/t/003-minimum-spanning-tree.t b/t/003-minimum-spanning-tree.t
index 7094588..aa68ea8 100644
--- a/t/003-minimum-spanning-tree.t
+++ b/t/003-minimum-spanning-tree.t
@@ -70,16 +70,16 @@ my $edge_calculator = sub {
SKIP: {
my $graph = Graph::Implicit->new($edge_calculator);
skip "not implemented yet", 6 unless $graph->can('prim');
-for my $traversal (qw/prim/) {
+for my $spanning_tree (qw/prim/) {
for my $vertex (keys %mst) {
my @visited;
- my $tree = $graph->$traversal($vertex, sub { push @visited, $_[1] });
+ my $tree = $graph->$spanning_tree($vertex, sub { push @visited, $_[1] });
cmp_bag(\@visited, $reachable{$vertex},
- "$traversal visits each node exactly once from $vertex");
+ "$spanning_tree visits each node exactly once from $vertex");
ok(is_tree($tree),
- "$traversal creates a tree from $vertex");
+ "$spanning_tree creates a tree from $vertex");
cmp_deeply($tree, $mst{$vertex},
- "$traversal is the mst from $vertex");
+ "$spanning_tree is the mst from $vertex");
}
}
}