blob: 18790cfbe0ed9da4254e54192343192060ab0f17 (
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 2;
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";
|