--- trunk/t/01-frey-config.t 2008/10/31 22:55:08 219 +++ trunk/t/01-frey-config.t 2008/10/31 23:10:08 221 @@ -2,7 +2,7 @@ use strict; use warnings; -use Test::More tests => 8; +use Test::More tests => 12; use lib 'lib'; use Data::Dump qw/dump/; @@ -33,3 +33,11 @@ ok( $o->config->{test}, 'test' ); ok( $o->config->{config}, 'config' ); is( $o->config->{numeric}, 42, 'numeric' ); + +ok( my $whole = $o->config('Test::Mock'), 'explicit package' ); +diag dump($whole) if $debug; + +cmp_ok( $o->config->{test}, 'eq', $o->config('Test::Mock')->{test}, 'text' ); + +ok( ! eval { $o->config('non-existenting') }, 'non-existing' ); +ok( $@, 'detected' );