Tests: Make standard lint() to replace inconsistent compile()

test_regress/driver.pl

@@ -37,15 +37,15 @@ $SIG{TERM} = sub { $Fork->kill_tree_all('TERM') if $Fork; die "Quitting...\n"; }
 
 # Map of all scenarios, with the names used to enable them
 our %All_Scenarios
-    = (dist  => [             "dist"],
-       atsim => ["simulator", "atsim"],
-       ghdl  => ["simulator", "ghdl"],
-       iv    => ["simulator", "iv"],
-       ms    => ["simulator", "ms"],
-       nc    => ["simulator", "nc"],
-       vcs   => ["simulator", "vcs"],
-       vlt   => ["simulator", "vlt_all", "vlt"],
-       vltmt => ["simulator", "vlt_all", "vltmt"],
+    = (dist  => [                       "dist"],
+       atsim => [          "simulator", "atsim"],
+       ghdl  => ["linter", "simulator", "ghdl"],
+       iv    => [          "simulator", "iv"],
+       ms    => ["linter", "simulator", "ms"],
+       nc    => ["linter", "simulator", "nc"],
+       vcs   => ["linter", "simulator", "vcs"],
+       vlt   => ["linter", "simulator", "vlt_all", "vlt"],
+       vltmt => [          "simulator", "vlt_all", "vltmt"],
     );
 
 #======================================================================
@@ -641,6 +641,19 @@ sub compile_vlt_flags {
     return @cmdargs;
 }
 
+sub lint {
+    my $self = (ref $_[0] ? shift : $Self);
+    my %param = (#
+                 %{$self},  # Default arguments are from $self
+                 # Lint specific default overrides
+                 make_main => 0,
+                 make_top_shell => 0,
+                 verilator_flags2 => ["--lint-only"],
+                 verilator_make_gcc => 0,
+                 @_);
+    $self->compile(%param);
+}
+
 sub compile {
     my $self = (ref $_[0]? shift : $Self);
     my %param = (%{$self}, @_);  # Default arguments are from $self
@@ -1912,9 +1925,9 @@ should be used.
 
 =item fails
 
-Set to 1 to indicate this step (C<compile> or C<execute>) is expected to
-fail.  Tests that are expected to fail generally have _bad in their
-filename.
+Set to 1 to indicate this step (C<compile> or C<execute> or C<lint>) is
+expected to fail.  Tests that are expected to fail generally have _bad in
+their filename.
 
 =item make_main
 
@@ -2039,10 +2052,9 @@ has succeeded. However, in the case of tests that are designed to fail at
 compile time, it is the only option. For example:
 
   compile(
-          v_flags2 => ["--lint-only"],
-          fails=>1,
-          expect_filename => $Self->{golden_filename},
-          );
+      fails => 1,
+      expect_filename => $Self->{golden_filename},
+      );
 
 Note expect_filename strips some debugging information from the logfile
 when comparing.

test_regress/t/t_assert_dup_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_assert_property_fail_1.pl

@@ -17,7 +17,7 @@ compile(
     );
 
 execute(
-    fails => 1
+    fails => 1,
     );
 
 file_grep($Self->{run_log_filename}, qr/'assert property' failed/);

test_regress/t/t_bitsel_const_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_bitsel_wire_array_bad.pl

@@ -7,12 +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);
 
 # Comple time only test
 
