Tests for adjacency list as well as a bunch of fixes.

[dbsrgits/DBIx-Class-Tree.git] / t / 10_adjacencylist.t

diff --git a/t/10_adjacencylist.t b/t/10_adjacencylist.t
new file mode 100644 (file)
index 0000000..42b80cf
--- /dev/null
+++ b/t/10_adjacencylist.t
@@ -0,0 +1,19 @@
+# vim: filetype=perl:ts=8:sw=4:sts=4:et
+use strict;
+use warnings;
+use lib 't/lib';
+
+use Test::More;
+use TreeTest;
+
+TreeTest::Schema::Node->load_components(qw(
+    Tree::AdjacencyList
+));
+
+TreeTest::Schema::Node->parent_column( 'parent_id' );
+
+my $tests = TreeTest::count_tests();
+plan tests => $tests;
+TreeTest::run_tests();
+
+1;