diff options
Diffstat (limited to 'tests/runtests.pl')
-rwxr-xr-x | tests/runtests.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl index de61feffd..4c32df7b4 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -1052,6 +1052,17 @@ sub singletest { my $dumped_core; my $cmdres; + my @precommand= getpart("client", "precommand"); + if($precommand[0]) { + # this is pure perl to eval! + my $code = join("", @precommand); + eval $code; + if($@) { + print "perl: $code\n"; + print "precommand: $@"; + exit; + } + } if($gdbthis) { open(GDBCMD, ">log/gdbcmd"); |