From 688cda55745a9b44d916fde0b2c63a9b44d43245 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Tue, 21 Feb 2006 14:16:54 +0000
Subject:  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
---
 t/01-config.t | 14 --------------
 t/05-naming.t | 43 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+), 14 deletions(-)
 create mode 100644 t/05-naming.t

(limited to 't')

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
@@ -55,20 +55,6 @@ throws_ok {
 
 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');
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)';
+}
-- 
cgit v1.2.3