From f49e1505bd506746a37cd8a56488e7d4acf47727 Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Sat, 31 Jul 1999 04:14:42 +0200
Subject: [PATCH] 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 | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/src/modules/Parser/testsuite.in b/src/modules/Parser/testsuite.in
index 2ac14cd59a..fa1e3e2d28 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;});
--
GitLab