1 #! /usr/bin/perl

     1 #! /usr/bin/perl

     2 

     2 

     3 use strict;

     3 use strict;

     4 use warnings;

     4 use warnings;

     7 use File::Temp;

     6 use File::Temp;

     8 

     7 

     9 BEGIN {

     8 BEGIN {

    10     use_ok "DNStools::Config" => qw(get_config);

     9     use_ok "DNStools::Config" => qw(get_config);

    11 }

    10 }

    38 %cf = ();

    37 %cf = ();

    39 %cf = get_config("xxx|xxx", $tmp->filename);

    38 %cf = get_config("xxx|xxx", $tmp->filename);

    40 ok(%cf, "got config from \$DNSTOOLS_CONF");

    39 ok(%cf, "got config from \$DNSTOOLS_CONF");

    41 is($cf{abc} => "xyz", "simple value");

    40 is($cf{abc} => "xyz", "simple value");

    42 is($cf{other} => "valuewithspace", "spaced value");

    41 is($cf{other} => "valuewithspace", "spaced value");