aboutsummaryrefslogtreecommitdiff
path: root/t/05-naming.t
diff options
context:
space:
mode:
Diffstat (limited to 't/05-naming.t')
-rw-r--r--t/05-naming.t43
1 files changed, 0 insertions, 43 deletions
diff --git a/t/05-naming.t b/t/05-naming.t
deleted file mode 100644
index 5c645e0..0000000
--- a/t/05-naming.t
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use warnings;
-use Path::Class;
-use Test::More 'no_plan';
-use Test::Exception;
-use WebCoso::Config;
-
-my $thisdir=file($0)->parent->absolute;
-
-{
-my $conf_file=<<'EOF';
-$res1=res('src/file1','Id','dst/file1');
-$res2=res('src/file2','Id','dst/file2');
-$coll1=coll('collezione');
-EOF
-
-ok(WebCoso::Config->read_scalar($conf_file,"$thisdir/config-in-test"),
- 'eseguita la configurazione');
-is((WebCoso::Config->get_res_by_name('res1')
- ->get_axis_values('filename'))[0],
- "$thisdir/src/file1",
- 'ok primo nome');
-is((WebCoso::Config->get_res_by_name('res2')
- ->get_axis_values('filename'))[0],
- "$thisdir/src/file2",
- 'ok secondo nome');
-is(WebCoso::Config->get_coll_by_name('coll1')
- ->get_properties(language=>'')->{name},
- 'collezione',
- 'ok nome collezione');
-
-throws_ok {
- WebCoso::Config->get_res_by_name('coll1')
- }
- 'WebCoso::X::NoSuchResource',
- 'muore se si chiede il tipo errato (r-c)';
-throws_ok {
- WebCoso::Config->get_coll_by_name('res1')
- }
- 'WebCoso::X::NoSuchCollection',
- 'muore se si chiede il tipo errato (c-r)';
-}