From 4e03507046a24c73d35eddea22cba0642d88fc42 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 28 Oct 2023 23:36:25 +0200
Subject: Add tests for xmllint.

---
 tests/unit/util/test-xmllint.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 tests/unit/util/test-xmllint.scm

diff --git a/tests/unit/util/test-xmllint.scm b/tests/unit/util/test-xmllint.scm
new file mode 100644
index 00000000..1320305b
--- /dev/null
+++ b/tests/unit/util/test-xmllint.scm
@@ -0,0 +1,19 @@
+(define-module (test xmllint)
+  :use-module (srfi srfi-64)
+  :use-module (srfi srfi-64 test-error)
+  :use-module (srfi srfi-88)
+  :use-module (hnh test xmllint))
+
+;;; Really simple test, since all the logic is external.
+;;; This just assures that xmllint is runnable on the current system, and that
+;;; we handle input and output correctly.
+(test-equal "xmllint"
+  "<?xml version=\"1.0\"?>
+<a href=\"#\">
+  <b/>
+</a>
+"
+  (xmllint "<a href=\"#\"><b/></a>"))
+
+
+'((hnh test xmllint))
-- 
cgit v1.2.3