From 312b33592df7409745b44503e5558bb173a8e6f7 Mon Sep 17 00:00:00 2001
From: Patrick Spek <p.spek@tyil.nl>
Date: Wed, 26 Apr 2017 23:08:59 +0200
Subject: Add Config::Parser::NULL for testcases

---
 lib/Config/Parser.pm6      |  6 +++++-
 lib/Config/Parser/NULL.pm6 | 31 +++++++++++++++++++++++++++++++
 2 files changed, 36 insertions(+), 1 deletion(-)
 create mode 100644 lib/Config/Parser/NULL.pm6

(limited to 'lib/Config')

diff --git a/lib/Config/Parser.pm6 b/lib/Config/Parser.pm6
index 1a99ad6..d067513 100644
--- a/lib/Config/Parser.pm6
+++ b/lib/Config/Parser.pm6
@@ -6,6 +6,8 @@ use Config::Exception::UnimplementedMethodException;
 
 class Config::Parser
 {
+    #| Attempt to read the file at a given $path, and returns its
+    #| parsed contents as a Hash.
     method read(Str $path --> Hash)
     {
         Config::Exception::UnimplementedMethodException.new(
@@ -13,7 +15,9 @@ class Config::Parser
         ).throw();
     }
 
-    method write(Str $path, Hash $config --> Hash)
+    #| Attempt to write the $config Hash at a given $path. Returns
+    #| True on success, False on failure.
+    method write(Str $path, Hash $config --> Bool)
     {
         Config::Exception::UnimplementedMethodException.new(
             method => "write"
diff --git a/lib/Config/Parser/NULL.pm6 b/lib/Config/Parser/NULL.pm6
new file mode 100644
index 0000000..ff384b1
--- /dev/null
+++ b/lib/Config/Parser/NULL.pm6
@@ -0,0 +1,31 @@
+#! /usr/bin/env false
+
+use v6.c;
+
+use Config::Parser;
+
+#| The Config::Parser::NULL is a parser to mock with for testing purposes.
+#| It exposes an additional method, set-config, so you can set a config
+#| Hash to return when calling `read`.
+class Config::Parser::NULL is Config::Parser
+{
+    my $mock-config;
+
+    #| Return the mock config, skipping the file entirely.
+    method read(Str $path --> Hash)
+    {
+        $mock-config;
+    }
+
+    #| Set the mock config to return on read.
+    method set-config(Hash $config)
+    {
+        $mock-config = $config;
+    }
+
+    #| Return True, as if writing succeeded.
+    method write(Str $path, Hash $config --> Bool)
+    {
+        True;
+    }
+}
-- 
cgit v1.1