diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2010-02-28 15:46:41 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2010-02-28 15:46:41 -0500 |
| commit | 5bfa75dbe0910dd19a8e0f40e2d03e33a4c44eb8 (patch) | |
| tree | 4aeca801868850579ec9ac59cefcf4a5ed6bf25f /tests | |
| parent | 704a9de8fe5e35ba24185048cf990456141a8bc0 (diff) | |
Fix parsing of space-free .urp directives; use 'class' for 'c*' tags
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ctextbox.ur | 16 | ||||
| -rw-r--r-- | tests/ctextbox.urp | 1 |
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 |