From d475760dfbbc0a3bb2732a924b006e68f6dcc065 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 27 Feb 2021 19:47:47 +0530
Subject: Display dictionary entries with empty values on the same line.

* ccwl/yaml.scm (display-dictionary-entry): If value is an empty array
or dictionary, display it on the same line.
(scm->yaml): Go to next line after printing empty array.
* tests/yaml.scm: New file.
* tests/yaml.scm ("dictionary entries with empty arrays and
dictionaries for values must render on the same line"): New test case.
---
 tests/yaml.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 tests/yaml.scm

(limited to 'tests/yaml.scm')

diff --git a/tests/yaml.scm b/tests/yaml.scm
new file mode 100644
index 0000000..767cdff
--- /dev/null
+++ b/tests/yaml.scm
@@ -0,0 +1,14 @@
+(use-modules (ccwl yaml)
+             (srfi srfi-64))
+
+(test-begin "yaml")
+
+(test-equal "dictionary entries with empty arrays and dictionaries for values must render on the same line"
+  (scm->yaml-string
+   '((foo . #())
+     (bar)))
+  "foo: []
+bar: {}
+")
+
+(test-end "yaml")
-- 
cgit v1.2.3