From a13d230d8cddd73e2ed1fee39eb2bda5a7825680 Mon Sep 17 00:00:00 2001
From: Wilson Snyder <wsnyder@wsnyder.org>
Date: Sun, 4 Aug 2019 15:04:34 -0400
Subject: [PATCH] Tests: Less verbosity

---
 test_regress/driver.pl                | 3 ++-
 test_regress/t/t_array_list_bad.pl    | 4 ++--
 test_regress/t/t_inst_overwide_bad.pl | 1 -
 test_regress/t/t_param_concat_bad.pl  | 4 ++--
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/test_regress/driver.pl b/test_regress/driver.pl
index c2fef0f1a..1c5af8b73 100755
--- a/test_regress/driver.pl
+++ b/test_regress/driver.pl
@@ -335,7 +335,8 @@ sub one_test {
                  foreach my $proc ($::Fork->running) {
                      $other .= "  ".$proc->{test_pl_filename};
                  }
-                 $test->oprint("Simultaneous running tests:",$other,"\n") if $other;
+                 $test->oprint("Simultaneous running tests:",$other,"\n")
+                     if $other && !$opt_quiet;
                  if ($opt_stop) { die "%Error: --stop and errors found\n"; }
              }
              $self->{left_cnt}--;
diff --git a/test_regress/t/t_array_list_bad.pl b/test_regress/t/t_array_list_bad.pl
index 3361369bf..b09f43e8b 100755
--- a/test_regress/t/t_array_list_bad.pl
+++ b/test_regress/t/t_array_list_bad.pl
@@ -7,9 +7,9 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 # Lesser General Public License Version 3 or the Perl Artistic License
 # Version 2.0.
 
-scenarios(simulator => 1);
+scenarios(linter => 1);
 
-compile(
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );
diff --git a/test_regress/t/t_inst_overwide_bad.pl b/test_regress/t/t_inst_overwide_bad.pl
index 2fda6063d..b03acf9eb 100755
--- a/test_regress/t/t_inst_overwide_bad.pl
+++ b/test_regress/t/t_inst_overwide_bad.pl
@@ -12,7 +12,6 @@ scenarios(linter => 1);
 top_filename("t/t_inst_overwide.v");
 
 lint(
-    verilator_flags => [qw(-cc)],
     fails => $Self->{vlt_all},
     expect_filename => $Self->{golden_filename},
     );
diff --git a/test_regress/t/t_param_concat_bad.pl b/test_regress/t/t_param_concat_bad.pl
index a31c54525..8b3788624 100755
--- a/test_regress/t/t_param_concat_bad.pl
+++ b/test_regress/t/t_param_concat_bad.pl
@@ -7,11 +7,11 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 # Lesser General Public License Version 3 or the Perl Artistic License
 # Version 2.0.
 
-scenarios(simulator => 1);
+scenarios(linter => 1);
 
 top_filename("t/t_param_concat.v");
 
-compile(
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );