From 3cd96cf558c7d16eaffc76f06d0caa8d37069e92 Mon Sep 17 00:00:00 2001 From: Wilson Snyder Date: Fri, 16 Mar 2018 19:50:17 -0400 Subject: [PATCH] Tests: Print error line in summary file. --- test_regress/driver.pl | 7 ++++++- test_regress/t/t_preproc_persist.pl | 2 +- test_regress/t/t_preproc_ttempty.pl | 2 +- 3 files changed, 8 insertions(+), 3 deletions(-) diff --git a/test_regress/driver.pl b/test_regress/driver.pl index 61242fb1f..d05c6aa96 100755 --- a/test_regress/driver.pl +++ b/test_regress/driver.pl @@ -978,7 +978,12 @@ sub _run { flush STDERR; if (!$param{fails} && $status) { - $self->error("Exec of $param{cmd}[0] failed\n"); + my $firstline = ""; + if (my $fh = IO::File->new("<$param{logfile}")) { + $firstline = $fh->getline; + chomp $firstline; + } + $self->error("Exec of $param{cmd}[0] failed: $firstline\n"); } if ($param{fails} && $status) { print "(Exec expected to fail, and did.)\n"; diff --git a/test_regress/t/t_preproc_persist.pl b/test_regress/t/t_preproc_persist.pl index 2127bc3e9..87fc25f66 100755 --- a/test_regress/t/t_preproc_persist.pl +++ b/test_regress/t/t_preproc_persist.pl @@ -15,7 +15,7 @@ compile ( # Override default flags v_flags => [''], v_other_filenames => ["t_preproc_persist2.v"], - verilator_flags => ["-E -P +incdir+t"], + verilator_flags => ["-E -P +incdir+t -Mdir $Self->{obj_dir}", ], verilator_flags2 => ['',], verilator_flags3 => ['',], verilator_make_gcc => 0, diff --git a/test_regress/t/t_preproc_ttempty.pl b/test_regress/t/t_preproc_ttempty.pl index 8279fbdd1..c76f0a87a 100755 --- a/test_regress/t/t_preproc_ttempty.pl +++ b/test_regress/t/t_preproc_ttempty.pl @@ -14,7 +14,7 @@ my $stdout_filename = "$Self->{obj_dir}/$Self->{name}__test.vpp"; compile ( # Override default flags v_flags => [''], - verilator_flags => ["-E -P +incdir+t"], + verilator_flags => ["-E -P +incdir+t -Mdir $Self->{obj_dir}", ], verilator_flags2 => ['',], verilator_flags3 => ['',], verilator_make_gcc => 0,