equal
deleted
inserted
replaced
21 is($? => 0, "exit on man"); |
21 is($? => 0, "exit on man"); |
22 |
22 |
23 system("$CMD >/dev/null 2>&1"); |
23 system("$CMD >/dev/null 2>&1"); |
24 ok($? > 0, "error on missing args"); |
24 ok($? > 0, "error on missing args"); |
25 |
25 |
26 $_ = File::Temp::tempdir CLEANUP => 1 or die "Can't make temporary directory" for my ($master_dir, $config_dir); |
26 #$_ = File::Temp::tempdir CLEANUP => 1 or die "Can't make temporary directory" for my ($master_dir, $config_dir); |
27 my $tmp = Aux::make_config { |
27 my $tmp = Aux::make_config; |
28 master_dir => $master_dir, |
|
29 zone_conf_dir => $config_dir, |
|
30 hostmaster => 'hostmaster@schlittermann.de', |
|
31 template_dir => './templates' |
|
32 }; |
|
33 $ENV{DNSTOOLS_CONF} = $tmp->filename; |
28 $ENV{DNSTOOLS_CONF} = $tmp->filename; |
34 |
29 |
35 system("perl -Mblib blib/sbin/zone-mk xxx $zone >/dev/null 2>&1"); |
30 system("perl -Mblib blib/sbin/zone-mk xxx $zone >/dev/null 2>&1"); |
36 die "zone creation failed" if $?; |
31 die "zone creation failed" if $?; |
37 |
32 |