#!/usr/bin/env perl

use strict;
use warnings;

use Test::More tests => 6;
use Clustericious::Config;

my $confa = Clustericious::Config->new(\(my $a = <<'EOT'));
{
   "a" : "valuea",
   "b" : "valueb",
   "c" : {
        "x" : "y"
         }
}
EOT

my $confb = Clustericious::Config->new(\(my $b = <<'EOT'));
{
   "a" : "valuea"
}
EOT

is $confa->a, 'valuea', "value a set";
is $confa->b, 'valueb', "value b set";

eval { $confa->missing };
like $@, qr/'missing' not found/, "missing a value";

eval { $confb->missing };
like $@, qr/'missing' not found/, "missing a value";

eval { $confb->b };
like $@, qr/'b' not found/, "no autovivivication in other classes";

is $confb->c(default => ''), '', "no autovivication in other classes";

1;