diff -r c26b5fa3f646 -r be90bcd14ae1 t/lib/Aux.pm --- a/t/lib/Aux.pm Wed Jun 29 11:42:51 2011 +0200 +++ b/t/lib/Aux.pm Thu Jun 30 09:45:38 2011 +0200 @@ -16,10 +16,35 @@ my $f = File::Temp->new or die "Config file creation failed\n"; if (ref $c eq 'HASH') { - map { print $f "$_ = $c->$_\n" } keys %{$c}; - } else { + map { print $f "$_ = $c->{$_}\n" } keys %{$c}; + } elsif (defined $c) { # assuming just a string print $f $c; + } else { + # make a default configuration + my ($bd, $md, $cd); + for ($bd, $md, $cd) { + my $d = File::Temp::tempdir CLEANUP => 1 or die "Can't make temporary directory"; + $_ = $d->filename; + } + + print $f <<__EOF; +bind_dir = $bd +master_dir = $md +zone_conf_dir = $cd + +key_counter_end = 15 +sign_alert_time = 168 +abl_zeit = 24 + +secondary = hh.schlittermann.de +primary = pu.schlittermann.de +hostmaster = hostmaster\@schlittermann.de + +indexzone = idx.tld +template_dir = ./templates +__EOF + } return $f;