89 lines
1.7 KiB
Plaintext
89 lines
1.7 KiB
Plaintext
note
|
|
description: "[
|
|
Eiffel tests that can be executed by testing tool.
|
|
]"
|
|
author: "EiffelStudio test wizard"
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
testing: "type/manual"
|
|
|
|
class
|
|
TEST_HTTP_CLIENT
|
|
|
|
inherit
|
|
EQA_TEST_SET
|
|
|
|
feature -- Test routines
|
|
|
|
test_http_client
|
|
-- New test routine
|
|
local
|
|
sess: LIBCURL_HTTP_CLIENT_SESSION
|
|
h: STRING_8
|
|
do
|
|
create sess.make ("http://www.google.com")
|
|
if attached sess.get ("/search?q=eiffel", Void) as res then
|
|
create h.make_empty
|
|
if attached res.headers as hds then
|
|
across
|
|
hds as c
|
|
loop
|
|
h.append (c.item.key + ": " + c.item.value + "%R%N")
|
|
end
|
|
end
|
|
if attached res.body as l_body then
|
|
|
|
end
|
|
assert ("same headers", h.same_string (res.raw_header))
|
|
else
|
|
assert ("Not found", False)
|
|
end
|
|
end
|
|
|
|
test_headers
|
|
local
|
|
res: HTTP_CLIENT_RESPONSE
|
|
h: STRING
|
|
do
|
|
create res.make
|
|
create h.make_empty
|
|
h.append ("normal: NORMAL%R%N")
|
|
h.append ("concat: ABC%R%N")
|
|
h.append ("concat: DEF%R%N")
|
|
h.append ("key1: KEY%R%N")
|
|
h.append (" key2 : KEY%R%N")
|
|
h.append (" %T key3 : KEY%R%N")
|
|
h.append ("value1:VALUE%R%N")
|
|
h.append ("value2: VALUE%R%N")
|
|
h.append ("value3: VALUE%R%N")
|
|
h.append ("value4: VALUE %R%N")
|
|
h.append (" %Tfoo : BAR%T %R%N")
|
|
res.set_raw_header (h)
|
|
create h.make_empty
|
|
if attached res.headers as hds then
|
|
across
|
|
hds as c
|
|
loop
|
|
h.append (c.item.key + ": " + c.item.value + "%N")
|
|
end
|
|
end
|
|
assert ("Expected headers map", h.same_string ("[
|
|
normal: NORMAL
|
|
concat: ABC
|
|
concat: DEF
|
|
key1: KEY
|
|
key2: KEY
|
|
key3: KEY
|
|
value1: VALUE
|
|
value2: VALUE
|
|
value3: VALUE
|
|
value4: VALUE
|
|
foo: BAR
|
|
|
|
]"))
|
|
end
|
|
|
|
end
|
|
|
|
|