aboutsummaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/01-config.t36
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');
+
}