#!perl
use Test::Most tests => 4;
use Tree::Path::Class;
my $tree;
dies_ok( sub { $tree = Tree::Path::Class->new( {} ) },
'bad type to constructor' );
$tree = new_ok('Tree::Path::Class');
dies_ok( sub { $tree->set_value( {} ) }, 'bad type to set_value' );
my $child = 'foo';
dies_ok( sub { $tree->add_child($child) }, 'bad type to add_child' );