aboutsummaryrefslogtreecommitdiff
path: root/t/05-naming.t
diff options
context:
space:
mode:
authordakkar <dakkar@luxion>2006-12-17 12:08:23 +0000
committerdakkar <dakkar@luxion>2006-12-17 12:08:23 +0000
commitfce73c4f1cb1c3ebed4551e43108f3506bb66f51 (patch)
tree4b825dc642cb6eb9a060e54bf8d69288fbee4904 /t/05-naming.t
parent r1350@narval: dakkar | 2006-02-21 13:05:07 +0100 (diff)
downloadWebCoso-fce73c4f1cb1c3ebed4551e43108f3506bb66f51.tar.gz
WebCoso-fce73c4f1cb1c3ebed4551e43108f3506bb66f51.tar.bz2
WebCoso-fce73c4f1cb1c3ebed4551e43108f3506bb66f51.zip
pulizia: si ricomincia (di nuovo...)
git-svn-id: svn://luxion/repos/WebCoso/trunk@234 fcb26f47-9200-0410-b104-b98ab5b095f3
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)';
-}