diff options
Diffstat (limited to 't/05-naming.t')
-rw-r--r-- | t/05-naming.t | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/t/05-naming.t b/t/05-naming.t deleted file mode 100644 index 5c645e0..0000000 --- a/t/05-naming.t +++ /dev/null @@ -1,43 +0,0 @@ -#!/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::NoSuchResource', - 'muore se si chiede il tipo errato (r-c)'; -throws_ok { - WebCoso::Config->get_coll_by_name('res1') - } - 'WebCoso::X::NoSuchCollection', - 'muore se si chiede il tipo errato (c-r)'; -} |