2 |
|
|
3 |
use strict; |
use strict; |
4 |
|
|
5 |
use Test::More tests => 10; |
use Test::More tests => 13; |
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/; |
63 |
|
|
64 |
cmp_ok(($#res + 1), '==', $max, "$max hits"); |
cmp_ok(($#res + 1), '==', $max, "$max hits"); |
65 |
|
|
66 |
diag Dumper(\@res); |
ok($est->master( action => 'nodeadd', name => 'webpac2test_link', label => 'test' ), "nodeadd"); |
67 |
|
|
68 |
|
ok($est->add_link( from => 'webpac2test', to => 'webpac2test_link', credit => 42 ), "add_link"); |
69 |
|
|
70 |
ok($est->master( action => 'nodedel', name => 'webpac2test' ), "nodedel"); |
ok($est->master( action => 'nodedel', name => 'webpac2test' ), "nodedel"); |
71 |
|
ok($est->master( action => 'nodedel', name => 'webpac2test_link' ), "nodedel"); |
72 |
|
|