1 use strict;

     2 use warnings;

     3 

     4 use Test::More;

     5 use File::Temp;

     6 use Net::LibIDN qw(:all);

     7 

     8 my $CMD = "perl -Mblib blib/script/zone-mk";

     9 

    10 system("$CMD -h &>/dev/null");

    11 is($? => 0, "exit on help");

    12 

    13 system("$CMD -m &>/dev/null");

    14 is($? => 0, "exit on man");

    15 

    16 system("$CMD &>/dev/null");

    17 ok($? > 0, "error on missing args");

    18 

    19 my $master_dir = File::Temp->newdir;

    20 my $config_dir = File::Temp->newdir;

    21 my $tmp = File::Temp->new;

    22 $ENV{DNSTOOLS_CONF} = $tmp->filename;

    23 

    24 print $tmp <<__EOF;

    25 master_dir = $master_dir

    26 zone_conf_dir = $config_dir

    27 hostmaster = hostmaster\@schlittermann.de

    28 template_dir = ./templates		

    29 __EOF

    30 

    31 system("$CMD xxx müller.de &>/dev/null");

    32 is($? => 0, "created zone");

    33 

    34 my $domain = idn_to_ascii("müller.de", "UTF-8");

    35 ok(-s "$master_dir/$domain/$domain", "zone file $domain");

    36 ok(-s "$config_dir/$domain", "config file $domain");

    37 

    38 

    39 done_testing;