138 lines
3.8 KiB
Plaintext
138 lines
3.8 KiB
Plaintext
note
|
|
description : "httptest application root class"
|
|
date : "$Date$"
|
|
revision : "$Revision$"
|
|
|
|
class
|
|
APPLICATION
|
|
|
|
inherit
|
|
ARGUMENTS
|
|
|
|
create
|
|
make
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make
|
|
-- Run application.
|
|
local
|
|
sess: NET_HTTP_CLIENT_SESSION
|
|
h: STRING_8
|
|
l_ctx: HTTP_CLIENT_REQUEST_CONTEXT
|
|
l_test_case: INTEGER
|
|
l_requestbin_path: STRING
|
|
do
|
|
l_requestbin_path := "/15u47xi2"
|
|
create h.make_empty
|
|
|
|
l_test_case := 1 -- select which test to execute
|
|
|
|
inspect l_test_case
|
|
when 1 then
|
|
-- URL ENCODED POST REQUEST
|
|
-- check requestbin to ensure the "Hello World" has been received in the raw body
|
|
-- also check that User-Agent was sent
|
|
create sess.make("http://requestb.in")
|
|
if attached sess.post (l_requestbin_path, Void, "Hello World").headers as hds then
|
|
across
|
|
hds as c
|
|
loop
|
|
h.append (c.item.name + ": " + c.item.value + "%R%N")
|
|
end
|
|
end
|
|
print (h)
|
|
when 2 then
|
|
-- POST REQUEST WITH FORM DATA
|
|
-- check requestbin to ensure the form parameters are correctly received
|
|
create sess.make("http://requestb.in")
|
|
create l_ctx.make
|
|
l_ctx.form_parameters.extend ("First Value", "First Key")
|
|
l_ctx.form_parameters.extend ("Second Value", "Second Key")
|
|
create sess.make("http://requestb.in")
|
|
if attached sess.post (l_requestbin_path, l_ctx, "").headers as hds then
|
|
across
|
|
hds as c
|
|
loop
|
|
h.append (c.item.name + ": " + c.item.value + "%R%N")
|
|
end
|
|
end
|
|
|
|
when 3 then
|
|
-- POST REQUEST WITH A FILE
|
|
-- check requestbin to ensure the form parameters are correctly received
|
|
-- set filename to a local file
|
|
create sess.make("http://requestb.in")
|
|
create l_ctx.make
|
|
l_ctx.set_upload_filename ("C:\temp\test.txt")
|
|
if attached sess.post (l_requestbin_path, l_ctx, "").headers as hds then
|
|
across
|
|
hds as c
|
|
loop
|
|
h.append (c.item.name + ": " + c.item.value + "%R%N")
|
|
end
|
|
end
|
|
|
|
when 4 then
|
|
-- PUT REQUEST WITH A FILE
|
|
-- check requestbin to ensure the file is correctly received
|
|
-- set filename to a local file
|
|
create sess.make("http://requestb.in")
|
|
create l_ctx.make
|
|
l_ctx.set_upload_filename ("C:\temp\test.txt")
|
|
if attached sess.put (l_requestbin_path, l_ctx, "").headers as hds then
|
|
across
|
|
hds as c
|
|
loop
|
|
h.append (c.item.name + ": " + c.item.value + "%R%N")
|
|
end
|
|
end
|
|
|
|
when 5 then
|
|
-- POST REQUEST WITH A FILE AND FORM DATA
|
|
-- check requestbin to ensure the file and form parameters are correctly received
|
|
-- set filename to a local file
|
|
create sess.make("http://requestb.in")
|
|
create l_ctx.make
|
|
l_ctx.set_upload_filename ("C:\temp\logo.png")
|
|
l_ctx.form_parameters.extend ("First Value", "First Key")
|
|
l_ctx.form_parameters.extend ("Second Value", "Second Key")
|
|
if attached sess.post (l_requestbin_path, l_ctx, "").headers as hds then
|
|
across
|
|
hds as c
|
|
loop
|
|
h.append (c.item.name + ": " + c.item.value + "%R%N")
|
|
end
|
|
end
|
|
|
|
when 6 then
|
|
-- GET REQUEST, Forwarding (google's first answer is a forward)
|
|
-- check headers received (printed in console)
|
|
create sess.make("http://google.com")
|
|
if attached sess.get ("/", Void).headers as hds then
|
|
across
|
|
hds as c
|
|
loop
|
|
h.append (c.item.name + ": " + c.item.value + "%R%N")
|
|
end
|
|
end
|
|
print (h)
|
|
|
|
when 7 then
|
|
-- GET REQUEST WITH AUTHENTICATION, see http://browserspy.dk/password.php
|
|
-- check header WWW-Authendicate is received (authentication successful)
|
|
create sess.make("http://test:test1@browserspy.dk")
|
|
if attached sess.get ("/password-ok.php", Void).headers as hds then
|
|
across
|
|
hds as c
|
|
loop
|
|
h.append (c.item.name + ": " + c.item.value + "%R%N")
|
|
end
|
|
end
|
|
print (h)
|
|
else
|
|
end
|
|
end
|
|
|
|
end
|