emo/thin-provisioning-tools
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[functional-tests] s/-/_/ in tag names

Browse Source
This commit is contained in:
Joe Thornber 2017-08-30 15:15:12 +01:00
parent d3c8ae4f35
commit 93c8ebf896
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
functional-tests/xml.scm
View File

@ -26,7 +26,7 @@
(define (%open-tag sym attrs end) (define (%open-tag sym attrs end)
(cat (dsp "<") (cat (dsp "<")
(dsp sym) (dsp (to-attribute-name sym))
(dsp " ") (dsp " ")
(apply cat (intersperse (dsp " ") (apply cat (intersperse (dsp " ")
(map attribute attrs))) (map attribute attrs)))
@ -40,7 +40,7 @@
(define (close-tag sym) (define (close-tag sym)
(cat (dsp "</") (cat (dsp "</")
(dsp sym) (dsp (to-attribute-name sym))
(dsp ">"))) (dsp ">")))
(define (tag sym attrs . body) (define (tag sym attrs . body)