From 93c8ebf8965e2220408cdbf9d26bfeb3969203cc Mon Sep 17 00:00:00 2001
From: Joe Thornber <ejt@redhat.com>
Date: Wed, 30 Aug 2017 15:15:12 +0100
Subject: [PATCH] [functional-tests] s/-/_/ in tag names

---
 functional-tests/xml.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/functional-tests/xml.scm b/functional-tests/xml.scm
index b12145c..ef1dc97 100644
--- a/functional-tests/xml.scm
+++ b/functional-tests/xml.scm
@@ -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)