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
   8 BEGIN {   # This must happen before the schema is loaded
   9
  10   require TreeTest::Schema::Node;
  11
  12   TreeTest::Schema::Node->load_components(qw(
  13     Tree::AdjacencyList::Ordered
  14   ));
  15
  16   TreeTest::Schema::Node->position_column( 'position' );
  17   TreeTest::Schema::Node->parent_column( 'parent_id' );
  18 }
  19
  20 use TreeTest;
  21 my $tests = TreeTest::count_tests();
  22 plan tests => $tests;
  23 TreeTest::run_tests();
  24
  25 1;