inizio del progetto: si possono definire semplici risorse via file di configurazione

git-svn-id: svn://luxion/repos/WebCoso/trunk@3 fcb26f47-9200-0410-b104-b98ab5b095f3

2 files changed, 47 insertions, 0 deletions

diff --git a/t/01-config.t b/t/01-config.t
new file mode 100644
index 0000000..f14f6c9
--- /dev/null
+++ b/t/01-config.t
@@ -0,0 +1,43 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Path::Class;
+use Test::More 'no_plan';
+
+my $thisdir=file($0)->parent->absolute;
+
+BEGIN { use_ok('WebCoso::Config'); }
+
+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');
+
+my @resources=WebCoso::Config->get_all_resources();
+is(scalar @resources,1,'una risorsa definta');
+
+isa_ok($resources[0],'WebCoso::Config::Resource');
+is_deeply(
+    [$resources[0]->axes()],
+    ['filename'],
+    'un solo asse');
+is_deeply(
+    [$resources[0]->axis('filename')],
+    ["$thisdir/src/file1.rest.txt"],
+    'filename');
+is($resources[0]->datastream(filename=>"$thisdir/src/file1.rest.txt"),
+   <<'EOF','');
+Titolo
+======
+
+testo
+EOF
+is_deeply(
+    [$resources[0]->properties()],
+    [],
+    'no properties');
+is_deeply(
+    [$resources[0]->collections()],
+    [],
+    'no collections');
diff --git a/t/src/file1.rest.txt b/t/src/file1.rest.txt
new file mode 100644
index 0000000..3af7f03
--- /dev/null
+++ b/t/src/file1.rest.txt
@@ -0,0 +1,4 @@
+Titolo
+======
+
+testo