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

2 files changed, 43 insertions, 14 deletions

diff --git a/t/01-config.t b/t/01-config.t
index 4fee455..3e82cd2 100644
--- a/t/01-config.t
+++ b/t/01-config.t
@@ -57,20 +57,6 @@ WebCoso::Config->clear();
 
 {
 my $conf_file=<<'EOF';
-res('src/file1.rest.txt','src/nonce.rest.txt','Id','dst/file.html');
-EOF
-
-throws_ok {
-    WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test")
-  }
-    'WebCoso::X::ConfigError',
-        'muore se non trova il file';
-}
-
-WebCoso::Config->clear();
-
-{
-my $conf_file=<<'EOF';
 coll('coll1');
 EOF
 
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)';
+}