Test parent cancellation in subrequest

diff --git a/src/tests/keywords/subrequest-timeout b/src/tests/keywords/subrequest-timeout
new file mode 100644 (file)
index 0000000..2b42e27
--- /dev/null
+++ b/src/tests/keywords/subrequest-timeout
@@ -0,0 +1,17 @@
+
+try {
+       timeout 100ms {
+               subrequest ::Access-Request {
+                       %time.advance(500ms)    # Smoke test, see if things explode
+                       parent.control.User-Name := 'bob'
+                       success
+               }
+       }
+}
+catch timeout {
+       if (control.User-Name == 'bob') {
+               test_fail
+       } else {
+               success
+       }
+}