add basic tests

1 files changed, 65 insertions, 0 deletions

diff --git a/t/001-basic.t b/t/001-basic.t
new file mode 100644
index 0000000..e0415d0
--- /dev/null
+++ b/t/001-basic.t
@@ -0,0 +1,65 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 24;
+use Test::Deep;
+use Graph::Implicit;
+
+my %graph = (
+    a => [qw/  b c          /],
+    b => [qw/      d   f   h/],
+    c => [qw/a       e     h/],
+    d => [qw/a b c d e f g h/],
+    e => [qw/    c d        /],
+    f => [qw/               /],
+    g => [qw/            g  /],
+    h => [qw/          f g  /],
+);
+my $edge_calculator = sub {
+    my $vertex = shift;
+    return map { [$_, 1] } @{ $graph{$vertex} };
+};
+
+my $graph = Graph::Implicit->new($edge_calculator);
+for my $vertex (qw/a b c d e f g h/) {
+    cmp_bag([$graph->neighbors($vertex)], $graph{$vertex},
+            "calculated neighbors of $vertex correctly");
+}
+my %reachable = (
+    a => [qw/a b c d e f g h/],
+    b => [qw/a b c d e f g h/],
+    c => [qw/a b c d e f g h/],
+    d => [qw/a b c d e f g h/],
+    e => [qw/a b c d e f g h/],
+    f => [qw/          f    /],
+    g => [qw/            g  /],
+    h => [qw/          f g h/],
+);
+for my $vertex (qw/a b c d e f g h/) {
+    cmp_bag([$graph->vertices($vertex)], $reachable{$vertex},
+            "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} }],
+);
+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} }], # [[g=>g],[h=>f],[h=>g]]
+);
+for my $vertex (qw/a b c d e f g h/) {
+    cmp_bag([$graph->edges($vertex)], $reachable_edges{$vertex},
+            "calculated edges reachable from $vertex correctly");
+}