tests for subrequest

diff --git a/src/tests/keywords/subrequest b/src/tests/keywords/subrequest
new file mode 100644 (file)
index 0000000..df3a473
--- /dev/null
+++ b/src/tests/keywords/subrequest
@@ -0,0 +1,7 @@
+subrequest {
+       update parent.control {
+               &Cleartext-Password := 'hello'
+       }
+
+       success
+}

diff --git a/src/tests/keywords/subrequest-if b/src/tests/keywords/subrequest-if
new file mode 100644 (file)
index 0000000..13804c1
--- /dev/null
+++ b/src/tests/keywords/subrequest-if
@@ -0,0 +1,18 @@
+#
+#  PRE: subrequest
+#
+subrequest {
+       update request {
+               &User-Name := &parent.request:User-Name
+       }
+
+       if (!&User-Name) {
+               test_fail
+       }
+
+       update parent.control {
+               &Cleartext-Password := 'hello'
+       }
+
+       success
+}