mirror of
https://github.com/drwetter/testssl.sh.git
synced 2026-06-23 16:57:38 +02:00
Dirk
457f8fd0a0
This is just to assist debugging of the runners, so that we can grab in a case needed the screen and stderr . * there's a script t/03_debug.t.DISABLED which needs to be renamed then * it utilises IPC::Run3 - also showing the PATH is added for both runners - Readme amended accordingly
40 lines
909 B
Perl
Executable File
40 lines
909 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
# Example for debugging what the runners do, here MacOS only
|
|
# (we used that before), To get output on the screen it's
|
|
# needed to encapsulate the functions you want to debug with
|
|
# set -x/+x and comment the last function @ 00_testssl_help.t
|
|
|
|
use strict;
|
|
use Test::More;
|
|
use IPC::Run3;
|
|
|
|
my $os="$^O";
|
|
my $prg="./testssl.sh";
|
|
my $check2run ="-p";
|
|
my $uri="testssl.sh";
|
|
my $stdout = '';
|
|
my $stderr = '';
|
|
|
|
# if ( $os eq "darwin" ){
|
|
printf "%s\n", "testing MacOS ";
|
|
run3(["/bin/bash", $prg, $check2run, $uri], \undef, \$stdout, \$stderr);
|
|
print STDERR $stderr;
|
|
print STDOUT $stdout;
|
|
# } elsif ( $os eq "linux" ){
|
|
# printf "skipped check on Linux\n\n";
|
|
#}
|
|
|
|
|
|
# Use the following when you want to run everything below ~/t
|
|
# done_testing();
|
|
|
|
|
|
# This stops, no further checks within ~/t will run:
|
|
BAIL_OUT("Fundamental check done, aborting");
|
|
|
|
|
|
|
|
# vim:ts=5:sw=5:expandtab
|
|
|