[dbsrgits/DBIx-Class-Tree.git] / t / 11_adjacencylist_ordered.t

# 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::Ordered
));

TreeTest::Schema::Node->position_column( 'position' );
TreeTest::Schema::Node->parent_column( 'parent_id' );

my $tests = TreeTest::count_tests();
plan tests => $tests;
TreeTest::run_tests();

1;
Commit	Line	Data
c11aa533	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;