diff options
Diffstat (limited to 't')
-rw-r--r-- | t/01-config.t | 36 |
1 files changed, 35 insertions, 1 deletions
diff --git a/t/01-config.t b/t/01-config.t index c10dad6..4393eef 100644 --- a/t/01-config.t +++ b/t/01-config.t @@ -100,6 +100,19 @@ is_deeply( $props, {name=>'coll1'}, 'solo il nome'); + +is_deeply( + [$collections[0]->get_parents()], + [], + 'no parents'); +is_deeply( + [$collections[0]->get_children()], + [], + 'no children'); +is_deeply( + [$collections[0]->get_resources()], + [], + 'no resources'); } WebCoso::Config->clear(); @@ -107,7 +120,7 @@ WebCoso::Config->clear(); { my $conf_file=<<'EOF'; my $c1=coll({it=>'coll1',en=>'coll1-en'}); -coll('coll2',[$c1]); +coll('coll2',[],[$c1]); EOF ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"), @@ -116,6 +129,9 @@ ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"), my @collections=WebCoso::Config->get_all_collections(); is(scalar @collections,2,'due collezioni'); +# qui sto assumendo che le collezioni vengano registrate in ordine di +# definizione. Forse non sarĂ sempre vero + is_deeply( [sort $collections[0]->axis('language')], ['en', 'it'], @@ -128,4 +144,22 @@ is( $collections[0]->properties(language=>'it')->{name}, 'coll1', 'nome it'); + +is_deeply( + [$collections[0]->get_parents()], + [$collections[1]], + 'c2 padre di c1'); +is_deeply( + [$collections[0]->get_children()], + [], + 'c1 no children'); +is_deeply( + [$collections[1]->get_parents()], + [], + 'c2 no parents'); +is_deeply( + [$collections[1]->get_children()], + [$collections[0]], + 'c1 figlio di c2'); + } |