Don't announce tests run in empty directories

diff --git a/fips/mkfipsscr.pl b/fips/mkfipsscr.pl
index 29a26c116fbfd0373471430c2f16a854f4f81b07..361641d36eca9a9de07b9481afda51f5392cd947 100644 (file)
--- a/fips/mkfipsscr.pl
+++ b/fips/mkfipsscr.pl
@@ -306,6 +306,7 @@ my $rspdir = "rsp";
 my $rspignore = 0;
 my @bogus = ();                        # list of unmatched *.rsp files
 my $bufout = '';
+my $bufdir = '';
 my %_programs = ();            # list of external programs to check
 
 foreach (@ARGV)
@@ -423,7 +424,6 @@ else
 RM="$rmcmd"
 MKDIR="$mkcmd"
 TPREFIX=$tprefix
-
 END
 
        }
@@ -567,7 +567,7 @@ sub test_dir
                {
                $rsp =~ tr|/|\\|;
                $req =~ tr|/|\\|;
-               $bufout .= <<END;
+               $bufdir = <<END;
 
 echo Running tests in $req
 if exist "$rsp" rd /s /q "$rsp"
@@ -576,7 +576,7 @@ END
                }
        else
                {
-               $bufout .= <<END;
+               $bufdir = <<END;
 
 echo Running tests in "$req"
 \$RM "$rsp"
@@ -592,6 +592,10 @@ sub test_line
        my ($win32, $req, $tprefix, $tnam) = @_;
        my $rsp = $req;
        my $tcmd = $fips_tests{$tnam};
+
+       $bufout .= $bufdir;
+       $bufdir = "";
+               
        $rsp =~ s/req\/([^\/]*).req$/$rspdir\/$1.rsp/;
        if ($tcmd =~ /-f$/)
                {