diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-12-27 15:34:11 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-12-27 15:34:11 -0500 |
| commit | 53c633b53e8825cb9058fb88e86d1ca7828b83e6 (patch) | |
| tree | 94682452c654491c184a8e2d43d3dbfdb4e46cf9 /tests | |
| parent | bf6fbd81d4e60a87b19f8c8149349217b4620360 (diff) | |
Add some name-mangling rules to allow XML attribute 'name' and attributes with dashes
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/attrMangle.ur | 5 | ||||
| -rw-r--r-- | tests/attrMangle.urp | 4 | ||||
| -rw-r--r-- | tests/goofy.urs | 1 |
3 files changed, 10 insertions, 0 deletions
diff --git a/tests/attrMangle.ur b/tests/attrMangle.ur new file mode 100644 index 00000000..6efb0513 --- /dev/null +++ b/tests/attrMangle.ur @@ -0,0 +1,5 @@ +open Goofy + +fun main () : transaction page = return <xml><body> + <goofy name="beppo" data-role="excellence"/> +</body></xml> diff --git a/tests/attrMangle.urp b/tests/attrMangle.urp new file mode 100644 index 00000000..5059998b --- /dev/null +++ b/tests/attrMangle.urp @@ -0,0 +1,4 @@ +ffi goofy +rewrite all AttrMangle/* + +attrMangle diff --git a/tests/goofy.urs b/tests/goofy.urs new file mode 100644 index 00000000..71b55f42 --- /dev/null +++ b/tests/goofy.urs @@ -0,0 +1 @@ +val goofy : bodyTag [Nam = string, Data_role = string] |