blob: 7e3a457707c7f983c7466cafdb71f88fbcb4b5da (
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();
ok $config.set("a", "test").get("a") eq "test", "Setting simple key";
ok $config.set("b.c", "test").get("b.c") eq "test", "Setting nested key";
ok $config.set(["d"], "test").get("d") eq "test", "Setting simple key using array";
ok $config.set(["e", "f"], "test").get("e.f") eq "test", "Setting nested key using array";
|