aboutsummaryrefslogtreecommitdiff
path: root/t/01-config.t
diff options
context:
space:
mode:
Diffstat (limited to 't/01-config.t')
-rw-r--r--t/01-config.t19
1 files changed, 8 insertions, 11 deletions
diff --git a/t/01-config.t b/t/01-config.t
index 5a3e6b7..f5dd870 100644
--- a/t/01-config.t
+++ b/t/01-config.t
@@ -20,16 +20,17 @@ ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"),
my @resources=WebCoso::Config->get_all_resources();
is(scalar @resources,1,'una risorsa definta');
-isa_ok($resources[0],'WebCoso::Config::Resource');
+isa_ok($resources[0],'WebCoso::Resource');
is_deeply(
[$resources[0]->get_axes()],
['filename'],
'un solo asse');
is_deeply(
- [$resources[0]->get_axis_value('filename')],
+ [$resources[0]->get_axis_values('filename')],
["$thisdir/src/file1.rest.txt"],
'filename');
-is($resources[0]->get_datastream(filename=>"$thisdir/src/file1.rest.txt"),
+my $content=do {my $fh=$resources[0]->get_property({filename=>"$thisdir/src/file1.rest.txt"},'datastream');local $/;<$fh>};
+is($content,
<<'EOF','');
Titolo
======
@@ -37,10 +38,6 @@ Titolo
testo
EOF
is_deeply(
- [$resources[0]->get_properties()],
- [],
- 'no properties');
-is_deeply(
[$resources[0]->get_collections()],
[],
'no collections');
@@ -92,7 +89,7 @@ is_deeply(
['language'],
'multilingua');
is_deeply(
- [$collections[0]->get_axis_value('language')],
+ [$collections[0]->get_axis_values('language')],
[],
'ma nessuna definita');
is_deeply(
@@ -100,7 +97,7 @@ is_deeply(
['language'],
'multilingua, insieme');
is_deeply(
- [$collections->get_axis_value('language')],
+ [$collections->get_axis_values('language')],
[],
'ma nessuna definita, insieme');
my $props=$collections[0]->get_properties(language=>'');
@@ -151,11 +148,11 @@ is(scalar @collections,2,'due collezioni');
# definizione. Forse non sarĂ  sempre vero
is_deeply(
- [sort $collections[0]->get_axis_value('language')],
+ [sort $collections[0]->get_axis_values('language')],
['en', 'it'],
'due lingue');
is_deeply(
- [sort $collections->get_axis_value('language')],
+ [sort $collections->get_axis_values('language')],
['en', 'it'],
'due lingue');
is(