blob: 93be0623d3859642e9890fa4e8d207b2b50cd777 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#! /usr/bin/env perl6
use v6.c;
use Test;
use Config;
use Config::Parser::NULL;
plan 3;
::("Config::Parser::NULL").set-config({
"a" => "a",
"b" => {
"c" => "c"
}
});
my Config $config = Config.new();
ok $config.read("t/files/config", "Config::Parser::NULL"), "Attempt to read a file with Config::Parser::NULL";
is-deeply $config.get(), {
"a" => "a",
"b" => {
"c" => "c"
}
}, "Check read config from Config::Parser::NULL";
ok $config.write("t/t/t"), "Attempt to write a file with Config::Parser::NULL";
|