urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-21 01:41:37 +03:00
Code Issues Packages Projects Releases Wiki Activity
0e4fb5a4f4
shrub/pkg/arvo/tests/sys/vane/iris.hoon

536 lines
13 KiB
Plaintext
Raw Normal View History

Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
/+ *test
::
renames %lient to %iris
2019-07-04 03:08:23 +03:00
/= http-client-raw /: /===/sys/vane/iris /!noun/
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
::
!:
::
=/ test-pit=vase !>(..zuse)
=/ http-client-gate (http-client-raw test-pit)
::
|%
:: +test-client-request-basic: tests a single request, single reply style http request
::
++ test-client-request-basic
:: send a %born event to use /initial-born-duct for requests
::
=^ results1 http-client-gate
%- http-client-call :*
http-client-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/initial-born-duct] ~ [%born ~]]
expected-moves=~
==
::
=/ request=request:http
:* %'GET'
'http://www.example.com'
~
~
==
:: opens the http channel
::
=^ results2 http-client-gate
%- http-client-call :*
http-client-gate
now=(add ~1111.1.1 ~s1)
scry=*sley
^= call-args
:* duct=~[/http-get-request] ~
%request
request
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
*outbound-config:iris
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
==
^= expected-moves
^- (list move:http-client-gate)
:~ :* duct=~[/initial-born-duct]
%give
%request
id=0
method=%'GET'
url='http://www.example.com'
~
~
== == ==
:: returns the entire payload in one response
::
=^ results3 http-client-gate
%- http-client-call :*
http-client-gate
now=(add ~1111.1.1 ~s2)
scry=*sley
^= call-args
:+ duct=~[/initial-born-duct] ~
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
^- task:able:iris
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
:* %receive
id=0
^- http-event:http
:* %start
:- 200
:~ ['content-type' 'text/html']
['content-length' '34']
==
::
:- ~
%- as-octs:mimes:html
'''
<html><body>Response</body></html>
'''
::
complete=%.y
== ==
^= expected-moves
^- (list move:http-client-gate)
:~ :* duct=~[/http-get-request]
%give
Change the %lient interface to have one output type.
2019-02-15 23:00:10 +03:00
%http-response
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
%finished
::
:- 200
:~ ['content-type' 'text/html']
['content-length' '34']
==
::
:- ~
:- 'text/html'
%- as-octs:mimes:html
'''
<html><body>Response</body></html>
'''
== == ==
::
;: weld
results1
results2
results3
==
:: +test-client-request-multiple-cards: tests when complete=%.n
::
++ test-client-request-multiple-cards
:: send a %born event to use /initial-born-duct for requests
::
=^ results1 http-client-gate
%- http-client-call :*
http-client-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/initial-born-duct] ~ [%born ~]]
expected-moves=~
==
::
=/ request=request:http
:* %'GET'
'http://www.example.com'
~
~
==
:: opens the http channel
::
=^ results2 http-client-gate
%- http-client-call :*
http-client-gate
now=(add ~1111.1.1 ~s1)
scry=*sley
^= call-args
:* duct=~[/http-get-request] ~
%request
request
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
*outbound-config:iris
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
==
^= expected-moves
^- (list move:http-client-gate)
:~ :* duct=~[/initial-born-duct]
%give
%request
id=0
method=%'GET'
url='http://www.example.com'
~
~
== == ==
:: returns the first 1/3 of the payload in the first response
::
=^ results3 http-client-gate
%- http-client-call :*
http-client-gate
now=(add ~1111.1.1 ~s2)
scry=*sley
^= call-args
:+ duct=~[/initial-born-duct] ~
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
^- task:able:iris
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
:* %receive
id=0
^- http-event:http
:* %start
:- 200
:~ ['content-type' 'text/html']
['content-length' '34']
==
[~ (as-octs:mimes:html '<html><body>')]
complete=%.n
== ==
^= expected-moves
^- (list move:http-client-gate)
:~ :* duct=~[/http-get-request]
%give
Change the %lient interface to have one output type.
2019-02-15 23:00:10 +03:00
%http-response
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
%progress
::
:- 200
:~ ['content-type' 'text/html']
['content-length' '34']
==
::
bytes-read=12
expected-size=`34
[~ (as-octs:mimes:html '<html><body>')]
== == ==
:: returns the second 1/3 of the payload
::
=^ results4 http-client-gate
%- http-client-call :*
http-client-gate
now=(add ~1111.1.1 ~s3)
scry=*sley
^= call-args
:+ duct=~[/initial-born-duct] ~
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
^- task:able:iris
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
:* %receive
id=0
^- http-event:http
:* %continue
[~ (as-octs:mimes:html 'Response')]
complete=%.n
== ==
^= expected-moves
^- (list move:http-client-gate)
:~ :* duct=~[/http-get-request]
%give
Change the %lient interface to have one output type.
2019-02-15 23:00:10 +03:00
%http-response
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
%progress
::
:- 200
:~ ['content-type' 'text/html']
['content-length' '34']
==
::
bytes-read=20
expected-size=`34
[~ (as-octs:mimes:html 'Response')]
== == ==
:: returns the last part
::
=^ results5 http-client-gate
%- http-client-call :*
http-client-gate
now=(add ~1111.1.1 ~s4)
scry=*sley
^= call-args
:+ duct=~[/initial-born-duct] ~
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
^- task:able:iris
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
:* %receive
id=0
^- http-event:http
:* %continue
[~ (as-octs:mimes:html '</body></html>')]
complete=%.y
== ==
^= expected-moves
^- (list move:http-client-gate)
:~ :* duct=~[/http-get-request]
%give
Change the %lient interface to have one output type.
2019-02-15 23:00:10 +03:00
%http-response
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
%finished
::
:- 200
:~ ['content-type' 'text/html']
['content-length' '34']
==
::
:- ~
:- 'text/html'
%- as-octs:mimes:html
'''
<html><body>Response</body></html>
'''
== == ==
::
;: weld
results1
results2
results3
results4
results5
==
::
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
++ test-client-cancel
:: send a %born event to use /initial-born-duct for requests
::
=^ results1 http-client-gate
%- http-client-call :*
http-client-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/initial-born-duct] ~ [%born ~]]
expected-moves=~
==
::
=/ request=request:http
:* %'GET'
'http://www.example.com'
~
~
==
:: opens the http channel
::
=^ results2 http-client-gate
%- http-client-call :*
http-client-gate
now=(add ~1111.1.1 ~s1)
scry=*sley
^= call-args
:* duct=~[/http-get-request] ~
%request
request
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
*outbound-config:iris
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
==
^= expected-moves
^- (list move:http-client-gate)
:~ :* duct=~[/initial-born-duct]
%give
%request
id=0
method=%'GET'
url='http://www.example.com'
~
~
== == ==
:: returns the first 1/3 of the payload in the first response
::
=^ results3 http-client-gate
%- http-client-call :*
http-client-gate
now=(add ~1111.1.1 ~s2)
scry=*sley
^= call-args
:+ duct=~[/initial-born-duct] ~
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
^- task:able:iris
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
:* %receive
id=0
^- http-event:http
:* %start
:- 200
:~ ['content-type' 'text/html']
['content-length' '34']
==
[~ (as-octs:mimes:html '<html><body>')]
complete=%.n
== ==
^= expected-moves
^- (list move:http-client-gate)
:~ :* duct=~[/http-get-request]
%give
%http-response
%progress
::
:- 200
:~ ['content-type' 'text/html']
['content-length' '34']
==
::
bytes-read=12
expected-size=`34
[~ (as-octs:mimes:html '<html><body>')]
== == ==
:: lol, now we don't care about the rest so send a cancel to vere
::
=^ results4 http-client-gate
%- http-client-call :*
http-client-gate
now=(add ~1111.1.1 ~s3)
scry=*sley
^= call-args
:* duct=~[/http-get-request] ~
%cancel-request
~
==
^= expected-moves
^- (list move:http-client-gate)
:~ :* duct=~[/initial-born-duct]
%give
%cancel-request
id=0
== == ==
::
;: weld
results1
results2
results3
results4
==
::
++ test-receive-cancel
:: send a %born event to use /initial-born-duct for requests
::
=^ results1 http-client-gate
%- http-client-call :*
http-client-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/initial-born-duct] ~ [%born ~]]
expected-moves=~
==
::
=/ request=request:http
:* %'GET'
'http://www.example.com'
~
~
==
:: opens the http channel
::
=^ results2 http-client-gate
%- http-client-call :*
http-client-gate
now=(add ~1111.1.1 ~s1)
scry=*sley
^= call-args
:* duct=~[/http-get-request] ~
%request
request
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
*outbound-config:iris
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
==
^= expected-moves
^- (list move:http-client-gate)
:~ :* duct=~[/initial-born-duct]
%give
%request
id=0
method=%'GET'
url='http://www.example.com'
~
~
== == ==
:: instead of getting a response, we receive a %cancel from a runtime error
::
=^ results3 http-client-gate
%- http-client-call :*
http-client-gate
now=(add ~1111.1.1 ~s2)
scry=*sley
^= call-args
:+ duct=~[/initial-born-duct] ~
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
^- task:able:iris
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
:* %receive
id=0
^- http-event:http
:* %cancel
~
== ==
^= expected-moves
^- (list move:http-client-gate)
:~ :* duct=~[/http-get-request]
%give
%http-response
%cancel
~
== == ==
::
;: weld
results1
results2
results3
==
::
++ test-born-cancels-requests
:: send a %born event to use /initial-born-duct for requests
::
=^ results1 http-client-gate
%- http-client-call :*
http-client-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/initial-born-duct] ~ [%born ~]]
expected-moves=~
==
::
=/ request=request:http
:* %'GET'
'http://www.example.com'
~
~
==
:: opens the http channel
::
=^ results2 http-client-gate
%- http-client-call :*
http-client-gate
now=(add ~1111.1.1 ~s1)
scry=*sley
^= call-args
:* duct=~[/http-get-request] ~
%request
request
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
*outbound-config:iris
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
==
^= expected-moves
^- (list move:http-client-gate)
:~ :* duct=~[/initial-born-duct]
%give
%request
id=0
method=%'GET'
url='http://www.example.com'
~
~
== == ==
::
=^ results3 http-client-gate
%- http-client-call :*
http-client-gate
now=(add ~1111.1.1 ~s2)
scry=*sley
^= call-args
:+ duct=~[/secondary-born-duct] ~
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
^- task:able:iris
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
:* %born
~
==
^= expected-moves
^- (list move:http-client-gate)
:~ :* duct=~[/http-get-request]
%give
%http-response
%cancel
~
== == ==
::
;: weld
results1
results2
results3
==
::
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
++ http-client-call
|= $: http-client-gate=_http-client-gate
now=@da
scry=sley
renames +http-client interface core to +iris
2019-07-04 09:45:54 +03:00
call-args=[=duct type=* wrapped-task=(hobo task:able:iris)]
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
expected-moves=(list move:http-client-gate)
==
^- [tang _http-client-gate]
::
=/ http-client-core
(http-client-gate our=~nul now=now eny=`@uvJ`0xdead.beef scry=scry)
::
test: updates vane calling convention
2020-02-12 03:12:37 +03:00
=^ moves http-client-gate (call:http-client-core [duct ~ type wrapped-task]:call-args)
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
::
=/ output=tang
%+ expect-eq
!> expected-moves
!> moves
::
[output http-client-gate]
--
Reference in New Issue Copy Permalink