/[Search-Estraier]/trunk/t/5_Node.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/5_Node.t

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

revision 137 by dpavlin, Tue May 9 14:05:57 2006 UTC revision 140 by dpavlin, Wed May 10 14:08:34 2006 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use blib;  use blib;
5    
6  use Test::More tests => 132;  use Test::More tests => 142;
7  use Test::Exception;  use Test::Exception;
8  use Data::Dumper;  use Data::Dumper;
9    
# Line 85  if ($#nodes > 42) { Line 85  if ($#nodes > 42) {
85    
86  This tests create three nodes in your Hyper Estraier.  This tests create three nodes in your Hyper Estraier.
87    
88  Since you have more than 43 modes, and Hyper Estraier seems to be limited to  Since you have more than 43 modes, and Hyper Estraier needs more than
89  maximum of 46 nodes on each estmaster process, expect tests to fail.  1024 file descriptors for more than 46 nodes, expect tests to fail.
90    
91    If tests do fail, you can try to add
92    
93    ulimit -n 2048
94    
95    before staring estmaster, which will increase number of available nodes
96    to 96 before estmaster runs out of file descriptors.
97    
98  _END_OF_WARNING_  _END_OF_WARNING_
99  }  }
# Line 252  foreach my $node_name ( $test1_node , $t Line 259  foreach my $node_name ( $test1_node , $t
259          ), "nodedel $node_name: $msg");          ), "nodedel $node_name: $msg");
260  }  }
261    
262    # test create
263    my $node_name = '_test_create_' . $$;
264    my $node_label = "test $$ label";
265    
266    ok($node = new Search::Estraier::Node(
267            url => "http://localhost:1978/node/$node_name",
268            create => 1,
269            label => $node_label,
270            croak_on_error => 1
271    ), "new create+croak");
272    
273    cmp_ok($node->name, 'eq', $node_name, "node $node_name exists");
274    cmp_ok($node->label, 'eq', $node_label, "node label: $node_label");
275    
276    ok($node = new Search::Estraier::Node(
277            url => "http://localhost:1978/node/$node_name",
278            create => 1,
279            label => $node_label,
280            croak_on_error => 0
281    ), "new create existing");
282    
283    ok($node = new Search::Estraier::Node(
284            url => "http://localhost:1978/node/$node_name",
285            create => 1,
286            label => $node_label,
287            croak_on_error => 1
288    ), "new create+croak existing");
289    
290    # cleanup
291    ok($msg = $node->master(
292            action => 'nodedel',
293            name => $node_name,
294    ), "nodedel $node_name: $msg");
295    
296    # and again, this time without node
297    ok($node = new Search::Estraier::Node(
298            url => "http://localhost:1978/node/$node_name",
299            create => 1,
300            label => $node_label,
301            croak_on_error => 0
302    ), "new create non-existing");
303    
304    cmp_ok($node->name, 'eq', $node_name, "node $node_name exists");
305    cmp_ok($node->label, 'eq', $node_label, "node label: $node_label");
306    
307    # cleanup
308    ok($msg = $node->master(
309            action => 'nodedel',
310            name => $node_name,
311    ), "nodedel $node_name: $msg");
312    
313  diag "over";  diag "over";
Legend:
Removed from v.137  
changed lines
  Added in v.140
  ViewVC Help
Powered by ViewVC 1.1.26