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"; |
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 ); |