diff options
author | Patrick Spek <p.spek@tyil.nl> | 2017-04-26 23:10:00 +0200 |
---|---|---|
committer | Patrick Spek <p.spek@tyil.nl> | 2017-04-26 23:10:00 +0200 |
commit | c2b980b7962951bc5c277473d41974e76a5e66fa (patch) | |
tree | 990e016095549d0b7c052d0855b60eb7d34daeea /t/02-getting.t | |
parent | ed219a26574e05ba27264d73e75e5690e478570f (diff) |
Rename test files
Diffstat (limited to 't/02-getting.t')
-rw-r--r-- | t/02-getting.t | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/t/02-getting.t b/t/02-getting.t new file mode 100644 index 0000000..06a345a --- /dev/null +++ b/t/02-getting.t @@ -0,0 +1,28 @@ +#! /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"; |