use strict;
-use Test::More tests => 11;
+use Test::More tests => 13;
use Test::Exception;
use Cwd qw/abs_path/;
use File::Temp qw/tempdir/;
ok(my $est = new WebPAC::Output::Estraier( %{ $config } ), "new WebPAC::Output::Estraier");
-ok(my $list = $est->master( action => 'nodelist' ), "nodelist");
-
-like($list , qr/$config->{database}/, "found $config->{database}");
-
my $ds = {
'Source' => {
'name' => 'Izvor: ',
ok($est->add( id => 42, ds => $ds, type => 'search' ), "add");
-ok($est = new WebPAC::Search::Estraier( %{ $config } ), "new WebPAC::Search::Estraier");
+ok(my $est_s = new WebPAC::Search::Estraier( %{ $config } ), "new WebPAC::Search::Estraier");
my $query = 'demo';
my $max = 1;
-ok(my @res = $est->search(
+ok(my @res = $est_s->search(
phrase => $query,
get_attr => [ qw/ID Source/ ],
max => $max,
cmp_ok(($#res + 1), '==', $max, "$max hits");
-diag Dumper(\@res);
+ok($est->master( action => 'nodeadd', name => 'webpac2test_link', label => 'test' ), "nodeadd");
+
+ok($est->add_link( from => 'webpac2test', to => 'webpac2test_link', credit => 42 ), "add_link");
+
+ok($est->master( action => 'nodedel', name => 'webpac2test' ), "nodedel");
+ok($est->master( action => 'nodedel', name => 'webpac2test_link' ), "nodedel");