diff options
Diffstat (limited to 't')
-rw-r--r-- | t/05-null-parser.t | 30 | ||||
-rw-r--r-- | t/files/config (renamed from t/test-stub) | 0 | ||||
-rw-r--r-- | t/files/config.yaml | 0 | ||||
-rw-r--r-- | t/reading.t | 6 |
4 files changed, 33 insertions, 3 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"; diff --git a/t/test-stub b/t/files/config index e69de29..e69de29 100644 --- a/t/test-stub +++ b/t/files/config diff --git a/t/files/config.yaml b/t/files/config.yaml new file mode 100644 index 0000000..e69de29 --- /dev/null +++ b/t/files/config.yaml diff --git a/t/reading.t b/t/reading.t index e43252a..0792188 100644 --- a/t/reading.t +++ b/t/reading.t @@ -10,9 +10,9 @@ use Config; my $config = Config.new(); -throws-like { $config.read("nonexistant-config") }, Config::Exception::FileNotFoundException, "Reading nonexisting file"; -throws-like { $config.read("t/test-stub") }, Config::Exception::UnknownTypeException, "Reading file of unknown type"; -throws-like { $config.read("t/test-stub", "Config::Parser:NoSuchParserForTest") }, Config::Exception::MissingParserException, "Using non-existing parser"; +throws-like { $config.read("t/files/none") }, Config::Exception::FileNotFoundException, "Reading nonexisting file"; +throws-like { $config.read("t/files/config") }, Config::Exception::UnknownTypeException, "Reading file of unknown type"; +throws-like { $config.read("t/files/config", "Config::Parser:NoSuchParserForTest") }, Config::Exception::MissingParserException, "Using non-existing parser"; my $hash = { "a" => "a", |