use strict;
use warnings;
use Test::More 'no_plan';
use YAML;
BEGIN { use_ok("Tree::File::YAML"); }
my $config = Tree::File::YAML->new("examples/simple", {readonly => 1});
isa_ok($config, "Tree::File::YAML", "the root");
eval { $config->set("aliens", 2) };
like($@, qr/readonly/, "can't call set on readonly tree");
eval { $config->delete("aliens") };
like($@, qr/readonly/, "can't call delete on readonly tree");
eval { $config->set("armies/german/prisoners", 2) };
like($@, qr/readonly/, "can't call deep set on readonly tree");
eval { $config->delete("armies/german/prisoners") };
like($@, qr/readonly/, "can't call deep delete on readonly tree");