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 Test::More tests => 10;
+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' );
@@ -63,7 +63,10 @@ ok(my @res = $est_s->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");