diff options
Diffstat (limited to 't/003-minimum-spanning-tree.t')
-rw-r--r-- | t/003-minimum-spanning-tree.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/003-minimum-spanning-tree.t b/t/003-minimum-spanning-tree.t index 9421901..7094588 100644 --- a/t/003-minimum-spanning-tree.t +++ b/t/003-minimum-spanning-tree.t @@ -67,7 +67,9 @@ my $edge_calculator = sub { return @{ $graph{$vertex} }; }; +SKIP: { my $graph = Graph::Implicit->new($edge_calculator); +skip "not implemented yet", 6 unless $graph->can('prim'); for my $traversal (qw/prim/) { for my $vertex (keys %mst) { my @visited; @@ -80,3 +82,4 @@ for my $traversal (qw/prim/) { "$traversal is the mst from $vertex"); } } +} |