blob: 96ab7c3d291e3b7f5086771aae4237adca7dac7d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#! /usr/bin/env perl6
use v6.c;
use Test;
use lib "lib";
plan 4;
use Config;
my $config = Config.new;
is $config.set("a", "test").get("a"), "test", "Setting simple key";
is $config.set("b.c", "test").get("b.c"), "test", "Setting nested key";
is $config.set(["d"], "test").get("d"), "test", "Setting simple key using array";
is $config.set(["e", "f"], "test").get("e.f"), "test", "Setting nested key using array";
|