mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 18:31:44 +03:00
535 lines
13 KiB
Plaintext
535 lines
13 KiB
Plaintext
/+ *test
|
|
/= http-client-raw /sys/vane/iris
|
|
::
|
|
!:
|
|
::
|
|
=/ 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
|
|
*outbound-config:iris
|
|
==
|
|
^= 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] ~
|
|
^- task:able:iris
|
|
:* %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
|
|
%http-response
|
|
%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
|
|
*outbound-config:iris
|
|
==
|
|
^= 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] ~
|
|
^- task:able:iris
|
|
:* %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>')]
|
|
== == ==
|
|
:: 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] ~
|
|
^- task:able:iris
|
|
:* %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
|
|
%http-response
|
|
%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] ~
|
|
^- task:able:iris
|
|
:* %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
|
|
%http-response
|
|
%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
|
|
==
|
|
::
|
|
++ 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
|
|
*outbound-config:iris
|
|
==
|
|
^= 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] ~
|
|
^- task:able:iris
|
|
:* %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
|
|
*outbound-config:iris
|
|
==
|
|
^= 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] ~
|
|
^- task:able:iris
|
|
:* %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
|
|
*outbound-config:iris
|
|
==
|
|
^= 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] ~
|
|
^- task:able:iris
|
|
:* %born
|
|
~
|
|
==
|
|
^= expected-moves
|
|
^- (list move:http-client-gate)
|
|
:~ :* duct=~[/http-get-request]
|
|
%give
|
|
%http-response
|
|
%cancel
|
|
~
|
|
== == ==
|
|
::
|
|
;: weld
|
|
results1
|
|
results2
|
|
results3
|
|
==
|
|
::
|
|
++ http-client-call
|
|
|= $: http-client-gate=_http-client-gate
|
|
now=@da
|
|
scry=sley
|
|
call-args=[=duct type=* wrapped-task=(hobo task:able:iris)]
|
|
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)
|
|
::
|
|
=^ moves http-client-gate (call:http-client-core [duct ~ type wrapped-task]:call-args)
|
|
::
|
|
=/ output=tang
|
|
%+ expect-eq
|
|
!> expected-moves
|
|
!> moves
|
|
::
|
|
[output http-client-gate]
|
|
--
|
|
|