t/05-null-parser.t


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
30

#! /usr/bin/env perl6

use v6.c;
use Test;
use lib "lib";

use Config;
use Config::Parser::NULL;

plan 3;

::("Config::Parser::NULL").set-config({
    "a" => "a",
    "b" => {
        "c" => "c"
    }
});

my $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";