diff --git a/library/server/wsf/tests/server/test_execution.e b/library/server/wsf/tests/server/test_execution.e index db7d0179..21879a8a 100644 --- a/library/server/wsf/tests/server/test_execution.e +++ b/library/server/wsf/tests/server/test_execution.e @@ -51,7 +51,7 @@ feature -- Helper if b = Void then b := "" end - Result := "/" + b + a_query_url + Result := b + a_query_url end end diff --git a/library/server/wsf/tests/server/test_settings.e b/library/server/wsf/tests/server/test_settings.e index b30ee4c3..29e8f5b5 100644 --- a/library/server/wsf/tests/server/test_settings.e +++ b/library/server/wsf/tests/server/test_settings.e @@ -11,6 +11,6 @@ feature -- Access port_number: INTEGER = 9091 - base_url: STRING = "" --"/test/" + base_url: STRING = "/test/" end diff --git a/library/server/wsf/tests/src/test_wsf_request_script_url.e b/library/server/wsf/tests/src/test_wsf_request_script_url.e index 5a97ca86..da0e07e7 100644 --- a/library/server/wsf/tests/src/test_wsf_request_script_url.e +++ b/library/server/wsf/tests/src/test_wsf_request_script_url.e @@ -32,7 +32,7 @@ feature -- Execution feature -- Tests - test_script_url + test_script_url_1 local req: WSF_REQUEST s: READABLE_STRING_8 @@ -48,7 +48,13 @@ feature -- Tests ) s := req.script_url ("/new/path/") assert ("script_url (/new/path/) = %""+s+"%" but should be %"/foo/bar/new/path/%"", s.same_string ("/foo/bar/new/path/")) + end + test_script_url_2 + local + req: WSF_REQUEST + s: READABLE_STRING_8 + do --| Case #2 req := new_request (<< ["REQUEST_METHOD", "GET"], @@ -60,7 +66,13 @@ feature -- Tests ) s := req.script_url ("/new/path/") assert ("script_url (/new/path/) = %""+s+"%" but should be %"/foo/bar/new/path/%"", s.same_string ("/foo/bar/new/path/")) + end + test_script_url_3 + local + req: WSF_REQUEST + s: READABLE_STRING_8 + do --| Case #3 req := new_request (<< ["REQUEST_METHOD", "GET"], diff --git a/library/server/wsf/tests/src/test_wsf_response_test_suite.e b/library/server/wsf/tests/src/test_wsf_response_test_suite.e index 968ca0b2..b5412d03 100644 --- a/library/server/wsf/tests/src/test_wsf_response_test_suite.e +++ b/library/server/wsf/tests/src/test_wsf_response_test_suite.e @@ -44,17 +44,17 @@ feature -- Test Cases l_cookie.set_path ("/") l_cookie.set_secure (True) l_cookie.set_http_only (True) - assert("Expected", l_cookie.header_line.same_string ("Set-Cookie: user_id=u12345; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Max-Age=-1; Secure; HttpOnly")) + assert("Expected", l_cookie.header_line.same_string ("Set-Cookie: user_id=u12345; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Secure; HttpOnly")) w_res.put_header_text (l_header.string) w_res.add_cookie (l_cookie) w_res.set_status_code ({HTTP_STATUS_CODE}.ok) w_res.put_string ("Test") - assert ("Expected", l_res.output.same_string("200 %R%NContent-Type: text/html%R%NSet-Cookie: user_id=u12345; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Max-Age=-1; Secure; HttpOnly%R%N%R%NTest") ) + assert ("Expected", l_res.output.same_string("200 %R%NContent-Type: text/html%R%NSet-Cookie: user_id=u12345; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Secure; HttpOnly%R%N%R%NTest") ) end - test_add_multiple_cookiewith_similar_cookie_name + test_add_multiple_cookies_with_similar_cookie_name local w_res: WSF_RESPONSE l_cookie: WSF_COOKIE @@ -73,7 +73,7 @@ feature -- Test Cases l_cookie.set_path ("/") l_cookie.set_secure (True) l_cookie.set_http_only (True) - assert("Expected", l_cookie.header_line.same_string ("Set-Cookie: user_id=u12345; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Max-Age=-1; Secure; HttpOnly")) + assert("Expected", l_cookie.header_line.same_string ("Set-Cookie: user_id=u12345; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Secure; HttpOnly")) w_res.put_header_text (l_header.string) w_res.add_cookie (l_cookie) @@ -84,16 +84,16 @@ feature -- Test Cases l_cookie.set_path ("/") l_cookie.set_secure (True) l_cookie.set_http_only (True) - assert("Expected", l_cookie.header_line.same_string ("Set-Cookie: user_id=newUser; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Max-Age=-1; Secure; HttpOnly")) + assert("Expected", l_cookie.header_line.same_string ("Set-Cookie: user_id=newUser; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Secure; HttpOnly")) w_res.add_cookie (l_cookie) -- Ignored w_res.set_status_code ({HTTP_STATUS_CODE}.ok) w_res.put_string ("Test") - assert ("Expected", l_res.output.same_string("200 %R%NContent-Type: text/html%R%NSet-Cookie: user_id=u12345; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Max-Age=-1; Secure; HttpOnly%R%N%R%NTest") ) + assert ("Expected", l_res.output.same_string("200 %R%NContent-Type: text/html%R%NSet-Cookie: user_id=u12345; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Secure; HttpOnly%R%N%R%NTest") ) end - test_add_multiple_cookie_with_similar_cookie_name_2 + test_add_multiple_cookies_with_similar_cookie_name_2 local w_res: WSF_RESPONSE l_cookie: WSF_COOKIE @@ -113,7 +113,7 @@ feature -- Test Cases l_cookie.set_path ("/") l_cookie.set_secure (True) l_cookie.set_http_only (True) - assert("Expected", l_cookie.header_line.same_string ("Set-Cookie: user_id=u12345; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Max-Age=-1; Secure; HttpOnly")) + assert("Expected", l_cookie.header_line.same_string ("Set-Cookie: user_id=u12345; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Secure; HttpOnly")) w_res.add_cookie (l_cookie) @@ -123,7 +123,7 @@ feature -- Test Cases l_cookie.set_path ("/") l_cookie.set_secure (True) l_cookie.set_http_only (True) - assert("Expected", l_cookie.header_line.same_string ("Set-Cookie: user_id=newUser; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Max-Age=-1; Secure; HttpOnly")) + assert("Expected", l_cookie.header_line.same_string ("Set-Cookie: user_id=newUser; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Secure; HttpOnly")) w_res.add_cookie (l_cookie) -- Ignored @@ -134,11 +134,11 @@ feature -- Test Cases l_cookie.set_path ("/") l_cookie.set_secure (True) l_cookie.set_http_only (True) - assert("Expected", l_cookie.header_line.same_string ("Set-Cookie: ewf_sessionid=test; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Max-Age=-1; Secure; HttpOnly")) + assert("Expected", l_cookie.header_line.same_string ("Set-Cookie: ewf_sessionid=test; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Secure; HttpOnly")) w_res.add_cookie (l_cookie) w_res.set_status_code ({HTTP_STATUS_CODE}.ok) w_res.put_string ("Test") - assert ("Expected", l_res.output.same_string("200 %R%NContent-Type: text/html%R%NSet-Cookie: user_id=u12345; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Max-Age=-1; Secure; HttpOnly%R%NSet-Cookie: ewf_sessionid=test; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Max-Age=-1; Secure; HttpOnly%R%N%R%NTest") ) + assert ("Expected", l_res.output.same_string("200 %R%NContent-Type: text/html%R%NSet-Cookie: user_id=u12345; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Secure; HttpOnly%R%NSet-Cookie: ewf_sessionid=test; Domain=www.example.com; Path=/; Expires=Sat, 18 Apr 2015 21:22:05 GMT; Secure; HttpOnly%R%N%R%NTest") ) end end