Lines Matching +full:perl +full:- +full:time +full:- +full:hires
21 # SPDX-License-Identifier: curl
115 our $valgrind_logfile="--log-file"; # the option name for valgrind >=3
116 our $valgrind_tool="--tool=memcheck";
137 # per-runner variables, indexed by runner ID; these are used by controller only
172 # Incorporate the $logdir into the random seed and re-seed the PRNG.
193 # some msys2 perl versions don't define SIGUSR1
295 # 'prepro' processes the input array and replaces %-variables in the array
345 if(!$plvl--) {
418 # memanalyze -v is our friend, get the number of allocations made
420 my @out = `$memanalyze -v "$LOGDIR/$MEMDUMP"`;
434 my $discard = scalar(@ttests) - $shallow;
444 $discard--;
457 # --shallow can undefine them
466 localtime(time());
483 $valgrindcmd .= "--quiet --leak-check=yes ";
484 $valgrindcmd .= "--suppressions=$srcdir/valgrind.supp ";
485 # $valgrindcmd .= "--gen-suppressions=all ";
486 $valgrindcmd .= "--num-callers=16 ";
505 if(-r "core") {
516 logmsg "FAIL: torture $testnum - valgrind\n";
545 logmsg `$memanalyze -l "$LOGDIR/$MEMDUMP"`;
551 " invoke with \"-t$limit\" to repeat this single case.\n";
592 $$testtimings{"timesrvrini"} = Time::HiRes::time();
601 $error = -1;
607 $error = -2;
609 $error = -1;
615 $$testtimings{"timesrvrend"} = Time::HiRes::time();
710 my @o = `$cmd 2> $LOGDIR/precheck-$testnum`;
745 # create (possibly-empty) files before starting the test
753 return -1;
764 if(join("/", @parts[0..$nparts-1]) eq $LOGDIR) {
803 $cmd="-";
811 if((!$cmdhash{'option'}) || ($cmdhash{'option'} !~ /no-output/)) {
812 #We may slap on --output!
814 ($cmdhash{'option'} && $cmdhash{'option'} =~ /force-output/)) {
815 $out=" --output $CURLOUT ";
832 if($cmdtype eq "perl") {
833 # run the command line prepended with "perl"
835 $CMDLINE = "$perl ";
849 if((!$cmdhash{'option'}) || ($cmdhash{'option'} !~ /no-include/)) {
850 $inc = " --include";
854 if($cmdhash{'option'} && ($cmdhash{'option'} =~ /binary-trace/)) {
855 $cmdargs .= "--trace $LOGDIR/trace$testnum ";
858 $cmdargs .= "--trace-ascii $LOGDIR/trace$testnum ";
860 $cmdargs .= "--trace-time ";
862 $cmdargs .= "--test-event ";
863 $fail_due_event_based--;
867 $cmdargs .= " --proxy $proxy_address ";
886 if(! -f $CMDLINE) {
888 return (-1, 0, 0, "", "", 0);
895 return (-1, 0, 0, "", "", 0);
901 # with --db-attach=yes or --vgdb=yes.
908 my $stdinfile="$LOGDIR/stdin-for-$testnum";
913 chomp($stdintest[-1]);
923 if((!$cmdhash{'option'}) || ($cmdhash{'option'} !~ /no-q/)) {
924 $CMDLINE .= " -q";
931 $valgrindcmd .= "--quiet --leak-check=yes ";
932 $valgrindcmd .= "--suppressions=$srcdir/valgrind.supp ";
933 # $valgrindcmd .= "--gen-suppressions=all ";
934 $valgrindcmd .= "--num-callers=16 ";
960 print $gdbcmd "source $gdbinit\n" if -e $gdbinit;
973 $$testtimings{"timetoolini"} = Time::HiRes::time();
979 … "$gdb --directory $LIBDIR " . shell_quote($DBGCURL) . " -x $LOGDIR/gdbcmd");
983 my $GDBW = ($gdbxwin) ? "-w" : "";
984 runclient("$gdb --directory $LIBDIR " . shell_quote($DBGCURL) . " $GDBW -x $LOGDIR/gdbcmd");
989 print "runs lldb -- $CURL $cmdargs\n";
990 runclient("lldb -- $CURL $cmdargs");
999 $$testtimings{"timetoolend"} = Time::HiRes::time();
1011 if(-r "core") {
1020 logmsg "running gdb for post-mortem analysis:\n";
1024 …runclient("$gdb --directory libtest -x $LOGDIR/gdbcmd2 -batch " . shell_quote($DBGCURL) . " core "…
1033 # of time until the server removes it, or the given time expires.
1045 while((@locks = logslocked()) && $lockretry--) {
1060 # gnutls-serv also lacks this synchronization mechanism, so gnutls-serv
1074 $$testtimings{"timesrvrlog"} = Time::HiRes::time();
1109 return -1;
1129 # TODO: this metric now shows only a portion of the prep time; better would
1130 # be to time singletest_preprocess below instead
1131 $testtimings{"timeprepini"} = Time::HiRes::time();
1135 # ignore any error here--if there were one, it would have been
1166 $error = -1;
1175 # Returns 0=success, -1=skippable failure, -2=permanent error,
1189 return (-2, clearlogs());
1202 return (-2, clearlogs(), \%testtimings);
1269 # Returns 0 on success, -1 on error writing to runner
1276 my $gv = $cv->GV;
1278 unshift @_, $gv->NAME;
1287 return -1;