(testing-handler pox-handler)

(test-handler (POST "/users/max/tasks" "* foo")
              ((accept #(text/x-downtime)))
              => resp
              (test 200 (response-code resp)))

(test-handler (GET "/users/max/tasks?omit-origin=true")
              ((accept #(text/x-downtime)))
              => resp
              (test 200 (response-code resp))
              (let ((body (read-string #f (response-port resp))))
                (test "* foo #1  \n\n" body)))