diff options
Diffstat (limited to 't/05-naming.t')
-rw-r--r-- | t/05-naming.t | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/t/05-naming.t b/t/05-naming.t new file mode 100644 index 0000000..0e6f22b --- /dev/null +++ b/t/05-naming.t @@ -0,0 +1,43 @@ +#!/usr/bin/perl +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)'; +} |