-compile(
-    verilator_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect =>
 '.*%Error: t/t_bitsel_wire_array_bad.v:\d+: Illegal assignment of constant to unpacked array

test_regress/t/t_case_default_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect =>
 '%Error: t/t_case_default_bad.v:\d+: Multiple default statements in case statement.

test_regress/t/t_case_genx_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_case_x_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect =>
 '%Warning-CASEX: t/t_case_x_bad.v:\d+: Suggest casez \(with \?\'s\) in place of casex \(with X\'s\)

test_regress/t/t_case_zx_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect =>
 '%Warning-CASEWITHX: t/t_case_zx_bad.v:\d+: Use of x constant in casez statement, \(perhaps intended \?/z in constant\)

test_regress/t/t_clk_scope_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_concat_large_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_const_bad.pl

@@ -7,13 +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(vlt => 1);
+scenarios(linter => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_const_dec_mixed_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect =>
 '%Error: t/t_const_dec_mixed_bad.v:\d+: Mixing X/Z/\? with digits not legal in decimal constant: x_1

test_regress/t/t_const_overflow_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_debug_fatalsrc_bt_bad.pl

@@ -10,8 +10,8 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 scenarios(vlt => 1);
 $ENV{VERILATOR_TEST_NO_GDB} and skip("Skipping due to VERILATOR_TEST_NO_GDB");
 
-compile(
-    v_flags2 => ["--lint-only --debug --gdbbt --debug-fatalsrc"],
+lint(
+    verilator_flags2 => ["--lint-only --debug --gdbbt --debug-fatalsrc"],
     fails => 1,
     expect =>
 '%Error: Internal Error: .*: --debug-fatal-src

test_regress/t/t_debug_sigsegv_bt_bad.pl

@@ -10,8 +10,8 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 scenarios(vlt => 1);
 $ENV{VERILATOR_TEST_NO_GDB} and skip("Skipping due to VERILATOR_TEST_NO_GDB");
 
-compile(
-    v_flags2 => ["--lint-only --debug --gdbbt --debug-sigsegv"],
+lint(
+    verilator_flags2 => ["--lint-only --debug --gdbbt --debug-sigsegv"],
     fails => $Self->{vlt_all},
     expect =>
 '.*

test_regress/t/t_display_bad.pl

@@ -7,10 +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(vlt => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_dpi_2exp_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => $Self->{vlt_all},
     expect =>
 '%Error: t/t_dpi_2exp_bad.v:11: Function was already DPI Exported, duplicate not allowed: dpix_twice

test_regress/t/t_dpi_dup_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => $Self->{vlt_all},
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_dpi_exp_bad.pl

@@ -7,11 +7,10 @@ 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(
-    v_flags2 => ["--lint-only"],
-    fails => $Self->{vlt_all},
+lint(
+    fails => 1,
     expect =>
 '%Error: t/t_dpi_exp_bad.v:\d+: DPI functions cannot return > 32 bits or four-state; use a two-state type or task instead: dpix_f_bit48__Vfuncrtn
 %Error: Exiting due to .*'

test_regress/t/t_dpi_logic_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => $Self->{vlt_all},
     expect =>
 '%Error: t/t_dpi_logic_bad.v:\d+: DPI function may not return type BASICDTYPE \'logic\' \(IEEE 2017 35.5.5\)

test_regress/t/t_dpi_name_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => $Self->{vlt_all},
     expect =>
 '%Error: t/t_dpi_name_bad.v:\d+: DPI function has illegal characters in C identifier name: badly.named

test_regress/t/t_dpi_openreg_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => $Self->{vlt_all},
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_enum_overlap_bad.pl

@@ -7,10 +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(vlt => 1);
+scenarios(linter => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_flag_future.pl

@@ -9,11 +9,8 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 scenarios(vlt => 1);
 
-compile(
+lint(
     verilator_flags2 => [qw(--lint-only -Wfuture-FUTURE1 -Wfuture-FUTURE2)],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     );
 
 ok(1);

test_regress/t/t_flag_nomod_bad.pl

@@ -9,8 +9,7 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 scenarios(vlt => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect =>
 '%Error: No top level module found

test_regress/t/t_flag_relinc.pl

@@ -9,12 +9,9 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 scenarios(vlt => 1);
 
-compile(
+lint(
     v_flags2 => ["--relative-includes",
                  "--lint-only $Self->{t_dir}/t_flag_relinc_dir/chip/t_flag_relinc_sub.v"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     );
 
 ok(1);

test_regress/t/t_flag_werror_bad1.pl

@@ -11,9 +11,8 @@ scenarios(vlt => 1);
 
 top_filename("t/t_flag_werror.v");
 
-compile(
-    v_flags2 => ["--lint-only"],
-    fails => $Self->{vlt_all},
+lint(
+    fails => 1,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_flag_werror_bad2.pl

@@ -11,8 +11,7 @@ scenarios(vlt => 1);
 
 top_filename("t/t_flag_werror.v");
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     verilator_flags => [qw(-cc -Werror-WIDTH)],
     expect_filename => $Self->{golden_filename},

test_regress/t/t_flag_wfatal.pl

@@ -11,12 +11,9 @@ scenarios(vlt => 1);
 
 top_filename("t/t_flag_wfatal.v");
 
-compile(
-    v_flags2 => ["--lint-only -Wno-fatal"],
+lint(
+    verilator_flags2 => ["--lint-only -Wno-fatal"],
     fails => 0,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_flag_woff.pl

@@ -9,11 +9,8 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 scenarios(vlt => 1);
 
-compile(
-    v_flags2 => ["--lint-only -Wno-WIDTH"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
+    verilator_flags2 => ["--lint-only -Wno-WIDTH"],
     );
 
 ok(1);

test_regress/t/t_for_comma_bad.pl

@@ -7,10 +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 => 'vlt');
+scenarios(linter => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_func_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_func_bad_width.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => $Self->{vlt_all},
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_func_begin2.pl

@@ -7,13 +7,10 @@ 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(
-    v_flags2 => ["--lint-only --inline-mult 1"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
+    verilator_flags2 => ["--lint-only --inline-mult 1"],
     );
 
 ok(1);

test_regress/t/t_func_const2_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_func_const_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_func_const_packed_array_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_func_const_packed_struct_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_func_const_packed_struct_bad2.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_func_const_struct_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_func_task_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect =>
 q{%Error: t/t_func_task_bad.v:\d+: Illegal call of a task as a function: task_as_func

test_regress/t/t_func_tie_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect =>
 q{%Error: t/t_func_tie_bad.v:\d+: Function/task output connected to constant instead of variable: b

test_regress/t/t_func_wide_out_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_gate_unsup.pl

@@ -7,14 +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);
 
-compile(
+lint(
     # Unsupported: UDP Tables
     verilator_flags2 => ["--lint-only --bbox-unsup"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     );
 
 ok(1);

test_regress/t/t_gen_cond_bitrange_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_gen_var_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_genvar_misuse_bad.pl

@@ -10,8 +10,7 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 scenarios(simulator => 1);
 $Self->{vlt_all} and unsupported("Verilator unsupported, bug408");
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect =>
 '.*%Error: t/t_genvar_misuse_bad.v:\d+: Use of genvar where not convertible to constant: i

test_regress/t/t_hierarchy_identifier_bad.pl

@@ -7,10 +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(vlt => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_hierarchy_unnamed.pl

@@ -7,14 +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(
-    v_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
-    );
+lint();
 
 ok(1);
 1;

test_regress/t/t_initial_dlyass_bad.pl

@@ -7,12 +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_initial_dlyass.v");
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect =>
 qr{%Warning-INITIALDLY: t/t_initial_dlyass.v:\d+: Delayed assignments .*

test_regress/t/t_inst_array_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_inst_misarray_bad.pl

@@ -7,14 +7,10 @@ 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(
-    verilator_flags2 => ["--lint-only"],
+lint(
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_inst_missing.pl

@@ -7,13 +7,10 @@ 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(
-    v_flags2 => ["--lint-only --Wall -Wno-DECLFILENAME"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
+    verilator_flags2 => ["--lint-only --Wall -Wno-DECLFILENAME"],
     );
 
 ok(1);

test_regress/t/t_inst_missing_bad.pl

@@ -7,10 +7,10 @@ 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(
-    v_flags2 => ["--lint-only --Wall -Wno-DECLFILENAME"],
+lint(
+    verilator_flags2 => ["--lint-only --Wall -Wno-DECLFILENAME"],
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_inst_overwide_bad.pl

@@ -7,16 +7,12 @@ 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_inst_overwide.v");
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     verilator_flags => [qw(-cc)],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     fails => $Self->{vlt_all},
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_interface_array_nocolon_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => $Self->{vlt_all},
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_interface_arraymux.pl

@@ -7,15 +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(
-    verilator_flags2 => ["--lint-only"],
-    fails => 0,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
-    );
+lint();
 
 ok(1);
 1;

test_regress/t/t_interface_mismodport_bad.pl

@@ -7,13 +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(
-    verilator_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_interface_param1.pl

@@ -7,14 +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(
-    v_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
-    );
+lint();
 
 ok(1);
 1;

test_regress/t/t_interface_top_bad.pl

@@ -7,13 +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(vlt => 1);
 
-compile(
-    verilator_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
     fails => 1,
     expect =>
 '%Error: t/t_interface_top_bad.v:\d+: Unsupported: Interfaced port on top level module',

test_regress/t/t_interface_typo_bad.pl

@@ -7,13 +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(
-    verilator_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
     fails => 1,
     # Used to be %Error: t/t_order_wireloop.v:\d+: Wire inputs its own output, creating circular logic .wire x=x.
     # However we no longer gate optimize this

test_regress/t/t_lint_always_comb_bad.pl

@@ -7,13 +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(
-    verilator_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_lint_always_comb_iface.pl

@@ -7,15 +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(vlt_all => 1);
+scenarios(linter => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
-    fails => 0,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
-    );
+lint();
 
 ok(1);
 1;

test_regress/t/t_lint_blksync_bad.pl

@@ -9,12 +9,9 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 scenarios(vlt_all => 1);
 
-compile(
-    v_flags2 => ["--lint-only -Wwarn-BLKSEQ -Wwarn-COMBDLY"],
+lint(
+    verilator_flags2 => ["--lint-only -Wwarn-BLKSEQ -Wwarn-COMBDLY"],
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_blksync_loop.pl

@@ -7,14 +7,10 @@ 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(vlt_all => 1);
+scenarios(vlt => 1);
 
-compile(
+lint(
     verilator_flags2 => ["--lint-only -Wwarn-BLKSEQ -Wwarn-COMBDLY"],
-    fails => 0,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     );
 
 ok(1);

test_regress/t/t_lint_block_redecl_bad.pl

@@ -10,12 +10,8 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 scenarios(vlt_all => 1);
 $Self->{vlt_all} and unsupported("Verilator unsupported, bug485, false begin due to WHILE conversion blocks duplicate name detection");
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect =>
 '%Warning: duplicate...
 %Error: Exiting due to.*',

test_regress/t/t_lint_bsspace_bad.pl

@@ -9,11 +9,7 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 scenarios(vlt => 1);
 
-compile(
-    verilator_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
     fails => 1,
     expect =>
 '%Warning-BSSPACE: t/t_lint_bsspace_bad.v:\d+: Backslash followed by whitespace, perhaps the whitespace is accidental\?

test_regress/t/t_lint_colonplus_bad.pl

@@ -9,11 +9,7 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 scenarios(vlt => 1);
 
-compile(
-    verilator_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_lint_comb_bad.pl

@@ -9,11 +9,7 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 scenarios(vlt => 1);
 
-compile(
-    verilator_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
     fails => 1,
     expect =>
 q{%Error: t/t_lint_comb_bad.v:\d+: syntax error, unexpected '@'

test_regress/t/t_lint_comb_use.pl

@@ -7,14 +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(vlt_all => 1);
+scenarios(vlt => 1);
 
-compile(
+lint(
     verilator_flags2 => ["--lint-only --bbox-sys"],
     fails => 0,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     );
 
 ok(1);

test_regress/t/t_lint_declfilename.pl

@@ -7,14 +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(vlt_all => 1);
+scenarios(vlt => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
-    );
+lint();
 
 ok(1);
 1;

test_regress/t/t_lint_declfilename_bad.pl

@@ -11,12 +11,9 @@ scenarios(vlt => 1);
 
 top_filename("t/t_lint_declfilename.v");
 
-compile(
-    v_flags2 => ["--lint-only -Wall"],
+lint(
+    verilator_flags2 => ["--lint-only -Wall"],
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_defparam.pl

@@ -7,14 +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(vlt_all => 1);
+scenarios(vlt => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
-    );
+lint();
 
 ok(1);
 1;

test_regress/t/t_lint_defparam_bad.pl

@@ -11,12 +11,9 @@ scenarios(vlt => 1);
 
 top_filename("t/t_lint_defparam.v");
 
-compile(
-    v_flags2 => ["--lint-only -Wwarn-style -Wno-DECLFILENAME"],
+lint(
+    verilator_flags2 => ["--lint-only -Wwarn-style -Wno-DECLFILENAME"],
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_ifdepth_bad.pl

@@ -9,12 +9,9 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 scenarios(vlt_all => 1);
 
-compile(
-    v_flags2 => ["--lint-only -Wall -Wno-DECLFILENAME --if-depth 10"],
+lint(
+    verilator_flags2 => ["--lint-only -Wall -Wno-DECLFILENAME --if-depth 10"],
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_implicit_bad.pl

@@ -7,12 +7,12 @@ 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(vlt_all => 1);
+scenarios(vlt => 1);
 
 top_filename("t/t_lint_implicit.v");
 
-compile(
-    v_flags2 => ["--lint-only -Wwarn-IMPLICIT"],
+lint(
+    verilator_flags2 => ["--lint-only -Wwarn-IMPLICIT"],
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_lint_implicit_port.pl

@@ -10,7 +10,7 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 scenarios(vlt_all => 1);
 
 compile(
-    v_flags2 => ["-Wno-IMPLICIT"],
+    verilator_flags2 => ["-Wno-IMPLICIT"],
     );
 
 ok(1);

test_regress/t/t_lint_importstar_bad.pl

@@ -7,14 +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(vlt_all => 1);
+scenarios(vlt => 1);
 
-compile(
-    v_flags2 => ["--lint-only -Wall -Wno-DECLFILENAME"],
+lint(
+    verilator_flags2 => ["--lint-only -Wall -Wno-DECLFILENAME"],
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_incabspath.pl

@@ -7,14 +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(vlt_all => 1);
+scenarios(vlt => 1);
 
-compile(
-    verilator_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
-    );
+lint();
 
 ok(1);
 1;

test_regress/t/t_lint_incabspath_bad.pl

@@ -11,12 +11,9 @@ scenarios(vlt => 1);
 
 top_filename("t/t_lint_incabspath.v");
 
-compile(
-    v_flags2 => ["--lint-only -Wall -Wno-DECLFILENAME"],
+lint(
+    verilator_flags2 => ["--lint-only -Wall -Wno-DECLFILENAME"],
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_infinite.pl

@@ -7,13 +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(vlt_all => 1);
+scenarios(vlt => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_lint_input_eq_bad.pl

@@ -7,14 +7,10 @@ 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(vlt_all => 1);
+scenarios(vlt => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect =>
 '%Error: t/t_lint_input_eq_bad.v:\d+: Unsupported: Default value on module input: i2
 %Error: Exiting due to.*',

test_regress/t/t_lint_latch_bad.pl

@@ -7,14 +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(vlt_all => 1);
+scenarios(vlt => 1);
 
-compile(
-    v_flags2 => ["--lint-only -Wwarn-style -Wno-DECLFILENAME"],
+lint(
+    verilator_flags2 => ["--lint-only -Wwarn-style -Wno-DECLFILENAME"],
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_mod_paren_bad.pl

@@ -9,12 +9,9 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 scenarios(vlt => 1);
 
-compile(
+lint(
     verilator_flags2 => ["--lint-only -Wno-DECLFILENAME"],
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect =>
 q{%Error: t/t_lint_mod_paren_bad.v:\d+: syntax error, unexpected '\(', expecting ';'
 %Error: Exiting due to .*},

test_regress/t/t_lint_modport_dir_bad.pl

@@ -7,14 +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);
 
-compile(
+lint(
     verilator_flags2 => ["--lint-only -Wno-DECLFILENAME"],
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_multidriven_bad.pl

@@ -7,14 +7,10 @@ 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(vlt_all => 1);
+scenarios(linter => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_once_bad.pl

@@ -7,13 +7,10 @@ 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(vlt_all => 1);
+scenarios(linter => 1);
 
-compile(
+lint(
     verilator_flags2 => ["--lint-only -Wwarn-UNUSED"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_lint_only.pl

@@ -7,14 +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(vlt_all => 1);
+scenarios(vlt => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
-    );
+lint();
 
 foreach my $file (glob("$Self->{obj_dir}/*t_lint_only*")) {
     next if $file =~ /simx_compile.log/;  # Made by driver.pl, not Verilator

test_regress/t/t_lint_pindup_bad.pl

@@ -7,14 +7,10 @@ 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(vlt_all => 1);
+scenarios(linter => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_pkg_colon_bad.pl

@@ -7,14 +7,10 @@ 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(vlt_all => 1);
+scenarios(linter => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_realcvt_bad.pl

@@ -7,13 +7,10 @@ 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(vlt => 1);
+scenarios(linter => 1);
 
-compile(
-    v_flags2 => ["--lint-only -Wwarn-REALCVT"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
+    verilator_flags2 => ["--lint-only -Wwarn-REALCVT"],
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_lint_repeat_bad.pl

@@ -7,10 +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(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_lint_restore_bad.pl

@@ -7,10 +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(vlt_all => 1);
+scenarios(vlt => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
     expect_filename => $Self->{golden_filename},
     );

test_regress/t/t_lint_setout_bad.pl

@@ -7,14 +7,10 @@ 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(vlt_all => 1);
+scenarios(linter => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_setout_bad_noinl.pl

@@ -7,16 +7,13 @@ 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(vlt_all => 1);
+scenarios(linter => 1);
 
 top_filename("t/t_lint_setout_bad.v");
 
-compile(
-    v_flags2 => ["--lint-only -Oi"],
+lint(
+    verilator_flags2 => ["--lint-only -Oi"],
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_syncasyncnet_bad.pl

@@ -7,14 +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(vlt_all => 1);
+scenarios(linter => 1);
 
-compile(
-    v_flags2 => ["--lint-only -Wall -Wno-DECLFILENAME --if-depth 10"],
+lint(
+    verilator_flags2 => ["--lint-only -Wall -Wno-DECLFILENAME --if-depth 10"],
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_unsized_bad.pl

@@ -7,14 +7,10 @@ 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(vlt_all => 1);
+scenarios(linter => 1);
 
-compile(
-    v_flags2 => ["--lint-only"],
+lint(
     fails => 1,
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
     expect_filename => $Self->{golden_filename},
     );
 

test_regress/t/t_lint_unsup_deassign.pl

@@ -7,13 +7,10 @@ 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(vlt => 1);
 
-compile(
-    v_flags2 => ["--lint-only --bbox-unsup"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
+    verilator_flags2 => ["--lint-only --bbox-unsup"],
     );
 
 ok(1);

test_regress/t/t_lint_unsup_mixed.pl

@@ -7,13 +7,10 @@ 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(vlt => 1);
 
-compile(
-    v_flags2 => ["--lint-only --bbox-unsup"],
-    verilator_make_gcc => 0,
-    make_top_shell => 0,
-    make_main => 0,
+lint(
+    verilator_flags2 => ["--lint-only --bbox-unsup"],
     );
 
 ok(1);