A few tests with passive region, and expanded objects.

This commit is contained in:
2016-06-14 14:43:26 +02:00
parent e53c960a89
commit 7a182fa02f
17 changed files with 220 additions and 81 deletions

View File

@@ -17,10 +17,13 @@ feature -- Basic operations
execute
local
s: STRING
dt: HTTP_DATE
do
-- To send a response we need to setup, the status code and
-- the response headers.
s := "Hello World!"
create dt.make_now_utc
s.append (" (UTC time is " + dt.rfc850_string + ").")
response.put_header ({HTTP_STATUS_CODE}.ok, <<["Content-Type", "text/html"], ["Content-Length", s.count.out]>>)
response.set_status_code ({HTTP_STATUS_CODE}.ok)
response.header.put_content_type_text_html