Migrated most of the example and library to new design.
This commit is contained in:
@@ -2,9 +2,9 @@ class
|
||||
TEST
|
||||
|
||||
inherit
|
||||
WSF_DEFAULT_SERVICE
|
||||
WSF_DEFAULT_SERVICE [TEST_EXECUTION]
|
||||
|
||||
TEST_SERVICE
|
||||
TEST_SERVICE [TEST_EXECUTION]
|
||||
|
||||
create
|
||||
make
|
||||
@@ -22,38 +22,6 @@ feature {NONE} -- Initialization
|
||||
make_and_launch
|
||||
end
|
||||
|
||||
feature -- Helper
|
||||
|
||||
server_log_path: STRING
|
||||
local
|
||||
fn: FILE_NAME
|
||||
once
|
||||
create fn.make_from_string ("server_test.log")
|
||||
Result := fn.string
|
||||
end
|
||||
|
||||
server_log (m: STRING_8)
|
||||
local
|
||||
f: RAW_FILE
|
||||
do
|
||||
create f.make (server_log_path)
|
||||
f.open_append
|
||||
f.put_string (m)
|
||||
f.put_character ('%N')
|
||||
f.close
|
||||
end
|
||||
|
||||
base_url: detachable STRING
|
||||
|
||||
test_url (a_query_url: READABLE_STRING_8): READABLE_STRING_8
|
||||
local
|
||||
b: like base_url
|
||||
do
|
||||
b := base_url
|
||||
if b = Void then
|
||||
b := ""
|
||||
end
|
||||
Result := "/" + b + a_query_url
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user