From fe7e117ee12678095ddbdc7b68907e8b9ad48ae6 Mon Sep 17 00:00:00 2001
From: Patrick Spek <p.spek@tyil.nl>
Date: Tue, 20 Mar 2018 14:40:00 +0100
Subject: Fix :delete adverb

---
 t/08-unsetting.t.t | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 t/08-unsetting.t.t

(limited to 't')

diff --git a/t/08-unsetting.t.t b/t/08-unsetting.t.t
new file mode 100644
index 0000000..8837989
--- /dev/null
+++ b/t/08-unsetting.t.t
@@ -0,0 +1,30 @@
+#! /usr/bin/env perl6
+
+use v6.c;
+use Test;
+use lib "lib";
+
+plan 8;
+
+use Config;
+
+my $config = Config.new;
+
+$config.read: %(
+	a => "b",
+	c => %(
+		d => "e",
+	),
+);
+
+dd $config.get();
+
+ok $config<a>:exists, "'a' exists";
+ok $config<a>:delete, "'a' gets deleted";
+nok $config<a>:exists, "'a' no longer exists";
+ok $config<c>:exists, "'c' remains untouched";
+
+ok $config.has("c.d"), "'c.d' exists";
+ok $config.unset("c.d"), "'c.d' gets deleted";
+nok $config.has("c.d"), "'c.d' no longer exists";
+ok $config.has("c"), "'c' still exists";
-- 
cgit v1.1