/[jsFind]/trunk/t/10homer.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/10homer.t

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

revision 36 by dpavlin, Sat Oct 30 20:50:39 2004 UTC revision 37 by dpavlin, Sat Oct 30 21:48:31 2004 UTC
# Line 10  use Data::Dumper; Line 10  use Data::Dumper;
10    
11  BEGIN { use_ok('jsFind'); }  BEGIN { use_ok('jsFind'); }
12    
13  my $t = new jsFind B => 100;  my $t = new jsFind B => 200;
14    
15  ok(-e "t/homer.txt", "Homer: The Odyssey preface");  my $file = shift @ARGV || 't/homer.txt';
16    
17    ok(-e $file, "reading input file $file");
18    
19  my $line = 0;  my $line = 0;
20  my $text = '';  my $text = '';
# Line 25  my $res; Line 27  my $res;
27    
28  my $full_text;  my $full_text;
29    
30  ok(open(U, "t/homer.txt"), "open homer.txt");  ok(open(U, $file), "open $file");
31  while(<U>) {  while(<U>) {
32          chomp;          chomp;
33          $line++;          $line++;
Legend:
Removed from v.36  
changed lines
  Added in v.37
  ViewVC Help
Powered by ViewVC 1.1.26