github-repos/make
1
0
Fork 0
mirror of https://github.com/mirror/make.git synced 2025-03-24 08:41:18 +08:00
Code Issues Packages Projects Releases Wiki Activity

* tests/test_driver.pl: Support STDIN redirection.

Browse Source 
Before running tests, duplicate STDIN then reset it after the test
completes.  Also when -keep is provided, preserve the base and run
files.
This commit is contained in:
Paul Smith 2022-02-26 17:19:26 -05:00
parent 8b3e678ace
commit 2be8661433
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tests/test_driver.pl
View File

@ -509,12 +509,12 @@ sub print_centered
sub print_banner
{
# $testee is suite-defined
my $info = "Running tests for $testee on $osname\n";
my $len = &max (length($info), length($testee_version), 73) + 5;
my $info = "Running tests for $testee on $osname";
my $len = &max (length($info), length($testee_version), 77) + 2;
my $line = ("-" x $len) . "\n";
&print_centered ($len, $line);
&print_centered ($len, $info);
&print_centered ($len, $info."\n");
&print_centered ($len, $testee_version);
&print_centered ($len, $line);
print "\n";
@ -578,9 +578,15 @@ sub run_all_tests
$tests_run = 0;
$tests_passed = 0;
# make a copy of STDIN so we can reset it
open(INCOPY, "<&STDIN");
# Run the test!
$code = do $perl_testname;
# Restore STDIN
open(STDIN, "<&OLDIN");
++$categories_run;
$total_tests_run += $tests_run;
$total_tests_passed += $tests_passed;
@ -911,6 +917,11 @@ sub compare_output
}
}
if ($keep || ! $answer_matched) {
&create_file(&get_basefile, $answer);
&create_file(&get_runfile, $command_string);
}
if ($answer_matched && $test_passed) {
print "ok\n" if $debug;
++$tests_passed;
@ -920,9 +931,6 @@ sub compare_output
if (! $answer_matched) {
print "DIFFERENT OUTPUT\n" if $debug;
&create_file(&get_basefile, $answer);
&create_file(&get_runfile, $command_string);
print "\nCreating Difference File ...\n" if $debug;
# Create the difference file