projects
/
webpac2
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added header_first to WebPAC::Input::CSV
[webpac2]
/
t
/
7-est.t
diff --git
a/t/7-est.t
b/t/7-est.t
index
d47dd43
..
2a74811
100755
(executable)
--- a/
t/7-est.t
+++ b/
t/7-est.t
@@
-2,12
+2,12
@@
use strict;
use strict;
-use Test::More tests => 1
0
;
+use Test::More tests => 1
3
;
use Test::Exception;
use Cwd qw/abs_path/;
use File::Temp qw/tempdir/;
use Test::Exception;
use Cwd qw/abs_path/;
use File::Temp qw/tempdir/;
-use Data::Dump
er
;
-use
blib
;
+use Data::Dump;
+use
lib 'lib'
;
BEGIN {
use_ok( 'WebPAC::Output::Estraier' );
BEGIN {
use_ok( 'WebPAC::Output::Estraier' );
@@
-63,7
+63,10
@@
ok(my @res = $est_s->search(
cmp_ok(($#res + 1), '==', $max, "$max hits");
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' ), "nodedel");
+ok($est->master( action => 'nodedel', name => 'webpac2test_link' ), "nodedel");