/[jsFind]/trunk/t/04words.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/04words.t

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

revision 22 by dpavlin, Sun Sep 5 17:57:21 2004 UTC revision 23 by dpavlin, Thu Oct 7 16:21:54 2004 UTC
# Line 22  my $t = new jsFind B => 20; Line 22  my $t = new jsFind B => 20;
22  my $max = 10000;  my $max = 10000;
23    
24  if (-r $dict) {  if (-r $dict) {
25          print STDERR " making B-Tree from $max words in $dict\n";          diag "making B-Tree from $max words in $dict";
26    
27          open(D, "$dict") || die "can't open '$dict': $!";          open(D, "$dict") || die "can't open '$dict': $!";
28    
# Line 51  if (-r $dict) { Line 51  if (-r $dict) {
51                  print T $t->to_string;                  print T $t->to_string;
52                  close(T);                  close(T);
53          }          }
54          print STDERR " words.txt created\n";          diag "words.txt created";
55    
56          if (open(T,"> words.dot")) {          if (open(T,"> words.dot")) {
57                  print T $t->to_dot;                  print T $t->to_dot;
58                  close(T);                  close(T);
59          }          }
60          print STDERR " words.dot created\n";          diag "words.dot created";
61    
62          cmp_ok($t->to_jsfind("./html/words"), '==', $max, " jsfind index");          cmp_ok($t->to_jsfind("./html/words"), '==', $max, " jsfind index");
63  }  }
Legend:
Removed from v.22  
changed lines
  Added in v.23
  ViewVC Help
Powered by ViewVC 1.1.26