46577: Fix perl errors, thanks to contribution from rufus@nonstuff.de (Rufus), r=me

git-svn-id: svn://10.0.0.236/trunk@74934 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
akkana%netscape.com
2000-07-27 20:57:49 +00:00
parent 49d221c84c
commit e346c4328d
2 changed files with 2 additions and 4 deletions

View File

@@ -43,7 +43,6 @@ if ($status != 0) {
print "Testing simple html to plaintext formatting ...\n";
$status = system("TestOutput -i text/html -o text/plain -f 34 -w 70 -c OutTestData/simplefmt.out OutTestData/simple.html");
print "xxxxxxxx Status = " + $status + "\n";
if ($status != 0) {
print("Simple formatting test failed.\n");
$errmsg = "$errmsg simplefmt.out ";
@@ -57,7 +56,7 @@ if ($status != 0) {
}
# print "Testing wrapped and formatted plaintext ...\n";
$status = system("# TestOutput -i text/html -o text/plain -f 32 -c OutTestData/plainwrap.out OutTestData/plain.html");
# $status = system("TestOutput -i text/html -o text/plain -f 32 -c OutTestData/plainwrap.out OutTestData/plain.html");
# if ($status != 0) {
# print "Wrapped plaintext test failed.\n";
# $errmsg = "$errmsg plainwrap.out";