diff options
author | dakkar <dakkar@luxion> | 2006-12-17 12:08:23 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2006-12-17 12:08:23 +0000 |
commit | fce73c4f1cb1c3ebed4551e43108f3506bb66f51 (patch) | |
tree | 4b825dc642cb6eb9a060e54bf8d69288fbee4904 /t/05-naming.t | |
parent | r1350@narval: dakkar | 2006-02-21 13:05:07 +0100 (diff) | |
download | WebCoso-fce73c4f1cb1c3ebed4551e43108f3506bb66f51.tar.gz WebCoso-fce73c4f1cb1c3ebed4551e43108f3506bb66f51.tar.bz2 WebCoso-fce73c4f1cb1c3ebed4551e43108f3506bb66f51.zip |
pulizia: si ricomincia (di nuovo...)
git-svn-id: svn://luxion/repos/WebCoso/trunk@234 fcb26f47-9200-0410-b104-b98ab5b095f3
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)'; -} |