--- trunk/t/3-normalize-set.t 2006/05/13 09:48:06 467 +++ trunk/t/3-normalize-set.t 2006/05/13 09:48:15 468 @@ -16,7 +16,7 @@ } ok(my $abs_path = abs_path($0), "abs_path"); -$abs_path =~ s#/[^/]*$#/../#; +$abs_path =~ s#/[^/]*$#/#; diag "abs_path: $abs_path" if ($debug); #throws_ok { new WebPAC::Normalize::XML( lookup_regex => 'foo' ) } qr/pair/, "lookup_regex without lookup"; @@ -188,7 +188,7 @@ clean_ds(); - my $n = read_file( "$abs_path/conf/normalize/isis_ffzg.pl" ); + my $n = read_file( "$abs_path/data/normalize.pl" ); $n .= "\n1;\n"; #diag "normalize code:\n$n\n"; test_s( $n );