add test for local variables in subrequest

diff --git a/src/tests/keywords/subrequest-local b/src/tests/keywords/subrequest-local
new file mode 100644 (file)
index 0000000..34c0562
--- /dev/null
+++ b/src/tests/keywords/subrequest-local
@@ -0,0 +1,19 @@
+#
+#  PRE: subrequest
+#
+subrequest ::Access-Request {
+       string name
+
+       name = "bob"
+
+       parent.control.User-Name := name
+       success
+}
+
+if (!control.User-Name) {
+       test_fail
+}
+
+if (!(control.User-Name == 'bob')) {
+       test_fail
+}