1 #! /usr/bin/perl

     2 

     3 use strict;

     4 use warnings;

     5 use Test::More qw(no_plan);

     6 

     7 BEGIN { use_ok('Nagios::Check::DNS::check_tlsa_record') };

     8 

     9 require_ok('Nagios::Check::DNS::check_tlsa_record');

    10 

    11 #my $return = Nagios::Check::DNS::check_tlsa_record::main(($domain, $port));

    12 #say $return;

    13 

    14 #my $return = Nagios::Check::DNS::check_tlsa_record::main();

    15 #say $return;

    16 

    17 #my $return5 = Nagios::Check::DNS::check_tlsa_record::main(qw(hh.schlittermann.de 25 tcp));

    18 #say $return5;

    19 

    20 #my $return2 = Nagios::Check::DNS::check_tlsa_record::dig_tlsa(qw(hh.schlittermann.de 25 udp));

    21 #say $return2;

    22 #

    23 #my $return3 = Nagios::Check::DNS::check_tlsa_record::dig_tlsa(qw(hh.schlittermann.de 25));

    24 #say $return3;

    25 #

    26 #my $return4 = Nagios::Check::DNS::check_tlsa_record::dig_tlsa(qw(hh.schlittermann.de));

    27 #say $return4;

    28 

    29 

    30 

    31 # vim: ft=perl ts=2 sw=2