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
b9dc1dd9d8
shrub/pkg/arvo/tests/sys/vane/iris.hoon

533 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
ford-fusion: all vane tests pass
2020-04-19 03:01:26 +03:00
/= http-client-raw /sys/vane/iris
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
::
!:
arvo: updates vane interface
2020-12-06 11:38:37 +03:00
=/ http-client-gate (http-client-raw ~nul)
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
::
|%
:: +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
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
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)
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
^= 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)
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
^= 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
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
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)
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
^= 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)
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
^= 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)
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
^= 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)
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
^= 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
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
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)
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
^= 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)
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
^= 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)
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
^= 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
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
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)
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
^= 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)
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
^= 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
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
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)
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
^= 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)
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=*roof
Finish cancelation cases and add tests.
2019-03-06 00:43:36 +03:00
^= 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
tests: update vane tests for new scry gate
2020-11-26 21:12:35 +03:00
scry=roof
arvo: updates vane interface
2020-12-06 11:38:37 +03:00
call-args=[=duct dud=(unit goof) 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
arvo: updates vane interface
2020-12-06 11:38:37 +03:00
(http-client-gate now=now eny=`@uvJ`0xdead.beef scry=scry)
Move the http client functionality to %http-client.
2019-02-09 00:16:42 +03:00
::
arvo: updates vane interface
2020-12-06 11:38:37 +03:00
=^ moves http-client-gate (call:http-client-core [duct dud 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