X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2F7-est.t;h=2a748114a2778aed0039efeefafd5baa4d9dc42a;hb=33156dfb36756fcafdf27a56b3254344aab06d09;hp=2664b5b088a4e4c06431623efe3c4517410325a9;hpb=02badf477628fd964dae1530c0021e9ce425adb2;p=webpac2

diff --git a/t/7-est.t b/t/7-est.t
index 2664b5b..2a74811 100755
--- a/t/7-est.t
+++ b/t/7-est.t
@@ -2,12 +2,12 @@
 
 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/;
-use Data::Dumper;
-use blib;
+use Data::Dump;
+use lib 'lib';
 
 BEGIN {
 use_ok( 'WebPAC::Output::Estraier' );
@@ -30,10 +30,6 @@ my $config = {
 
 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: ',
@@ -54,12 +50,12 @@ my $ds = {
 
 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,
@@ -67,5 +63,10 @@ ok(my @res = $est->search(
 
 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");