summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Artyom Shalkhakov <artyom.shalkhakov@gmail.com>2018-05-08 17:25:29 +0600
committerGravatar Artyom Shalkhakov <artyom.shalkhakov@gmail.com>2018-05-08 17:25:29 +0600
commit1078553f5a8de2a5e85dbd49058370afeefa68c7 (patch)
tree5ad865ff4d91578fa2923930a83b6ffd003d3fd4 /tests
parentc293746d4c34ccb7abb8af41f7d05940aa7e4076 (diff)
Adding jsbspace for #121.
Diffstat (limited to 'tests')
-rw-r--r--tests/Makefile1
-rw-r--r--tests/jsbspace.py11
-rw-r--r--tests/jsbspace.ur12
3 files changed, 24 insertions, 0 deletions
diff --git a/tests/Makefile b/tests/Makefile
index 63ae555e..250a2ece 100644
--- a/tests/Makefile
+++ b/tests/Makefile
@@ -19,3 +19,4 @@ simple::
./driver.sh entities
./driver.sh fact
./driver.sh filter
+ ./driver.sh jsbspace
diff --git a/tests/jsbspace.py b/tests/jsbspace.py
new file mode 100644
index 00000000..b29d44b9
--- /dev/null
+++ b/tests/jsbspace.py
@@ -0,0 +1,11 @@
+import unittest
+import base
+
+class Suite(base.Base):
+ def test_1(self):
+ """Test case 1"""
+ self.start()
+ el = self.xpath('button')
+ el.click()
+ alert = self.driver.switch_to.alert
+ self.assertEqual('Some \btext', alert.text)
diff --git a/tests/jsbspace.ur b/tests/jsbspace.ur
new file mode 100644
index 00000000..bf4b824f
--- /dev/null
+++ b/tests/jsbspace.ur
@@ -0,0 +1,12 @@
+fun main () : transaction page =
+let
+ fun onclick (): transaction unit =
+ (* this function runs on the client *)
+ alert "Some \btext"
+in
+return <xml>
+ <body>
+ <button onclick={fn _ => onclick()}>Click me!</button>
+ </body>
+</xml>
+end \ No newline at end of file