t/05-naming.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

#!/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)';
}