2 |
|
|
3 |
use strict; |
use strict; |
4 |
|
|
5 |
use Test::More tests => 12; |
use Test::More tests => 10; |
6 |
use Test::Exception; |
use Test::Exception; |
7 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
8 |
use File::Temp qw/tempdir/; |
use File::Temp qw/tempdir/; |
30 |
|
|
31 |
ok(my $est = new WebPAC::Output::Estraier( %{ $config } ), "new WebPAC::Output::Estraier"); |
ok(my $est = new WebPAC::Output::Estraier( %{ $config } ), "new WebPAC::Output::Estraier"); |
32 |
|
|
|
ok(my $list = $est->master( action => 'nodelist' ), "nodelist"); |
|
|
|
|
|
like($list , qr/$config->{database}/, "found $config->{database}"); |
|
|
|
|
33 |
my $ds = { |
my $ds = { |
34 |
'Source' => { |
'Source' => { |
35 |
'name' => 'Izvor: ', |
'name' => 'Izvor: ', |