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