equal
deleted
inserted
replaced
38 } |
38 } |
39 |
39 |
40 sub test_dig() { |
40 sub test_dig() { |
41 |
41 |
42 #my $test_dig_tlsa = Nagios::Check::DNS::check_tlsa_record::dig_tlsa($domain, 25, 'tcp'); |
42 #my $test_dig_tlsa = Nagios::Check::DNS::check_tlsa_record::dig_tlsa($domain, 25, 'tcp'); |
43 my $test_dig_tlsa = Nagios::Check::DNS::check_tlsa_record::dig_tlsa($domain, 443); |
43 my $test_dig_tlsa = Nagios::Check::DNS::check_tlsa_record::get_tlsa_from_dns($domain, 443); |
44 like($test_dig_tlsa, qr(^[0-3]{1}\s[01]{1}\s[0-2]{1}\s[A-F0-9]{56}\s[A-F0-9]{8}), 'dig_tlsa() returnd format looks like an valid answer to dig tlsa'); |
44 like($test_dig_tlsa, qr(^[0-3]{1}\s[01]{1}\s[0-2]{1}\s[A-F0-9]{56}\s[A-F0-9]{8}), 'dig_tlsa() returnd format looks like an valid answer to dig tlsa'); |
45 |
45 |
46 } |
46 } |
47 |
47 |
48 test_main(); |
48 #test_main(); |
49 test_dig(); |
49 test_dig(); |
50 |
50 |
51 |
51 |
52 |
52 |
53 #@TODO write tests |
53 #@TODO write tests |