equal
deleted
inserted
replaced
51 |
51 |
52 my $test_main_no_tlsa = |
52 my $test_main_no_tlsa = |
53 Nagios::Check::DNS::check_tlsa_record::main(('google.com')); |
53 Nagios::Check::DNS::check_tlsa_record::main(('google.com')); |
54 like( |
54 like( |
55 $test_main_no_tlsa, |
55 $test_main_no_tlsa, |
56 qr(WARNING: .*), |
56 qr(UNKNOWN: .*), |
57 'main() warning when no SSL-Certificate or no TLSA-Record/DANE is available' |
57 'main() unknown when no DANE is available' |
58 ); |
58 ); |
59 |
59 |
60 my $test_main_default_port2 = |
60 my $test_main_default_port2 = |
61 Nagios::Check::DNS::check_tlsa_record::main(($domain4)); |
61 Nagios::Check::DNS::check_tlsa_record::main(($domain4)); |
62 like( |
62 like( |