Verify that the argument mapping doesn't get the argvalues as argnames

too.

Rev: src/modules/Parser/testsuite.in:1.4

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;});