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

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

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)
(cat (dsp "<")
(dsp sym)
(dsp (to-attribute-name sym))
(dsp " ")
(apply cat (intersperse (dsp " ")
(map attribute attrs)))
@ -40,7 +40,7 @@
(define (close-tag sym)
(cat (dsp "</")
(dsp sym)
(dsp (to-attribute-name sym))
(dsp ">")))
(define (tag sym attrs . body)