version 1.2, 2004/12/06 20:34:57
|
version 1.4, 2024/07/08 22:06:15
|
Line 1
|
Line 1
|
<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" |
<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" |
"http://lpml.sourceforge.net/DTD/piml.dtd"> |
"http://lpml.sourceforge.net/DTD/piml.dtd"> |
<!-- ntpcheck.piml --> |
<!-- html_parser_check.piml --> |
<!-- Matthew Hall --> |
<!-- Matthew Hall --> |
|
|
<!-- $Id$ --> |
<!-- $Id$ --> |
Line 70 if (! $first_test_result) {
|
Line 70 if (! $first_test_result) {
|
print "Unable to run first HTML::Parser test\n"; |
print "Unable to run first HTML::Parser test\n"; |
} elsif ($first_test_result ne $first_expected_result) { |
} elsif ($first_test_result ne $first_expected_result) { |
print <<"END"; |
print <<"END"; |
**** WARNING: HTML::Parser is not working properly. |
**** ERROR: HTML::Parser is not working properly. |
You are using version $version. For test 1 it returned |
You are using version $version. For test 1 it returned |
"$first_test_result" |
"$first_test_result" |
END |
END |
Line 90 if (! $second_test_result) {
|
Line 90 if (! $second_test_result) {
|
print "Unable to run second HTML::Parser test\n"; |
print "Unable to run second HTML::Parser test\n"; |
} elsif ($second_test_result ne $second_expected_result) { |
} elsif ($second_test_result ne $second_expected_result) { |
print <<"END"; |
print <<"END"; |
**** WARNING: HTML::Parser is not working properly. |
**** ERROR: HTML::Parser is not working properly. |
You are using version $version. For test 2 it returned |
You are using version $version. For test 2 it returned |
"$second_test_result" |
"$second_test_result" |
END |
END |