diff --git a/src/modules/Parser/testsuite.in b/src/modules/Parser/testsuite.in
index 2ac14cd59acd79ad89a477911b6a92a6bd99ba81..fa1e3e2d2853a009a3ebbbdc3229f14cc260e5c2 100644
--- a/src/modules/Parser/testsuite.in
+++ b/src/modules/Parser/testsuite.in
@@ -22,6 +22,16 @@ test_any([[
   p->add_tag ("t", lambda (object p, mapping a) {return ({a->a});});
   return p->finish("<t a>")->read();
 ]], "a")
+test_any([[
+  object p = Parser.HTML();
+  p->add_tag ("t", lambda (object p, mapping a) {return ({sort(indices(a))*","});});
+  return p->finish("<t a=b 1=2>")->read();
+]], [["1,a"]])
+test_any([[
+  object p = Parser.HTML();
+  p->add_tag ("t", lambda (object p, mapping a) {return ({sort(values(a))*","});});
+  return p->finish("<t a=b 1=2>")->read();
+]], [["2,b"]])
 test_any([[
   object p = Parser.HTML();
   p->add_tag ("t", lambda (object p, mapping a) {return p;});