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

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)';
+}