equal
deleted
inserted
replaced
1 #! /usr/bin/perl |
1 #! /usr/bin/perl |
2 |
2 |
3 use strict; |
3 use strict; |
4 use warnings; |
4 use warnings; |
5 use Test::More qw(no_plan); |
5 use Test::More qw(no_plan); |
|
6 use Test::Exception; |
6 |
7 |
7 BEGIN { use_ok 'Nagios::Check::DNS::check_tlsa_record' }; |
8 BEGIN { use_ok 'Nagios::Check::DNS::check_tlsa_record' => qw(dig_tlsa) }; |
|
9 |
|
10 dies_ok { dig_tlsa('ssl.schlittermann.de') } 'dies on missing port number'; |
|
11 |
|
12 foreach (['ssl.schlittermann.de' => 443], ['mx1.mailbox.org' => 25]) { |
|
13 my ($host, $port) = @$_; |
|
14 is dig_tlsa($host, $port), `dig tlsa _$port._tcp.$host +short` => "TLSA for _$port._tcp.$host"; |
|
15 } |
8 |
16 |
9 #@TODO write tests |
17 #@TODO write tests |
10 #my $return = Nagios::Check::DNS::check_tlsa_record::main(($domain, $port)); |
18 #my $return = Nagios::Check::DNS::check_tlsa_record::main(($domain, $port)); |
11 #say $return; |
19 #say $return; |
12 |
20 |