note description: "Summary description for {ESA_ROOT_API_TEST}." date: "$Date$" revision: "$Revision$" class ESA_ROOT_API_TEST inherit ESA_ABSTRACT_API_TEST feature -- Test test_register_html_get_request -- New test routine do media_type := "html" if attached execute_get ("reports") as l_resp then assert("Expected status 200", l_resp.status = 200) end end test_home_unnaceptable -- New test routine do if attached execute_get ("") as l_resp then assert("Expected status 406", l_resp.status = 406) end end test_home_accept_html -- New test routine do media_type := "html" if attached execute_get ("") as l_resp then assert("Expected status 200", l_resp.status = 200) if attached l_resp.header ("Content-Type") as l_type then assert("Expected Content-Type text/html", l_type.same_string ("text/html")) end end end test_home_accept_cj -- New test routine do media_type := "cj" if attached {HTTP_CLIENT_RESPONSE} execute_get ("") as l_resp then assert("Expected status 200", l_resp.status = 200) if attached l_resp.header ("Content-Type") as l_type then assert("Expected Content-Type application/vnd.collection+json", l_type.same_string ("application/vnd.collection+json")) end end end end