diff options
author | dakkar <dakkar@luxion> | 2006-02-21 14:16:54 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2006-02-21 14:16:54 +0000 |
commit | 688cda55745a9b44d916fde0b2c63a9b44d43245 (patch) | |
tree | 08a3811486baa54146dac8592b4d890c8608aca5 /t/05-naming.t | |
parent | raccolta meta-dati, con test. TODO collezioni (diff) | |
download | WebCoso-688cda55745a9b44d916fde0b2c63a9b44d43245.tar.gz WebCoso-688cda55745a9b44d916fde0b2c63a9b44d43245.tar.bz2 WebCoso-688cda55745a9b44d916fde0b2c63a9b44d43245.zip |
r1349@narval: dakkar | 2006-02-21 12:47:25 +0100
eliminata un'eccezione (e test relativo); inizio del naming
git-svn-id: svn://luxion/repos/WebCoso/trunk@202 fcb26f47-9200-0410-b104-b98ab5b095f3
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)'; +} |