--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/t/check_tlsa_record.t	Thu May 26 12:27:22 2016 +0200
@@ -0,0 +1,31 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More qw(no_plan);
+
+BEGIN { use_ok('Nagios::Check::DNS::check_tlsa_record') };
+
+require_ok('Nagios::Check::DNS::check_tlsa_record');
+
+#my $return = Nagios::Check::DNS::check_tlsa_record::main(($domain, $port));
+#say $return;
+
+#my $return = Nagios::Check::DNS::check_tlsa_record::main();
+#say $return;
+
+#my $return5 = Nagios::Check::DNS::check_tlsa_record::main(qw(hh.schlittermann.de 25 tcp));
+#say $return5;
+
+#my $return2 = Nagios::Check::DNS::check_tlsa_record::dig_tlsa(qw(hh.schlittermann.de 25 udp));
+#say $return2;
+#
+#my $return3 = Nagios::Check::DNS::check_tlsa_record::dig_tlsa(qw(hh.schlittermann.de 25));
+#say $return3;
+#
+#my $return4 = Nagios::Check::DNS::check_tlsa_record::dig_tlsa(qw(hh.schlittermann.de));
+#say $return4;
+
+
+
+# vim: ft=perl ts=2 sw=2