t/00-config.t
branchhs12
changeset 86 dc8741bbad33
parent 85 c47953192c5c
child 103 0c9f37c94f0c
--- a/t/00-config.t	Sun Jan 16 17:29:01 2011 +0100
+++ b/t/00-config.t	Sat Jan 22 00:05:44 2011 +0100
@@ -7,7 +7,7 @@
 use File::Temp;
 
 BEGIN {
-    use_ok "DNStools::Config", "get_config";
+    use_ok "DNStools::Config" => qw(get_config);
 }
 
 can_ok("DNStools::Config" => "get_config");
@@ -37,7 +37,7 @@
 $ENV{DNSTOOLS_CONF} = $tmp->filename;
 %cf = ();
 %cf = get_config("xxx|xxx", $tmp->filename);
-ok(%cf, "got config from env");
+ok(%cf, "got config from \$DNSTOOLS_CONF");
 is($cf{abc} => "xyz", "simple value");
 is($cf{other} => "valuewithspace", "spaced value");