blob: 1320305bba85eba660692cc6f49b73c33420d908 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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))
|