Initial commit

1 files changed, 33 insertions, 0 deletions

diff --git a/t/01-read.t b/t/01-read.t
new file mode 100644
index 0000000..fa5a75b
--- /dev/null
+++ b/t/01-read.t
@@ -0,0 +1,33 @@
+#! /usr/bin/env perl6
+
+use v6.c;
+use Test;
+use lib "lib";
+
+use Config;
+use Config::Parser::toml;
+
+plan 4;
+
+my $config = Config.new();
+
+ok $config.read("t/files/config.toml"), "File reading throws no error";
+
+subtest "Contents match" => {
+    plan 2;
+
+    is $config.get("header.a"), "a", "a = a";
+    is $config.get("header.b"), "b", "b = b";
+};
+
+ok $config.read("t/files/merge.toml"), "File merging throws no error";
+
+subtest "Contents match after merging" => {
+    plan 4;
+
+    is $config.get("header.a"), "a", "a = a";
+    is $config.get("header.b"), "b", "b = b";
+    is $config.get("header.c"), "c", "c = c";
+
+    is $config.get("merge-header.a"), "a", "a = a";
+};