mirror of
				https://github.com/drwetter/testssl.sh.git
				synced 2025-10-31 05:45:26 +01:00 
			
		
		
		
	Ensure that stderr is caught / $prg=testssl.sh
As suggested in #2780 this PR redirects all stderr on a perl level to stdout so that we should see all errors which we miss because we can't redirect (>/dev/null in check) or we haven't redirected yet. Also old checks are imporved, so that $prg is used as in newer checks.
This commit is contained in:
		| @@ -6,6 +6,7 @@ use Data::Dumper; | ||||
| use JSON; | ||||
|  | ||||
| my $tests = 0; | ||||
| my $prg="./testssl.sh"; | ||||
|  | ||||
| my ( | ||||
| 	$out, | ||||
| @@ -14,14 +15,14 @@ my ( | ||||
| ); | ||||
| # OK | ||||
| pass("Running testssl.sh against badssl.com to create a baseline (may take 2~3 minutes)"); $tests++; | ||||
| my $okout = `./testssl.sh -S -e --freak --logjam --drown --rc4 --sweet32 --breach --winshock --crime --jsonfile tmp.json --color 0 badssl.com`; | ||||
| my $okout = `$prg -S -e --freak --logjam --drown --rc4 --sweet32 --breach --winshock --crime --jsonfile tmp.json --color 0 badssl.com`; | ||||
| my $okjson = json('tmp.json'); | ||||
| unlink 'tmp.json'; | ||||
| cmp_ok(@$okjson,'>',10,"We should have more then 10 findings"); $tests++; | ||||
|  | ||||
| # Expiration | ||||
| pass("Running testssl against expired.badssl.com"); $tests++; | ||||
| $out = `./testssl.sh -S --jsonfile tmp.json --color 0 expired.badssl.com`; | ||||
| $out = `$prg -S --jsonfile tmp.json --color 0 expired.badssl.com`; | ||||
| like($out, qr/Chain of trust\s+NOT ok \(expired\)/,"The chain of trust should be expired"); $tests++; | ||||
| like($out, qr/Certificate Validity \(UTC\)\s+expired/,"The certificate should be expired"); $tests++; | ||||
| $json = json('tmp.json'); | ||||
| @@ -39,7 +40,7 @@ is($found,1,"We should have a finding for this in the JSON output"); $tests++; | ||||
|  | ||||
| # Self signed and not-expired | ||||
| pass("Running testssl against self-signed.badssl.com"); $tests++; | ||||
| $out = `./testssl.sh -S --jsonfile tmp.json --color 0 self-signed.badssl.com`; | ||||
| $out = `$prg -S --jsonfile tmp.json --color 0 self-signed.badssl.com`; | ||||
| unlike($out, qr/Certificate Validity \(UTC\)s+expired/,"The certificate should not be expired"); $tests++; | ||||
| $json = json('tmp.json'); | ||||
| unlink 'tmp.json'; | ||||
| @@ -98,7 +99,7 @@ is($found,1,"We should have a finding for this in the JSON output"); $tests++; | ||||
|  | ||||
| # Incomplete chain | ||||
| pass("Running testssl against incomplete-chain.badssl.com"); $tests++; | ||||
| $out = `./testssl.sh -S --jsonfile tmp.json --color 0 incomplete-chain.badssl.com`; | ||||
| $out = `$prg -S --jsonfile tmp.json --color 0 incomplete-chain.badssl.com`; | ||||
| like($out, qr/Chain of trust.*?NOT ok\s+\(chain incomplete\)/,"Chain of trust should fail because of incomplete"); $tests++; | ||||
| $json = json('tmp.json'); | ||||
| unlink 'tmp.json'; | ||||
|   | ||||
		Reference in New Issue
	
	Block a user
	 Dirk Wetter
					Dirk Wetter