fake-kont async-request)))
(test-equal (car async-request) '*async-request*)
(test-equal (run-request-when run-request) expected-when)
fake-kont async-request)))
(test-equal (car async-request) '*async-request*)
(test-equal (run-request-when run-request) expected-when)