summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-01-01 11:16:57 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-01-01 11:16:57 -0500
commit783f041bd07a2a7fb308c1c7d474d8997ff5ab12 (patch)
treed9c2cf66e198b19c607a6d9076c6f32371f37b2c /tests
parente0d59f2e5dc62dbc99a7f85197b4b3c63fcaf101 (diff)
Reactive if
Diffstat (limited to 'tests')
-rw-r--r--tests/stypes.ur4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/stypes.ur b/tests/stypes.ur
index e5006465..c752234c 100644
--- a/tests/stypes.ur
+++ b/tests/stypes.ur
@@ -22,5 +22,7 @@ fun main () : transaction page =
| Some n => return <xml>{[n]}</xml>}/>
<a onclick={set sOpt (Some 7)}>Change</a><br/>
- <dyn signal={b <- signal sBool; return <xml>{[b]}</xml>}/> <a onclick={set sBool False}>Change</a><br/>
+ <dyn signal={b <- signal sBool; return <xml>{[b]}</xml>}/>
+ <dyn signal={b <- signal sBool; if b then return <xml>Yes</xml> else return <xml>No</xml>}/>
+ <a onclick={set sBool False}>Change</a><br/>
</body></xml>