--- a/t/check_tlsa_record.t	Tue May 31 16:35:56 2016 +0200
+++ b/t/check_tlsa_record.t	Tue May 31 16:47:06 2016 +0200
@@ -3,8 +3,16 @@
 use strict;
 use warnings;
 use Test::More qw(no_plan);
+use Test::Exception;
 
-BEGIN { use_ok 'Nagios::Check::DNS::check_tlsa_record' };
+BEGIN { use_ok 'Nagios::Check::DNS::check_tlsa_record' => qw(dig_tlsa) };
+
+dies_ok { dig_tlsa('ssl.schlittermann.de') } 'dies on missing port number';
+
+foreach (['ssl.schlittermann.de' => 443], ['mx1.mailbox.org' => 25]) {
+		my ($host, $port) = @$_;
+		is dig_tlsa($host, $port), `dig tlsa _$port._tcp.$host +short` => "TLSA for _$port._tcp.$host";
+}
 
 #@TODO write tests
 #my $return = Nagios::Check::DNS::check_tlsa_record::main(($domain, $port));