Implement configuration policy sampling

1 files changed, 8 insertions, 0 deletions

diff --git a/lua/clever_f/testing/memory_host.lua b/lua/clever_f/testing/memory_host.lua
index 726d244..57af1f1 100644
--- a/lua/clever_f/testing/memory_host.lua
+++ b/lua/clever_f/testing/memory_host.lua
@@ -268,6 +268,14 @@ function MemoryHost:read_configuration(name)
   return value
 end
 
+function MemoryHost:write_configuration(name, value)
+  if type(name) ~= "string" or name == "" then
+    error("configuration name must be a nonempty string", 2)
+  end
+  self._configuration[name] = copy(value)
+  self:_record("write_configuration", { name = name, value = value })
+end
+
 function MemoryHost:read_encoding()
   self:_record("read_encoding", { encoding = self._encoding })
   return self._encoding