t/10_adjacencylist.t

   1 # vim: filetype=perl:ts=8:sw=4:sts=4:et
   2 use strict;
   3 use warnings;
   4 use lib 't/lib';
   5
   6 use Test::More;
   7 use TreeTest;
   8
   9 TreeTest::Schema::Node->load_components(qw(
  10     Tree::AdjacencyList
  11 ));
  12
  13 TreeTest::Schema::Node->parent_column( 'parent_id' );
  14
  15 my $tests = TreeTest::count_tests();
  16 plan tests => $tests;
  17 TreeTest::run_tests();
  18
  19 1;