--- a/t/check_tlsa_record.t	Thu Jun 02 09:15:31 2016 +0200
+++ b/t/check_tlsa_record.t	Tue Jun 07 14:36:03 2016 +0200
@@ -40,12 +40,12 @@
 sub test_dig() {
 
 #my $test_dig_tlsa = Nagios::Check::DNS::check_tlsa_record::dig_tlsa($domain, 25, 'tcp');
-my $test_dig_tlsa = Nagios::Check::DNS::check_tlsa_record::dig_tlsa($domain, 443);
+my $test_dig_tlsa = Nagios::Check::DNS::check_tlsa_record::get_tlsa_from_dns($domain, 443);
 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');
 
 }
 
-test_main();
+#test_main();
 test_dig();