summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2010-02-28 15:46:41 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2010-02-28 15:46:41 -0500
commit5bfa75dbe0910dd19a8e0f40e2d03e33a4c44eb8 (patch)
tree4aeca801868850579ec9ac59cefcf4a5ed6bf25f /tests
parent704a9de8fe5e35ba24185048cf990456141a8bc0 (diff)
Fix parsing of space-free .urp directives; use 'class' for 'c*' tags
Diffstat (limited to 'tests')
-rw-r--r--tests/ctextbox.ur16
-rw-r--r--tests/ctextbox.urp1
2 files changed, 13 insertions, 4 deletions
diff --git a/tests/ctextbox.ur b/tests/ctextbox.ur
index c2a322e3..38c6c577 100644
--- a/tests/ctextbox.ur
+++ b/tests/ctextbox.ur
@@ -1,7 +1,15 @@
+style foo
+
fun main () : transaction page =
s <- source "Initial";
- return <xml><body>
- <ctextbox source={s} size=5/>
+ return <xml>
+ <head>
+ <link rel="stylesheet" type="text/css" href="http://localhost/static/style.css"/>
+ </head>
+ <body>
+ <ctextbox source={s} size=5/>
+ <ctextbox class={foo} source={s}/>
- <dyn signal={s <- signal s; return (cdata s)}/>
- </body></xml>
+ <dyn signal={s <- signal s; return (cdata s)}/>
+ </body>
+ </xml>
diff --git a/tests/ctextbox.urp b/tests/ctextbox.urp
index 93c828ac..d5cb5e9f 100644
--- a/tests/ctextbox.urp
+++ b/tests/ctextbox.urp
@@ -1,3 +1,4 @@
debug
+allow url http://localhost/*
ctextbox