From 4db992c02a87a8416d8ac3abd389e979d6444e54 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 19 Oct 2005 09:58:36 +0000
Subject: aggiunto il supporto per i nomi delle collezioni

git-svn-id: svn://luxion/repos/WebCoso/trunk@5 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 t/01-config.t | 59 ++++++++++++++++++++++++++++++++++++++++++++++++++++-------
 1 file changed, 52 insertions(+), 7 deletions(-)

(limited to 't')

diff --git a/t/01-config.t b/t/01-config.t
index 6ae9fce..c10dad6 100644
--- a/t/01-config.t
+++ b/t/01-config.t
@@ -14,7 +14,8 @@ my $conf_file=<<'EOF';
 res('src/file1.rest.txt','Id','dst/file.html');
 EOF
 
-ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"),'eseguita la configurazione');
+ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"),
+   'eseguita la configurazione');
 
 my @resources=WebCoso::Config->get_all_resources();
 is(scalar @resources,1,'una risorsa definta');
@@ -53,7 +54,8 @@ my $conf_file=<<'EOF';
 res('src/file1.rest.txt','src/nonce.rest.txt','Id','dst/file.html');
 EOF
 
-ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"),'eseguita la configurazione');
+ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"),
+   'eseguita la configurazione');
 
 my @resources=WebCoso::Config->get_all_resources();
 is(scalar @resources,1,'una risorsa definta');
@@ -62,9 +64,11 @@ is_deeply(
     [$resources[0]->axis('filename')],
     ["$thisdir/src/file1.rest.txt", "$thisdir/src/nonce.rest.txt"],
     'filenames');
-dies_ok {$resources[0]->datastream(filename=>"$thisdir/src/nonce.rest.txt")} 'muore se non trova il file';
-
-
+dies_ok
+    {
+        $resources[0]->datastream(filename=>"$thisdir/src/nonce.rest.txt")
+    }
+        'muore se non trova il file';
 }
 
 WebCoso::Config->clear();
@@ -74,13 +78,54 @@ my $conf_file=<<'EOF';
 coll('coll1');
 EOF
 
-ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"),'eseguita la configurazione');
+ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"),
+   'eseguita la configurazione');
 
 is(scalar WebCoso::Config->get_all_resources(),0,'nessuna risorsa');
 
 my @collections=WebCoso::Config->get_all_collections();
-
 is(scalar @collections,1,'una collezione');
 
+is_deeply(
+    [$collections[0]->axes()],
+    ['language'],
+    'multilingua');
+is_deeply(
+    [$collections[0]->axis('language')],
+    [''],
+    'ma nessuna definita');
+my $props=$collections[0]->properties(language=>'');
+isa_ok($props,'HASH');
+is_deeply(
+    $props,
+    {name=>'coll1'},
+    'solo il nome');
+}
+
+WebCoso::Config->clear();
 
+{
+my $conf_file=<<'EOF';
+my $c1=coll({it=>'coll1',en=>'coll1-en'});
+coll('coll2',[$c1]);
+EOF
+
+ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"),
+   'eseguita la configurazione');
+
+my @collections=WebCoso::Config->get_all_collections();
+is(scalar @collections,2,'due collezioni');
+
+is_deeply(
+    [sort $collections[0]->axis('language')],
+    ['en', 'it'],
+    'due lingue');
+is(
+    $collections[0]->properties(language=>'en')->{name},
+    'coll1-en',
+    'nome en');
+is(
+    $collections[0]->properties(language=>'it')->{name},
+    'coll1',
+    'nome it');
 }
-- 
cgit v1.2.3