From ed219a26574e05ba27264d73e75e5690e478570f Mon Sep 17 00:00:00 2001 From: Patrick Spek Date: Wed, 26 Apr 2017 23:08:59 +0200 Subject: Add Config::Parser::NULL for testcases --- t/05-null-parser.t | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 t/05-null-parser.t (limited to 't/05-null-parser.t') diff --git a/t/05-null-parser.t b/t/05-null-parser.t new file mode 100644 index 0000000..97e897f --- /dev/null +++ b/t/05-null-parser.t @@ -0,0 +1,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"; -- cgit v1.1