diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-28 23:36:25 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
commit | 4e03507046a24c73d35eddea22cba0642d88fc42 (patch) | |
tree | d99578199e5708e3b82194e202d040f80d8b6e81 | |
parent | Exclude some more files from coverage testing. (diff) | |
download | calp-4e03507046a24c73d35eddea22cba0642d88fc42.tar.gz calp-4e03507046a24c73d35eddea22cba0642d88fc42.tar.xz |
Add tests for xmllint.
-rw-r--r-- | tests/unit/util/test-xmllint.scm | 19 |
1 files changed, 19 insertions, 0 deletions
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)) |