/[webpac2]/trunk/t/7-est.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/7-est.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 458 by dpavlin, Wed May 10 14:08:15 2006 UTC revision 459 by dpavlin, Wed May 10 14:48:25 2006 UTC
# Line 2  Line 2 
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/;
# Line 63  ok(my @res = $est_s->search( Line 63  ok(my @res = $est_s->search(
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    
Legend:
Removed from v.458  
changed lines
  Added in v.459
  ViewVC Help
Powered by ViewVC 1.1.26