use strict;
use warnings;
use Path::Class;
use Test::More 'no_plan';
use Test::Exception;
use WebCoso::Config;
my $thisdir=file($0)->parent->absolute;
{
my $conf_file=<<'EOF';
$res1=res('src/file1','Id','dst/file1');
$res2=res('src/file2','Id','dst/file2');
$coll1=coll('collezione');
EOF
ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"),
'eseguita la configurazione');
is((WebCoso::Config->get_res_by_name('res1')
->get_axis_values('filename'))[0],
"$thisdir/src/file1",
'ok primo nome');
is((WebCoso::Config->get_res_by_name('res2')
->get_axis_values('filename'))[0],
"$thisdir/src/file2",
'ok secondo nome');
is(WebCoso::Config->get_coll_by_name('coll1')
->get_properties(language=>'')->{name},
'collezione',
'ok nome collezione');
throws_ok {
WebCoso::Config->get_res_by_name('coll1')
}
'WebCoso::X::NameError',
'muore se si chiede il tipo errato (r-c)';
throws_ok {
WebCoso::Config->get_coll_by_name('res1')
}
'WebCoso::X::NameError',
'muore se si chiede il tipo errato (c-r)';
}