diff options
Diffstat (limited to 't/getting.t')
-rw-r--r-- | t/getting.t | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/t/getting.t b/t/getting.t deleted file mode 100644 index 06a345a..0000000 --- a/t/getting.t +++ /dev/null @@ -1,28 +0,0 @@ -#! /usr/bin/env perl6 - -use v6.c; -use Test; -use lib "lib"; - -plan 8; - -use Config; - -my $config = Config.new(); - -$config.read({ - a => "a", - b => { - c => "c" - } -}); - -ok $config.get("a") eq "a", "Get simple key"; -ok $config.get("b.c") eq "c", "Get nested key"; -ok $config.get("nonexistant") === Nil, "Get nonexistant key"; -ok $config.get("nonexistant", "test") === "test", "Get nonexistant key with default"; - -ok $config.get(["a"]) eq "a", "Get simple key by array"; -ok $config.get(["b", "c"]) eq "c", "Get nested key by array"; -ok $config.get(["nonexistant"]) === Nil, "Get nonexistant key by array"; -ok $config.get(["nonexistant"], "test") === "test", "Get nonexistant key by array with default"; |