[Bast-commits] r4623 - DBIx-Class-Tree-NestedSet/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-07-25 01:43:10 +0100 (Fri, 25 Jul 2008)
New Revision: 4623

Added:
   DBIx-Class-Tree-NestedSet/t/basic.t
Log:
Add some basic tests.

Added: DBIx-Class-Tree-NestedSet/t/basic.t
===================================================================
--- DBIx-Class-Tree-NestedSet/t/basic.t	                        (rev 0)
+++ DBIx-Class-Tree-NestedSet/t/basic.t	2008-07-25 00:43:10 UTC (rev 4623)
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+use Test::More tests => 6;
+use DBICx::TestDatabase;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+BEGIN { use_ok('TestSchema') }
+
+my $schema = DBICx::TestDatabase->new('TestSchema');
+isa_ok($schema, 'DBIx::Class::Schema');
+
+my $trees = $schema->resultset('Tree');
+isa_ok($trees, 'DBIx::Class::ResultSet');
+
+my $root_node = $trees->create({ content => 'foo' });
+isa_ok($root_node, 'DBIx::Class::Row');
+
+is($root_node->children->count, 0);
+
+my $child_node = $root_node->add_to_children({ content => 'bar' });
+is($root_node->children->count, 1);