From 57f05eac1683d0b56e54ac9fdb117120169be9aa Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 26 Oct 2005 09:33:39 +0000
Subject: creato contenitore collezioni, migliorata gestione lingue

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

(limited to 't')

diff --git a/t/01-config.t b/t/01-config.t
index 78000a3..e8b8ee6 100644
--- a/t/01-config.t
+++ b/t/01-config.t
@@ -83,7 +83,9 @@ ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"),
 
 is(scalar WebCoso::Config->get_all_resources(),0,'nessuna risorsa');
 
-my @collections=WebCoso::Config->get_all_collections();
+my $collections=WebCoso::Config->get_collections();
+isa_ok($collections,'WebCoso::Config::Collections');
+my @collections=$collections->get_all_collections();
 is(scalar @collections,1,'una collezione');
 
 is_deeply(
@@ -92,8 +94,16 @@ is_deeply(
     'multilingua');
 is_deeply(
     [$collections[0]->axis('language')],
-    [''],
+    [],
     'ma nessuna definita');
+is_deeply(
+    [$collections->axes()],
+    ['language'],
+    'multilingua, insieme');
+is_deeply(
+    [$collections->axis('language')],
+    [],
+    'ma nessuna definita, insieme');
 my $props=$collections[0]->properties(language=>'');
 isa_ok($props,'HASH');
 is_deeply(
@@ -113,6 +123,14 @@ is_deeply(
     [$collections[0]->get_resources()],
     [],
     'no resources');
+is_deeply(
+    [$collections->get_root_collections()],
+    [@collections],
+    'una radice');
+is_deeply(
+    [$collections->get_leaf_collections()],
+    [@collections],
+    'una foglia');
 }
 
 WebCoso::Config->clear();
@@ -126,7 +144,8 @@ EOF
 ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"),
    'eseguita la configurazione');
 
-my @collections=WebCoso::Config->get_all_collections();
+my $collections=WebCoso::Config->get_collections();
+my @collections=$collections->get_all_collections();
 is(scalar @collections,2,'due collezioni');
 
 # qui sto assumendo che le collezioni vengano registrate in ordine di
@@ -136,6 +155,10 @@ is_deeply(
     [sort $collections[0]->axis('language')],
     ['en', 'it'],
     'due lingue');
+is_deeply(
+    [sort $collections->axis('language')],
+    ['en', 'it'],
+    'due lingue');
 is(
     $collections[0]->properties(language=>'en')->{name},
     'coll1-en',
@@ -144,6 +167,10 @@ is(
     $collections[0]->properties(language=>'it')->{name},
     'coll1',
     'nome it');
+is(
+    $collections[1]->properties(language=>'it')->{name},
+    'coll2',
+    'nome default');
 
 is_deeply(
     [$collections[0]->get_parents()],
@@ -161,7 +188,14 @@ is_deeply(
     [$collections[1]->get_children()],
     [$collections[0]],
     'c1 figlio di c2');
-
+is_deeply(
+    [$collections->get_root_collections()],
+    [$collections[1]],
+    'una radice');
+is_deeply(
+    [$collections->get_leaf_collections()],
+    [$collections[0]],
+    'una foglia');
 }
 
 WebCoso::Config->clear();
@@ -176,7 +210,8 @@ EOF
 ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"),
    'eseguita la configurazione (no strict)');
 
-my @collections=WebCoso::Config->get_all_collections();
+my $collections=WebCoso::Config->get_collections();
+my @collections=$collections->get_all_collections();
 is(scalar @collections,2,'due collezioni');
 
 is_deeply(
@@ -195,4 +230,12 @@ is_deeply(
     [$collections[1]->get_parents()],
     [$collections[0]],
     'c1 padre di c2');
+is_deeply(
+    [$collections->get_root_collections()],
+    [],
+    'nessuna radice');
+is_deeply(
+    [$collections->get_leaf_collections()],
+    [],
+    'nessuna foglia');
 }
-- 
cgit v1.2.3