Changeset 9a50a2 in git for Tst/regress.cmd
- Timestamp:
- Oct 22, 1999, 1:12:50 PM (25 years ago)
- Branches:
- (u'spielwiese', 'b324714bf5073469800caef737deba1366fbd81f')
- Children:
- 4779934d50b14b0a5161605c33419f8b20bf441d
- Parents:
- 928efb07b9136e43d71d0fc54a77ded832a005be
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Tst/regress.cmd
r928efb r9a50a2 2 2 3 3 ################################################################# 4 # $Id: regress.cmd,v 1.2 7 1999-09-27 11:06:29obachman Exp $4 # $Id: regress.cmd,v 1.28 1999-10-22 11:12:50 obachman Exp $ 5 5 # FILE: regress.cmd 6 6 # PURPOSE: Script which runs regress test of Singular … … 25 25 [-e [crit%[val]]] -- throw error if status difference [of crit] > val (in %) 26 26 [-m [crit]] -- merge status results [of crit] into result file 27 [-t] -- compute and call mtrack at the end, no diffs 27 28 [file.lst] -- read tst files from file.lst 28 29 [file.tst] -- test Singular script file.tst … … 329 330 330 331 # generate $root.res 331 if ($generate ne "yes" )332 if ($generate ne "yes" && ! $mtrack) 332 333 { 333 334 if ((-r "$root.res.gz.uu") && ! ( -z "$root.res.gz.uu")) … … 347 348 } 348 349 349 # prepare Singular run350 350 &mysystem("$rm -f tst_status.out"); 351 if ($verbosity > 2 && !$WINNT) 352 { 353 $system_call = "$cat $root.tst | $singular $singularOptions | $tee $root.new.res"; 351 my $resfile = "$root.new.res"; 352 $resfile = "$root.mtrack.res" if ($mtrack); 353 354 if ($mtrack) 355 { 356 $system_call = "$cat $root.tst | sed -e 's/\\\\\$/LIB \"general.lib\"; killall(); killall(\"proc\");system(\"mtrack\", \"$root.mtrack.unused\"); \\\$/' | $singular $singularOptions "; 357 $system_call .= ($verbosity > 2 ? " | $tee " : " > "); 358 $system_call .= "$root.mtrack.res"; 359 $system_call .= " 2>&1 " if ($verbosity <= 2); 354 360 } 355 361 else 356 362 { 357 $system_call = "$cat $root.tst | $singular $singularOptions > $root.new.res 2>&1"; 363 # prepare Singular run 364 if ($verbosity > 2 && !$WINNT) 365 { 366 $system_call = "$cat $root.tst | $singular $singularOptions | $tee $resfile"; 367 } 368 else 369 { 370 $system_call = "$cat $root.tst | $singular $singularOptions > $resfile 2>&1"; 371 } 358 372 } 359 373 # Go Singular, Go! … … 367 381 { 368 382 # check for Segment fault in res file 369 $exit_status = ! (&mysystem("$grep \"Segment fault\" $r oot.new.res> /dev/null 2>&1"));383 $exit_status = ! (&mysystem("$grep \"Segment fault\" $resfile > /dev/null 2>&1")); 370 384 371 385 if ($exit_status) … … 373 387 $error_cause = "Segment fault"; 374 388 } 375 els e389 elsif (! $mtrack) 376 390 { 377 391 &mysystem("$rm -f $root.diff"); 378 392 if ($generate eq "yes") 379 393 { 380 &mysystem("$cp $r oot.new.res$root.res");394 &mysystem("$cp $resfile $root.res"); 381 395 } 382 396 else … … 396 410 } 397 411 398 if (%checks && ! $exit_status && $generate ne "yes" )412 if (%checks && ! $exit_status && $generate ne "yes" && ! $mtrack) 399 413 { 400 414 & mysystem("$cp tst_status.out $root.new.stat"); … … 411 425 else 412 426 { 413 414 #clean up 415 if ($generate eq "yes") 416 { 417 & mysystem("$cp tst_status.out $root.stat"); 418 if (! $WINNT) 419 { 420 &mysystem("$gzip -cf $root.res | $uuencode $root.res.gz > $root.res.gz.uu"); 421 } 422 else 423 { 424 # uuencode is broken under windows 425 print "Warning: Can not generate $root.res.gz.uu under Windows\n"; 426 } 427 428 } 429 elsif (%merge) 430 { 431 if (! -r "$root.stat") 432 { 433 & mysystem("$cp tst_status.out $root.stat"); 434 } 435 else 436 { 437 & mysystem("$cp tst_status.out $root.new.stat"); 438 ($exit_status, $error_cause) = & tst_status_merge($root); 439 440 print (STDERR "Warning: Merge Problems: $error_cause\n") 441 if ($verbosity > 0 && $exit_status); 442 } 443 } 444 427 unless ($mtrack) 428 { 429 #clean up 430 if ($generate eq "yes") 431 { 432 & mysystem("$cp tst_status.out $root.stat"); 433 if (! $WINNT) 434 { 435 &mysystem("$gzip -cf $root.res | $uuencode $root.res.gz > $root.res.gz.uu"); 436 } 437 else 438 { 439 # uuencode is broken under windows 440 print "Warning: Can not generate $root.res.gz.uu under Windows\n"; 441 } 442 443 } 444 elsif (%merge) 445 { 446 if (! -r "$root.stat") 447 { 448 & mysystem("$cp tst_status.out $root.stat"); 449 } 450 else 451 { 452 & mysystem("$cp tst_status.out $root.new.stat"); 453 ($exit_status, $error_cause) = & tst_status_merge($root); 454 455 print (STDERR "Warning: Merge Problems: $error_cause\n") 456 if ($verbosity > 0 && $exit_status); 457 } 458 } 459 } 445 460 if ($keep ne "yes") 446 461 { 447 &mysystem("$rm -f tst_status.out $root.new.res $root.res $root.diff $root.new.stat"); 448 } 449 } 450 462 &mysystem("$rm -f tst_status.out $resfile $root.res $root.diff $root.new.stat"); 463 } 464 } 451 465 # und tschuess 452 466 return ($exit_status); … … 482 496 { 483 497 $verbosity = shift; 498 } 499 elsif(/^-t$/) 500 { 501 $mtrack = 1; 484 502 } 485 503 elsif(/^-r$/) … … 659 677 $tst_base = $_; 660 678 } 661 679 $tst_base =~ s/^\s*//; 680 $tst_base =~ s/(.*?)\s+.*/$1/; 662 681 $exit_code = &tst_check($tst_base) || $exit_code; 663 682
Note: See TracChangeset
for help on using the changeset viewer.