Skip to content
Browse files

test plain Tree child

  • Loading branch information...
1 parent d4b9ee6 commit ebe0b37843dd7e93d0c5201ce897288bbcde9fff @mjgardner committed Feb 19, 2012
Showing with 6 additions and 1 deletion.
  1. +6 −1 t/test.t
View
7 t/test.t
@@ -1,9 +1,10 @@
#!perl
use Modern::Perl;
-use Test::Most tests => 15;
+use Test::Most tests => 16;
use Path::Class;
+use Tree;
use Tree::Path::Class;
my $tree = new_ok( 'Tree::Path::Class' => [ dir('test_dir') ], 'test root' );
@@ -39,3 +40,7 @@ is_deeply(
my $empty_tree = new_ok( 'Tree::Path::Class' => [], 'new empty tree' );
is( $empty_tree->value, undef, 'undef root value' );
is( $empty_tree->path, undef, 'undef root path' );
+
+my $plain_child = Tree->new();
+lives_ok( sub { $empty_tree->add_child($plain_child) },
+ 'add plain Tree child' );

0 comments on commit ebe0b37

Please sign in to comment.
Something went wrong with that request. Please try again.