File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -17,27 +17,34 @@ my $error_regexp5='(syntax error|unexpected token)';
1717my $good_regexp =' free software([\s\S]*)USAGE w/o ANY WARRANTY([\s\S]*)OWN RISK([\s\S]*)Using([\s\S]*)ciphers([\s\S]*)built([\s\S]*)platform' ;
1818
1919printf " \n %s \n " , " Testing whether just calling \" ./testssl.sh --banner\" produces no error ..." ;
20- $fileout = ` timeout 10 bash ./testssl.sh --banner 2>&1` ;
20+ $fileout = ` bash ./testssl.sh --banner 2>&1` ;
2121my $retval =$? ;
2222
23+ # 1
2324unlike($fileout , qr /$error_regexp1 / , " regex 1" );
2425$tests ++;
2526
27+ # 2
2628unlike($fileout , qr /$error_regexp2 / , " regex 2" );
2729$tests ++;
2830
31+ # 3
2932unlike($fileout , qr /$error_regexp3 / , " regex 3" );
3033$tests ++;
3134
35+ # 4
3236unlike($fileout , qr /$error_regexp4 / , " regex 4" );
3337$tests ++;
3438
39+ # 5
3540unlike($fileout , qr /$error_regexp5 / , " regex 5" );
3641$tests ++;
3742
43+ # 6
3844like($fileout , qr /$good_regexp / , " regex positive" );
3945$tests ++;
4046
47+ # 7
4148is($retval , 0, " return value should be equal zero: \" $retval \" " );
4249$tests ++;
4350
You can’t perform that action at this time.
0 commit comments