#
#  PRE: subrequest
#
subrequest ::Access-Request {
	User-Name := parent.request.User-Name

	if (!User-Name) {
		test_fail
	}

	if (!(User-Name == 'bob')) {
		test_fail
	}

	parent.control.User-Name := 'bob'

	success
}
