/[webpac2]/trunk/t/3-normalize-set.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/3-normalize-set.t

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

revision 467 by dpavlin, Fri May 12 21:46:19 2006 UTC revision 468 by dpavlin, Sat May 13 09:48:15 2006 UTC
# Line 16  BEGIN { Line 16  BEGIN {
16  }  }
17    
18  ok(my $abs_path = abs_path($0), "abs_path");  ok(my $abs_path = abs_path($0), "abs_path");
19  $abs_path =~ s#/[^/]*$#/../#;  $abs_path =~ s#/[^/]*$#/#;
20  diag "abs_path: $abs_path" if ($debug);  diag "abs_path: $abs_path" if ($debug);
21    
22  #throws_ok { new WebPAC::Normalize::XML( lookup_regex => 'foo' ) } qr/pair/, "lookup_regex without lookup";  #throws_ok { new WebPAC::Normalize::XML( lookup_regex => 'foo' ) } qr/pair/, "lookup_regex without lookup";
# Line 188  sub test_s { Line 188  sub test_s {
188    
189          clean_ds();          clean_ds();
190    
191          my $n = read_file( "$abs_path/conf/normalize/isis_ffzg.pl" );          my $n = read_file( "$abs_path/data/normalize.pl" );
192          $n .= "\n1;\n";          $n .= "\n1;\n";
193          #diag "normalize code:\n$n\n";          #diag "normalize code:\n$n\n";
194          test_s( $n );          test_s( $n );
Legend:
Removed from v.467  
changed lines
  Added in v.468
  ViewVC Help
Powered by ViewVC 1.1.26