Tests: Cleanup Perl indentations. No functional change.

test_regress/t/t_EXAMPLE.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_a_first_cc.pl

@@ -13,14 +13,14 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 $DEBUG_QUIET = "--debug --debugi 0 --gdbbt --no-dump-tree";
 
-$Self->run(cmd=>["perl", "../bin/verilator", $DEBUG_QUIET, "-V"]);
+$Self->run(cmd => ["perl", "../bin/verilator", $DEBUG_QUIET, "-V"]);
 
-compile (
+compile(
     verilator_flags2 => [$DEBUG_QUIET, "--trace"],
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_a_first_sc.pl

@@ -15,12 +15,12 @@ top_filename("t/t_a_first_cc.v");
 
 $DEBUG_QUIET = "--debug --debugi 0 --gdbbt --no-dump-tree";
 
-compile (
+compile(
     verilator_flags2 => [$DEBUG_QUIET, "-sc --trace"],
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_altera_lpm_abs.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_add_sub.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_and.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_bustri.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_clshift.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_compare.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_constant.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_counter.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_decode.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_divide.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_ff.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_fifo.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_fifo_dc.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_inv.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_latch.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_mult.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_mux.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_or.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_ram_dp.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_ram_dq.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_ram_io.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_rom.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_shiftreg.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_altera_lpm_xor.pl

@@ -12,7 +12,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 top_filename("t/t_altera_lpm.v");
 (my $module = $Self->{name}) =~ s/.*t_altera_//;
 
-compile (
+compile(
     verilator_flags2 => ["--top-module ${module}"]
     );
 

test_regress/t/t_alw_combdly.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.
 
-compile (
-	 );
+compile(
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_alw_dly.pl

@@ -7,13 +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.
 
-compile (
+compile(
     verilator_flags2 => ["-Wno-CLKDATA"],
-	 );
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_alw_split.pl

@@ -7,17 +7,17 @@ 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.
 
-compile (
-	 verilator_flags2 => ["--stats"],
-	 );
+compile(
+    verilator_flags2 => ["--stats"],
+    );
 
 if ($Self->{vlt}) {
     file_grep ($Self->{stats}, qr/Optimizations, Split always\s+(\d+)/i, 6);
 }
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_alw_split_rst.pl

@@ -7,7 +7,7 @@ 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.
 
-compile (
+compile(
     verilator_flags2 => ["--stats"],
     );
 
@@ -15,8 +15,8 @@ if ($Self->{vlt}) {
     file_grep ($Self->{stats}, qr/Optimizations, Split always\s+(\d+)/i, 0);
 }
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_alw_splitord.pl

@@ -7,17 +7,17 @@ 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.
 
-compile (
-	 verilator_flags2 => ["--stats"],
-	 );
+compile(
+    verilator_flags2 => ["--stats"],
+    );
 
 if ($Self->{vlt}) {
     file_grep ($Self->{stats}, qr/Optimizations, Split always\s+(\d+)/i, 0);
 }
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_array_backw_index_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.
 
-compile (
-    fails=>1,
-    expect=>
+compile(
+    fails => 1,
+    expect =>
 q{%Error: t/t_array_backw_index_bad.v:\d+: Slice selection '\[1:3\]' has backward indexing versus data type's '\[3:0\]'
 %Error: t/t_array_backw_index_bad.v:\d+: Slice selection '\[3:1\]' has backward indexing versus data type's '\[0:3\]'
 %Error: t/t_array_backw_index_bad.v:\d+: Slice selection index '\[4:3\]' outside data type's '\[3:0\]'

test_regress/t/t_array_compare.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_array_interface.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_array_interface_noinl.pl

@@ -8,12 +8,12 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 # Version 2.0.
 top_filename("t/t_array_interface.v");
 
-compile (
+compile(
     v_flags2 => ["-Oi"],
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_array_packed_sysfunct.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.
 
-compile (
-	 );
+compile(
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_array_packed_write_read.pl

@@ -9,12 +9,12 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 $Self->{vlt} and $Self->unsupported("Verilator unsupported, bug446");
 
-compile (
-	 );
+compile(
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_array_pattern_2d.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_array_pattern_packed.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_array_pattern_unpacked.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_array_query.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_array_rev.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_array_type_methods.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_arraysel_wide.pl

@@ -7,7 +7,7 @@ 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.
 
-compile (
+compile(
     );
 
 ok(1);

test_regress/t/t_assert_basic.pl

@@ -7,14 +7,14 @@ 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.
 
-compile (
-	 verilator_flags2 => ['--assert'],
-	 nc_flags2 => ['+assert'],
-	 );
+compile(
+    verilator_flags2 => ['--assert'],
+    nc_flags2 => ['+assert'],
+    );
 
-execute (
-	 check_finished=>1,
-	 );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_assert_basic_cover.pl

@@ -9,19 +9,19 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 top_filename("t/t_assert_basic.v");
 
-compile (
-	 verilator_flags2 => ['--assert --cc --coverage-user'],
-	 );
+compile(
+    verilator_flags2 => ['--assert --cc --coverage-user'],
+    );
 
-execute (
-	 check_finished=>1,
-	 );
+execute(
+    check_finished => 1,
+    );
 
 #Needs work
 print "-Info:  NOT checking for coverage\n";
-#file_grep ($Self->{coverage_filename}, qr/t=>'psl_cover',o=>'cover',c=>2\);/);
-#file_grep ($Self->{coverage_filename}, qr/DefaultClock.*,c=>1\);/);
-#file_grep ($Self->{coverage_filename}, qr/ToggleLogIf.*,c=>9\);/);
+#file_grep($Self->{coverage_filename}, qr/t=>'psl_cover',o=>'cover',c=>2\);/);
+#file_grep($Self->{coverage_filename}, qr/DefaultClock.*,c=>1\);/);
+#file_grep($Self->{coverage_filename}, qr/ToggleLogIf.*,c=>9\);/);
 
 ok(1);
 1;

test_regress/t/t_assert_basic_fail.pl

@@ -9,15 +9,15 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 top_filename("t/t_assert_basic.v");
 
-compile (
-	 v_flags2 => ['+define+FAILING_ASSERTIONS',
-	              $Self->{v3}?'--assert':($Self->{nc}?'+assert':'')],
-	 fails => $Self->{nc},
-	 );
+compile(
+    v_flags2 => ['+define+FAILING_ASSERTIONS',
+                 $Self->{vlt}?'--assert':($Self->{nc}?'+assert':'')],
+    fails => $Self->{nc},
+    );
 
-execute (
-	 fails => $Self->{vlt},
-	 );
+execute(
+    fails => $Self->{vlt},
+    );
 
 ok(1);
 1;

test_regress/t/t_assert_basic_off.pl

@@ -9,13 +9,13 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 top_filename("t/t_assert_basic.v");
 
-compile (
-	 v_flags2 => [],
-	 );
+compile(
+    v_flags2 => [],
+    );
 
-execute (
-	 check_finished=>1,
-	 );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_assert_casez.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.
 
-compile (
+compile(
     verilator_flags2 => ['--assert'],
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_assert_comp.pl

@@ -7,13 +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.
 
-compile (
+compile(
     verilator_flags2 => ['--assert'],
     nc_flags2 => ['+assert'],
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_assert_comp_bad.pl

@@ -7,13 +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.
 
-compile (
+compile(
     verilator_flags2 => ['--assert'],
     nc_flags2 => ['+assert'],
     );
 
-execute (
-    check_finished=>0,
+execute(
+    check_finished => 0,
     fails => 1,
     expect =>
 '.*%Warning: t_assert_comp_bad.v:\d+: Assertion failed in top.t.genblk1: User compile-time warning

test_regress/t/t_assert_cover.pl

@@ -9,37 +9,37 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 top_filename("t/t_assert_cover.v");
 
-compile (
-	 verilator_flags2 => ['--assert --cc --coverage-user'],
-	 nc_flags2 => ["+nccovoverwrite +nccoverage+all +nccovtest+$Self->{name}"]
-	 );
+compile(
+    verilator_flags2 => ['--assert --cc --coverage-user'],
+    nc_flags2 => ["+nccovoverwrite +nccoverage+all +nccovtest+$Self->{name}"]
+    );
 
-execute (
-	 check_finished=>1,
-	 );
+execute(
+    check_finished => 1,
+    );
 
 if ($Self->{nc}) {
     my $name = $Self->{name};
     my $cf = "$Self->{obj_dir}/${name}__nccover.cf";
     {
-	my $fh = IO::File->new(">$cf") or die "%Error: $! writing $cf,";
-	$fh->printf("report_summary -module *\n");
-	$fh->printf("report_detail -both -instance *\n");
-	$fh->printf("report_html -both -instance * > $Self->{obj_dir}/${name}__nccover.html\n");
-	$fh->close;
+        my $fh = IO::File->new(">$cf") or die "%Error: $! writing $cf,";
+        $fh->printf("report_summary -module *\n");
+        $fh->printf("report_detail -both -instance *\n");
+        $fh->printf("report_html -both -instance * > $Self->{obj_dir}/${name}__nccover.html\n");
+        $fh->close;
     }
-    $Self->run(logfile=>"$Self->{obj_dir}/${name}__nccover.log",
-               tee=>0,
-               cmd=>[($ENV{VERILATOR_ICCR}||'iccr'),
-                     "-test ${name} ${cf}"]);
+    $Self->run(logfile => "$Self->{obj_dir}/${name}__nccover.log",
+               tee => 0,
+               cmd => [($ENV{VERILATOR_ICCR}||'iccr'),
+                       "-test ${name} ${cf}"]);
 }
 
-file_grep ($Self->{run_log_filename}, qr/COVER: Cyc==4/);
-file_grep ($Self->{run_log_filename}, qr/COVER: Cyc==5/);
-file_grep ($Self->{run_log_filename}, qr/COVER: Cyc==6/);
+file_grep($Self->{run_log_filename}, qr/COVER: Cyc==4/);
+file_grep($Self->{run_log_filename}, qr/COVER: Cyc==5/);
+file_grep($Self->{run_log_filename}, qr/COVER: Cyc==6/);
 
 # Allow old Perl format dump, or new binary dump
-file_grep ($Self->{coverage_filename}, qr/(cyc_eq_5.*,c=>[^0]|cyc_eq_5.* [1-9][0-9]*\n)/);
+file_grep($Self->{coverage_filename}, qr/(cyc_eq_5.*,c=>[^0]|cyc_eq_5.* [1-9][0-9]*\n)/);
 
 ok(1);
 1;

test_regress/t/t_assert_cover_off.pl

@@ -9,13 +9,13 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 top_filename("t/t_assert_cover.v");
 
-compile (
-	 v_flags2 => [],
-	 );
+compile(
+    v_flags2 => [],
+    );
 
-execute (
-	 check_finished=>1,
-	 );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_assert_dup_bad.pl

@@ -7,14 +7,14 @@ 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.
 
-compile (
-	 v_flags2 => ["--lint-only"],
-	 fails=>1,
-	 expect=>
+compile(
+    v_flags2 => ["--lint-only"],
+    fails => 1,
+    expect =>
 '%Error: t/t_assert_dup_bad.v:\d+: Duplicate declaration of block: covlabel
 %Error: t/t_assert_dup_bad.v:\d+: ... Location of original declaration
 %Error: Exiting due to.*',
-	 );
+    );
 
 ok(1);
 1;

test_regress/t/t_assert_elab.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_assert_elab_bad.pl

@@ -11,13 +11,13 @@ top_filename("t/t_assert_elab.v");
 unlink("$Self->{obj_dir}/t_assert_elab_bad.log");
 
 
-compile (
+compile(
     v_flags2 => ['+define+FAILING_ASSERTIONS',
-    $Self->{v3}?'--assert':($Self->{nc}?'+assert':'')],
+    $Self->{vlt}?'--assert':($Self->{nc}?'+assert':'')],
     fails => 1,
 );
 
-execute (
+execute(
     fails => $Self->{vlt},
 );
 

test_regress/t/t_assert_property.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.
 
-compile (
+compile(
     verilator_flags2 => ['--assert --cc'],
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_assert_property_fail_1.pl

@@ -9,12 +9,12 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 top_filename("t/t_assert_property.v");
 
-compile (
+compile(
     v_flags2 => ['+define+FAIL_ASSERT_1'],
     verilator_flags2 => ['--assert --cc'],
     );
 
-execute (
+execute(
     fails => 1
     );
 

test_regress/t/t_assert_property_fail_2.pl

@@ -9,12 +9,12 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 top_filename("t/t_assert_property.v");
 
-compile (
+compile(
     v_flags2 => ['+define+FAIL_ASSERT_2'],
     verilator_flags2 => ['--assert --cc'],
     );
 
-execute (
+execute(
     fails => 1
     );
 

test_regress/t/t_assert_question.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.
 
-compile (
+compile(
     verilator_flags2 => ['--assert'],
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_assert_synth.pl

@@ -7,14 +7,14 @@ 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.
 
-compile (
-	 verilator_flags2 => ['--assert'],
-    	 nc_flags2 => ['+assert'],
-	 );
+compile(
+    verilator_flags2 => ['--assert'],
+    nc_flags2 => ['+assert'],
+    );
 
-execute (
-	 check_finished=>1,
-	 );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_assert_synth_full.pl

@@ -9,18 +9,18 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 top_filename("t/t_assert_synth.v");
 
-compile (
-	 v_flags2 => ['+define+FAILING_FULL'],
-	 verilator_flags2 => ['--assert'],
-	 nc_flags2 => ['+assert'],
-	 );
+compile(
+    v_flags2 => ['+define+FAILING_FULL'],
+    verilator_flags2 => ['--assert'],
+    nc_flags2 => ['+assert'],
+    );
 
-execute (
-	 check_finished=>0,
-	 fails=> $Self->{vlt},
-	 expect=>
+execute(
+    check_finished => 0,
+    fails => $Self->{vlt},
+    expect =>
 '%Error: t_assert_synth.v:\d+: Assertion failed in top.t: synthesis full_case'
-	 );
+    );
 
 ok(1);
 1;

test_regress/t/t_assert_synth_off.pl

@@ -9,17 +9,17 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 top_filename("t/t_assert_synth.v");
 
-compile (
-	 v_flags2 => ['+define+FAILING_FULL',
-		      '+define+FAILING_PARALLEL',
-		      '+define+FAILING_OH',
-		      '+define+FAILING_OC',
-		      ],
-	 );
+compile(
+    v_flags2 => ['+define+FAILING_FULL',
+                 '+define+FAILING_PARALLEL',
+                 '+define+FAILING_OH',
+                 '+define+FAILING_OC',
+    ],
+    );
 
-execute (
-	 check_finished=>1,
-	 );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_assert_synth_parallel.pl

@@ -9,18 +9,18 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 top_filename("t/t_assert_synth.v");
 
-compile (
-	 v_flags2 => ['+define+FAILING_PARALLEL'],
-	 verilator_flags2 => ['--assert'],
-	 nc_flags2 => ['+assert'],
-	 );
+compile(
+    v_flags2 => ['+define+FAILING_PARALLEL'],
+    verilator_flags2 => ['--assert'],
+    nc_flags2 => ['+assert'],
+    );
 
-execute (
-	 check_finished=>0,
-	 fails => $Self->{v3},
-	 expect=>
+execute(
+    check_finished => 0,
+    fails => $Self->{vlt},
+    expect =>
 '%Error: t_assert_synth.v:\d+: Assertion failed in top.t: synthesis parallel_case'
-	 );
+    );
 
 ok(1);
 1;

test_regress/t/t_assign_inline.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.
 
-compile (
+compile(
     verilator_flags2 => ["-O0 -OG"],
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_attr_parenstar.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.
 
-compile (
-	 );
+compile(
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_bench_mux4k.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.
 
-compile (
+compile(
     v_flags2 => ["--stats"],
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_bench_synmul.pl

@@ -14,12 +14,12 @@ $Self->{cycles} = 100 if $Self->{cycles}<100;
 
 $Self->{sim_time} = $Self->{cycles}*100;
 
-compile (
+compile(
     v_flags2 => ["+define+SIM_CYCLES=$Self->{cycles} --stats"],
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_bind.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_bind2.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_bitsel_const_bad.pl

@@ -7,13 +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.
 
-compile (
-	 v_flags2 => ["--lint-only"],
-	 fails=>1,
-	 expect=>
+compile(
+    v_flags2 => ["--lint-only"],
+    fails => 1,
+    expect =>
 '%Error: t/t_bitsel_const_bad.v:\d+: Illegal bit or array select; type does not have a bit range, or bad dimension: type is logic
 .*%Error: Exiting due to.*',
-	 );
+    );
 
 ok(1);
 1;

test_regress/t/t_bitsel_enum.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_bitsel_slice.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_bitsel_struct.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_bitsel_struct2.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_bitsel_struct3.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_bitsel_wire_array_bad.pl

@@ -9,10 +9,10 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 # Comple time only test
 
-compile (
+compile(
     verilator_flags2 => ["--lint-only"],
-    fails=>1,
-    expect=>
+    fails => 1,
+    expect =>
 '.*%Error: t/t_bitsel_wire_array_bad.v:\d+: Illegal assignment of constant to unpacked array
 %Error: Exiting due to.*',
     );

test_regress/t/t_blocking.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.
 
-compile (
-	 );
+compile(
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_case_66bits.pl

@@ -1,12 +1,12 @@
 #!/usr/bin/perl
 if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); die; }
 
-compile (
-	 );
+compile(
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_case_auto1.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.
 
-compile (
-	 );
+compile(
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_case_deep.pl

@@ -7,13 +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.
 
-compile (
-	 verilator_flags2 => ["--compiler msvc"],  # We have deep expressions we want to test
-	 );
+compile(
+    verilator_flags2 => ["--compiler msvc"],  # We have deep expressions we want to test
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_case_default_bad.pl

@@ -7,13 +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.
 
-compile (
-	 v_flags2 => ["--lint-only"],
-	 fails=>1,
-	 expect=>
+compile(
+    v_flags2 => ["--lint-only"],
+    fails => 1,
+    expect =>
 '%Error: t/t_case_default_bad.v:\d+: Multiple default statements in case statement.
 %Error: Exiting due to.*',
-	 );
+    );
 
 ok(1);
 1;

test_regress/t/t_case_dupitems.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.
 
-compile (
-	 );
+compile(
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_case_genx_bad.pl

@@ -7,13 +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.
 
-compile (
-	 v_flags2 => ["--lint-only"],
-	 fails=>1,
-	 expect=>
+compile(
+    v_flags2 => ["--lint-only"],
+    fails => 1,
+    expect =>
 '%Error: t/t_case_genx_bad.v:\d+: Use of x/\? constant in generate case statement, \(no such thing as \'generate casez\'\)
 %Error: Exiting due to.*',
-	 );
+    );
 
 ok(1);
 1;

test_regress/t/t_case_group.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_case_huge.pl

@@ -7,7 +7,7 @@ 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.
 
-compile (
+compile(
     verilator_flags2 => ["--stats"],
     );
 
@@ -16,8 +16,8 @@ if ($Self->{vlt}) {
     file_grep ($Self->{stats}, qr/Optimizations, Combined CFuncs\s+(\d+)/i, 8);
 }
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_case_huge_prof.pl

@@ -11,7 +11,7 @@ $Self->{vlt} or $Self->skip("Verilator only test");
 
 top_filename("t/t_case_huge.v");
 
-compile (
+compile(
     verilator_flags2 => ["--stats --profile-cfuncs -CFLAGS '-pg' -LDFLAGS '-pg'"],
     );
 
@@ -23,8 +23,8 @@ if ($Self->{vlt}) {
 unlink $_ foreach (glob "$Self->{obj_dir}/gmon.out.*");
 $ENV{GMON_OUT_PREFIX} = "$Self->{obj_dir}/gmon.out";
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 my $gmon_path;
@@ -32,11 +32,11 @@ $gmon_path = $_ foreach (glob "$Self->{obj_dir}/gmon.out.*");
 $gmon_path or $Self->error("Profiler did not create a gmon.out");
 (my $gmon_base = $gmon_path) =~ s!.*[/\\]!!;
 
-$Self->run(cmd=>["cd $Self->{obj_dir} && gprof $Self->{VM_PREFIX} $gmon_base > gprof.out"],
-           check_finished=>0);
+$Self->run(cmd => ["cd $Self->{obj_dir} && gprof $Self->{VM_PREFIX} $gmon_base > gprof.out"],
+           check_finished => 0);
 
-$Self->run(cmd=>["cd $Self->{obj_dir} && $ENV{VERILATOR_ROOT}/bin/verilator_profcfunc gprof.out > cfuncs.out"],
-           check_finished=>0);
+$Self->run(cmd => ["cd $Self->{obj_dir} && $ENV{VERILATOR_ROOT}/bin/verilator_profcfunc gprof.out > cfuncs.out"],
+           check_finished => 0);
 
 file_grep ("$Self->{obj_dir}/cfuncs.out", qr/Overall summary by/);
 

test_regress/t/t_case_inside.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_case_itemwidth.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.
 
-compile (
-	 );
+compile(
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_case_nest.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.
 
-compile (
-	 );
+compile(
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_case_onehot.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.
 
-compile (
-	 );
+compile(
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_case_orig.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.
 
-compile (
-	 );
+compile(
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_case_reducer.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.
 
-compile (
+compile(
     );
 
-execute (
-    check_finished=>1,
+execute(
+    check_finished => 1,
     );
 
 ok(1);

test_regress/t/t_case_wild.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.
 
-compile (
-	 );
+compile(
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_case_write1.pl

@@ -9,13 +9,13 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 $Self->{golden_out} ||= "t/$Self->{name}.out";
 
-compile (
-	 verilator_flags2 => ["--stats --O3 -x-assign fast"],
-	 );
+compile(
+    verilator_flags2 => ["--stats --O3 -x-assign fast"],
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(files_identical("$Self->{obj_dir}/$Self->{name}_logger.log", $Self->{golden_out}));
 1;

test_regress/t/t_case_write2.pl

@@ -9,13 +9,13 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 
 $Self->{golden_out} ||= "t/$Self->{name}.out";
 
-compile (
-	 verilator_flags2 => ["--stats --O3 -x-assign fast"],
-	 );
+compile(
+    verilator_flags2 => ["--stats --O3 -x-assign fast"],
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(files_identical("$Self->{obj_dir}/$Self->{name}_logger.log", $Self->{golden_out}));
 

test_regress/t/t_case_x.pl

@@ -7,13 +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.
 
-compile (
-	 verilator_flags2 => ["--x-assign 0"],
-	 );
+compile(
+    verilator_flags2 => ["--x-assign 0"],
+    );
 
-execute (
-	 check_finished=>1,
-     );
+execute(
+    check_finished => 1,
+    );
 
 ok(1);
 1;

test_regress/t/t_case_x_bad.pl

@@ -7,14 +7,14 @@ 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.
 
-compile (
-	 v_flags2 => ["--lint-only"],
-	 fails=>1,
-	 expect=>
+compile(
+    v_flags2 => ["--lint-only"],
+    fails => 1,
+    expect =>
 '%Warning-CASEX: t/t_case_x_bad.v:\d+: Suggest casez \(with \?\'s\) in place of casex \(with X\'s\)
 .*%Warning-CASEWITHX: t/t_case_x_bad.v:\d+: Use of x/\? constant in case statement, \(perhaps intended casex/casez\)
 .*%Error: Exiting due to.*',
-	 );
+    );
 
 ok(1);
 1;

test_regress/t/t_case_zx_bad.pl

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