Add Config::Parser::NULL for testcases

1 files changed, 30 insertions, 0 deletions

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