t/11_adjacencylist_ordered.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::Ordered
  11 ));
  12
  13 TreeTest::Schema::Node->position_column( 'position' );
  14 TreeTest::Schema::Node->parent_column( 'parent_id' );
  15
  16 my $tests = TreeTest::count_tests();
  17 plan tests => $tests;
  18 TreeTest::run_tests();
  19
  20 1;