/[wait]/cvs-head/t/wais.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 /cvs-head/t/wais.t

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

revision 63 by laperla, Mon Jan 14 23:29:20 2002 UTC revision 64 by ulpfr, Sat Jan 19 20:48:29 2002 UTC
# Line 5  Line 5 
5  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
6  # Created On      : Tue Dec 12 16:55:05 1995  # Created On      : Tue Dec 12 16:55:05 1995
7  # Last Modified By: Ulrich Pfeifer  # Last Modified By: Ulrich Pfeifer
8  # Last Modified On: Sat Nov 11 16:33:54 2000  # Last Modified On: Sat Jan 19 21:46:24 2002
9  # Language        : Perl  # Language        : Perl
10  # Update Count    : 187  # Update Count    : 192
11  # Status          : Unknown, Use with caution!  # Status          : Unknown, Use with caution!
12  #  #
13  # (C) Copyright 1997, Ulrich Pfeifer, all rights reserved.  # (C) Copyright 1997, Ulrich Pfeifer, all rights reserved.
# Line 60  my $result = WAIT::Wais::Search({ Line 60  my $result = WAIT::Wais::Search({
60                                  });                                  });
61    
62  &headlines($result);  &headlines($result);
 my $id     = ($result->header)[9]->[6];  
 # no strict order  
 $$id = "wait;/tmp/wait-test-$$/sample/bibdb;13";  
 #$length = ($result->header)[9]->[3];  
 my @header = $result->header;  
   
 #my $types=($result->header)[9]->[5];  
 #print STDERR "\n## @$types\n";  
63    
64  my $short = ($result->header)[0]->[6];  my @header = $result->header;
65    my $N;
66    for (my $n=0;$n<@header;$n++) {
67      $N = $n if ${$header[$n]->[6]} eq "wait;/tmp/wait-test-$$/sample/bibdb;13";
68    }
69    my $id    = ($result->header)[$N]->[6];
70    my $short = ($result->header)[$N]->[6];
71    
72  my $result_text = $result->text;  my $result_text = $result->text;
73  print $#header >= 14 ?  print $#header >= 14 ?
# Line 90  print $result_text =~ m!Pfeifer/Fuhr:93! Line 88  print $result_text =~ m!Pfeifer/Fuhr:93!
88      "# result_text[$result_text]\nnot ok 6\n";      "# result_text[$result_text]\nnot ok 6\n";
89    
90  my @x = $short->split;  my @x = $short->split;
91  print $x[2] =~ /test.ste 3585 393$/ || $x[2] == 1 ?  print $x[2] =~ /test.ste 3585 393$/ || $x[2] == 13 ?
92      "ok 7\n" :      "ok 7\n" :
93      "# \@x:[@x]\nnot ok 7\n";      "# \@x:[@x]\nnot ok 7\n";
94    
Legend:
Removed from v.63  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.26