diff options
Diffstat (limited to 'tests/runtests.pl')
-rwxr-xr-x | tests/runtests.pl | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl index b5182513b..08c06e5aa 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -203,7 +203,7 @@ my $stunnel = checkcmd("stunnel4") || checkcmd("tstunnel") || checkcmd("stunnel" my $valgrind = checktestcmd("valgrind"); my $valgrind_logfile="--logfile"; my $valgrind_tool; -my $gdb = checktestcmd("gdb"); +my $gdb = checktestcmd("lldb"); my $httptlssrv = find_httptlssrv(); my $has_ssl; # set if libcurl is built with SSL support @@ -3893,9 +3893,8 @@ sub singletest { if($gdbthis) { my $gdbinit = "$TESTDIR/gdbinit$testnum"; open(GDBCMD, ">$LOGDIR/gdbcmd"); - print GDBCMD "set args $cmdargs\n"; - print GDBCMD "show args\n"; - print GDBCMD "source $gdbinit\n" if -e $gdbinit; + print GDBCMD "run\n"; + print GDBCMD "quit\n"; close(GDBCMD); } @@ -3906,11 +3905,10 @@ sub singletest { if ($torture) { $cmdres = torture($CMDLINE, $testnum, - "$gdb --directory libtest $DBGCURL -x $LOGDIR/gdbcmd"); + "$gdb $DBGCURL -s $LOGDIR/gdbcmd"); } elsif($gdbthis) { - my $GDBW = ($gdbxwin) ? "-w" : ""; - runclient("$gdb --directory libtest $DBGCURL $GDBW -x $LOGDIR/gdbcmd"); + runclient("$gdb -s $LOGDIR/gdbcmd -- $CMDLINE"); $cmdres=0; # makes it always continue after a debugged run } else { @@ -4397,6 +4395,9 @@ sub singletest { last; } } + if($gdbthis) { + $errok = 1; + } if($errok) { $ok .= "e"; |