ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-17 03:44:34 +03:00
Code Issues Packages Projects Releases Wiki Activity
ed3d7c2a0d
urbit/tests/sys/vane/light.hoon

1224 lines
32 KiB
Plaintext
Raw Normal View History

Now with a test on the whole dummy-generator path.
2018-10-10 21:51:52 +03:00
/+ *test, *test-ford
Data types, basic tests, and a router.
2018-09-20 02:29:36 +03:00
::
/= light-raw /: /===/sys/vane/light /!noun/
::
!:
::
=/ test-pit=vase !>(..zuse)
=/ light-gate (light-raw test-pit)
::
|%
++ test-init
=^ results1 light-gate
%- light-call :*
light-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/init] ~ [%init ~nul]]
expected-moves=~
==
::
results1
::
++ test-duplicate-bindings
::
=^ results1 light-gate
%- light-call :*
light-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/init] ~ [%init ~nul]]
expected-moves=~
==
:: app1 binds successfully
::
=^ results2 light-gate
%- light-call :*
light-gate
now=~1111.1.2
scry=*sley
call-args=[duct=~[/app1] ~ [%connect [~ /] %app1]]
expected-moves=[duct=~[/app1] %give %bound %.y [~ /]]~
==
:: app2 tries to bind to the same path and fails
::
=^ results3 light-gate
%- light-call :*
light-gate
now=~1111.1.3
scry=*sley
call-args=[duct=~[/app2] ~ [%connect [~ /] %app2]]
expected-moves=[duct=~[/app2] %give %bound %.n [~ /]]~
==
::
;: weld
results1
results2
results3
==
::
++ test-remove-binding
::
=^ results1 light-gate
%- light-call :*
light-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/init] ~ [%init ~nul]]
expected-moves=~
==
:: app1 binds successfully
::
=^ results2 light-gate
%- light-call :*
light-gate
now=~1111.1.2
scry=*sley
call-args=[duct=~[/app1] ~ [%connect [~ /] %app1]]
expected-moves=[duct=~[/app1] %give %bound %.y [~ /]]~
==
:: app1 unbinds
::
=^ results3 light-gate
%- light-call :*
light-gate
now=~1111.1.3
scry=*sley
call-args=[duct=~[/app1] ~ [%disconnect [~ /]]]
expected-moves=~
==
:: app2 binds successfully
::
=^ results4 light-gate
%- light-call :*
light-gate
now=~1111.1.4
scry=*sley
call-args=[duct=~[/app2] ~ [%connect [~ /] %app2]]
expected-moves=[duct=~[/app2] %give %bound %.y [~ /]]~
==
::
;: weld
results1
results2
results3
results4
==
::
++ test-cant-remove-other-ducts-binding
::
=^ results1 light-gate
%- light-call :*
light-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/init] ~ [%init ~nul]]
expected-moves=~
==
:: app1 binds successfully
::
=^ results2 light-gate
%- light-call :*
light-gate
now=~1111.1.2
scry=*sley
call-args=[duct=~[/app1] ~ [%connect [~ /] %app1]]
expected-moves=[duct=~[/app1] %give %bound %.y [~ /]]~
==
:: app2 tries to steal the binding by disconnecting the path
::
=^ results3 light-gate
%- light-call :*
light-gate
now=~1111.1.3
scry=*sley
call-args=[duct=~[/app2] ~ [%disconnect [~ /]]]
expected-moves=~
==
:: app2 doesn't bind successfully because it couldn't remove app1's binding
::
=^ results4 light-gate
%- light-call :*
light-gate
now=~1111.1.4
scry=*sley
call-args=[duct=~[/app2] ~ [%connect [~ /] %app2]]
expected-moves=[duct=~[/app2] %give %bound %.n [~ /]]~
==
::
;: weld
results1
results2
results3
results4
==
Messages from %l to %g
2018-09-21 02:36:04 +03:00
:: tests that when we have no match, that we fall back to the built-in 404
Data types, basic tests, and a router.
2018-09-20 02:29:36 +03:00
::
Messages from %l to %g
2018-09-21 02:36:04 +03:00
++ test-builtin-four-oh-four
::
=^ results1 light-gate
%- light-call :*
light-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/init] ~ [%init ~nul]]
expected-moves=~
==
:: when there's no configuration and nothing matches, expect 404
::
=^ results2 light-gate
%- light-call :*
light-gate
now=~1111.1.1
scry=*sley
^= call-args
:* duct=~[/http-blah] ~
%inbound-request
%.n
[%ipv4 .192.168.1.1]
Delivers %inbound-requests internally now, but kick: lost the http-response.
2018-10-01 21:24:16 +03:00
[%'GET' '/' ~ ~]
Messages from %l to %g
2018-09-21 02:36:04 +03:00
==
^= expectec-moves
^- (list move:light-gate)
:~ :* duct=~[/http-blah]
%give
%http-response
%start
404
Now with a test on the whole dummy-generator path.
2018-10-10 21:51:52 +03:00
:~ ['content-type' 'text/html']
['content-length' '153']
==
Messages from %l to %g
2018-09-21 02:36:04 +03:00
[~ (file-not-found-page:light-gate '/')]
complete=%.y
== ==
==
::
;: weld
results1
results2
==
::
++ test-basic-app-request
Data types, basic tests, and a router.
2018-09-20 02:29:36 +03:00
::
=^ results1 light-gate
%- light-call :*
light-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/init] ~ [%init ~nul]]
expected-moves=~
==
:: app1 binds successfully
::
=^ results2 light-gate
%- light-call :*
light-gate
now=~1111.1.2
scry=*sley
call-args=[duct=~[/app1] ~ [%connect [~ /] %app1]]
expected-moves=[duct=~[/app1] %give %bound %.y [~ /]]~
==
Messages from %l to %g
2018-09-21 02:36:04 +03:00
:: outside requests a path that app1 has bound to
Data types, basic tests, and a router.
2018-09-20 02:29:36 +03:00
::
=^ results3 light-gate
Messages from %l to %g
2018-09-21 02:36:04 +03:00
%- light-call-with-comparator :*
Data types, basic tests, and a router.
2018-09-20 02:29:36 +03:00
light-gate
now=~1111.1.3
scry=*sley
Messages from %l to %g
2018-09-21 02:36:04 +03:00
^= call-args
:* duct=~[/http-blah] ~
%inbound-request
%.n
[%ipv4 .192.168.1.1]
Delivers %inbound-requests internally now, but kick: lost the http-response.
2018-10-01 21:24:16 +03:00
[%'GET' '/' ~ ~]
Messages from %l to %g
2018-09-21 02:36:04 +03:00
==
^= comparator
|= moves=(list move:light-gate)
^- tang
::
?. ?=([* ~] moves)
[%leaf "wrong number of moves: {<(lent moves)>}"]~
::
::
=/ move=move:light-gate i.moves
=/ =duct duct.move
=/ card=(wind note:light-gate gift:able:light-gate) card.move
::
%+ weld
(expect-eq !>(~[/http-blah]) !>(duct))
::
%+ expect-gall-deal
:+ /run-app/app1 [~nul ~nul]
^- cush:gall
:* %app1 %poke %handle-http-request
Delivers %inbound-requests internally now, but kick: lost the http-response.
2018-10-01 21:24:16 +03:00
!>([%.n %.n [%ipv4 .192.168.1.1] [%'GET' '/' ~ ~]])
Messages from %l to %g
2018-09-21 02:36:04 +03:00
==
card
Data types, basic tests, and a router.
2018-09-20 02:29:36 +03:00
==
Send responses.
2018-09-24 21:48:19 +03:00
:: theoretical outside response
::
=^ results4 light-gate
%- light-take :*
light-gate
now=~1111.1.4
scry=*sley
^= take-args
:* wire=/run-app/app1 duct=~[/http-blah]
Fix up the tess to agree with reality.
2018-10-03 23:27:20 +03:00
^- (hypo sign:light-gate)
:- *type
:^ %g %unto %http-response
Send responses.
2018-09-24 21:48:19 +03:00
^- raw-http-response:light-gate
Lower case http header names; it is allowed.
2018-10-01 21:37:30 +03:00
[%start 200 ['content-type' 'text/html']~ [~ (as-octs:mimes:html 'Hiya!')] %.y]
Send responses.
2018-09-24 21:48:19 +03:00
==
^= expected-move
:~ :* duct=~[/http-blah] %give %http-response
Lower case http header names; it is allowed.
2018-10-01 21:37:30 +03:00
[%start 200 ['content-type' 'text/html']~ `[5 'Hiya!'] %.y]
Send responses.
2018-09-24 21:48:19 +03:00
== == ==
::
Data types, basic tests, and a router.
2018-09-20 02:29:36 +03:00
;: weld
results1
results2
results3
Send responses.
2018-09-24 21:48:19 +03:00
results4
Data types, basic tests, and a router.
2018-09-20 02:29:36 +03:00
==
::
Multipart test.
2018-09-25 00:16:15 +03:00
++ test-multipart-app-request
::
=^ results1 light-gate
%- light-call :*
light-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/init] ~ [%init ~nul]]
expected-moves=~
==
:: app1 binds successfully
::
=^ results2 light-gate
%- light-call :*
light-gate
now=~1111.1.2
scry=*sley
call-args=[duct=~[/app1] ~ [%connect [~ /] %app1]]
expected-moves=[duct=~[/app1] %give %bound %.y [~ /]]~
==
:: outside requests a path that app1 has bound to
::
=^ results3 light-gate
%- light-call-with-comparator :*
light-gate
now=~1111.1.3
scry=*sley
^= call-args
:* duct=~[/http-blah] ~
%inbound-request
%.n
[%ipv4 .192.168.1.1]
Delivers %inbound-requests internally now, but kick: lost the http-response.
2018-10-01 21:24:16 +03:00
[%'GET' '/' ~ ~]
Multipart test.
2018-09-25 00:16:15 +03:00
==
^= comparator
|= moves=(list move:light-gate)
^- tang
::
?. ?=([* ~] moves)
[%leaf "wrong number of moves: {<(lent moves)>}"]~
::
::
=/ move=move:light-gate i.moves
=/ =duct duct.move
=/ card=(wind note:light-gate gift:able:light-gate) card.move
::
%+ weld
(expect-eq !>(~[/http-blah]) !>(duct))
::
%+ expect-gall-deal
:+ /run-app/app1 [~nul ~nul]
^- cush:gall
:* %app1 %poke %handle-http-request
Delivers %inbound-requests internally now, but kick: lost the http-response.
2018-10-01 21:24:16 +03:00
!>([%.n %.n [%ipv4 .192.168.1.1] [%'GET' '/' ~ ~]])
Multipart test.
2018-09-25 00:16:15 +03:00
==
card
==
:: theoretical outside response
::
=^ results4 light-gate
%- light-take :*
light-gate
now=~1111.1.4
scry=*sley
^= take-args
:* wire=/run-app/app1 duct=~[/http-blah]
^- (hypo sign:light-gate) :- *type
Fix up the tess to agree with reality.
2018-10-03 23:27:20 +03:00
:^ %g %unto %http-response
Multipart test.
2018-09-25 00:16:15 +03:00
^- raw-http-response:light-gate
Lower case http header names; it is allowed.
2018-10-01 21:37:30 +03:00
[%start 200 ['content-type' 'text/html']~ [~ (as-octs:mimes:html 'Hi')] %.n]
Multipart test.
2018-09-25 00:16:15 +03:00
==
^= expected-move
:~ :* duct=~[/http-blah] %give %http-response
Lower case http header names; it is allowed.
2018-10-01 21:37:30 +03:00
[%start 200 ['content-type' 'text/html']~ `[2 'Hi'] %.n]
Multipart test.
2018-09-25 00:16:15 +03:00
== == ==
:: theoretical outside response
::
=^ results5 light-gate
%- light-take :*
light-gate
now=~1111.1.4
scry=*sley
^= take-args
:* wire=/run-app/app1 duct=~[/http-blah]
^- (hypo sign:light-gate) :- *type
Fix up the tess to agree with reality.
2018-10-03 23:27:20 +03:00
:^ %g %unto %http-response
Multipart test.
2018-09-25 00:16:15 +03:00
^- raw-http-response:light-gate
[%continue [~ (as-octs:mimes:html 'ya!')] %.y]
==
^= expected-move
:~ :* duct=~[/http-blah] %give %http-response
[%continue `[3 'ya!'] %.y]
== == ==
::
;: weld
results1
results2
results3
results4
results5
==
More complete login flow
2018-09-27 02:18:40 +03:00
:: tests an app redirecting to the login handler, which then receives a post
:: and redirects back to app
::
++ test-login-handler-full-path
::
=^ results1 light-gate
%- light-call :*
light-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/init] ~ [%init ~nul]]
expected-moves=~
==
:: app1 binds successfully
::
=^ results2 light-gate
%- light-call :*
light-gate
now=~1111.1.2
scry=*sley
call-args=[duct=~[/app1] ~ [%connect [~ /'~landscape'] %app1]]
expected-moves=[duct=~[/app1] %give %bound %.y [~ /'~landscape']]~
==
:: outside requests a path that app1 has bound to
::
=^ results3 light-gate
%- light-call-with-comparator :*
light-gate
now=~1111.1.3
scry=*sley
^= call-args
:* duct=~[/http-blah] ~
%inbound-request
%.n
[%ipv4 .192.168.1.1]
Delivers %inbound-requests internally now, but kick: lost the http-response.
2018-10-01 21:24:16 +03:00
[%'GET' '/~landscape/inner-path' ~ ~]
More complete login flow
2018-09-27 02:18:40 +03:00
==
^= comparator
|= moves=(list move:light-gate)
^- tang
::
?. ?=([* ~] moves)
[%leaf "wrong number of moves: {<(lent moves)>}"]~
::
::
=/ move=move:light-gate i.moves
=/ =duct duct.move
=/ card=(wind note:light-gate gift:able:light-gate) card.move
::
%+ weld
(expect-eq !>(~[/http-blah]) !>(duct))
::
%+ expect-gall-deal
:+ /run-app/app1 [~nul ~nul]
^- cush:gall
:* %app1 %poke %handle-http-request
Delivers %inbound-requests internally now, but kick: lost the http-response.
2018-10-01 21:24:16 +03:00
!>([%.n %.n [%ipv4 .192.168.1.1] [%'GET' '/~landscape/inner-path' ~ ~]])
More complete login flow
2018-09-27 02:18:40 +03:00
==
card
==
:: app then gives a redirect to Eyre
::
=^ results4 light-gate
%- light-take :*
light-gate
now=~1111.1.4
scry=*sley
^= take-args
:* wire=/run-app/app1 duct=~[/http-blah]
^- (hypo sign:light-gate) :- *type
Fix up the tess to agree with reality.
2018-10-03 23:27:20 +03:00
:^ %g %unto %http-response
More complete login flow
2018-09-27 02:18:40 +03:00
^- raw-http-response:light-gate
Lower case http header names; it is allowed.
2018-10-01 21:37:30 +03:00
[%start 307 ['location' '/~/login?redirect=/~landscape/inner-path']~ ~ %.y]
More complete login flow
2018-09-27 02:18:40 +03:00
==
^= expected-move
:~ :* duct=~[/http-blah] %give %http-response
Lower case http header names; it is allowed.
2018-10-01 21:37:30 +03:00
[%start 307 ['location' '/~/login?redirect=/~landscape/inner-path']~ ~ %.y]
More complete login flow
2018-09-27 02:18:40 +03:00
== == ==
:: the browser then fetches the login page
::
=^ results5 light-gate
Get things compiling, and refactor auth in tests.
2018-11-16 02:27:49 +03:00
%- perform-authentication :*
More complete login flow
2018-09-27 02:18:40 +03:00
light-gate
check authentication state and pass it to the app
2018-09-27 21:16:59 +03:00
now=~1111.1.5
More complete login flow
2018-09-27 02:18:40 +03:00
scry=*sley
==
check authentication state and pass it to the app
2018-09-27 21:16:59 +03:00
:: going back to the original url will acknowledge the authentication cookie
::
Get things compiling, and refactor auth in tests.
2018-11-16 02:27:49 +03:00
=^ results6 light-gate
check authentication state and pass it to the app
2018-09-27 21:16:59 +03:00
%- light-call-with-comparator :*
light-gate
Get things compiling, and refactor auth in tests.
2018-11-16 02:27:49 +03:00
now=~1111.1.5..1.0.0
check authentication state and pass it to the app
2018-09-27 21:16:59 +03:00
scry=*sley
^= call-args
^- [=duct type=* wrapped-task=(hobo task:able:light-gate)]
:* duct=~[/http-blah] ~
%inbound-request
%.n
[%ipv4 .192.168.1.1]
Delivers %inbound-requests internally now, but kick: lost the http-response.
2018-10-01 21:24:16 +03:00
%'GET'
check authentication state and pass it to the app
2018-09-27 21:16:59 +03:00
'/~landscape/inner-path'
Lower case http header names; it is allowed.
2018-10-01 21:37:30 +03:00
['cookie' 'urbauth=0v3.q0p7t.mlkkq.cqtto.p0nvi.2ieea']~
check authentication state and pass it to the app
2018-09-27 21:16:59 +03:00
~
==
^= comparator
|= moves=(list move:light-gate)
^- tang
::
?. ?=([* ~] moves)
[%leaf "wrong number of moves: {<(lent moves)>}"]~
::
::
=/ move=move:light-gate i.moves
=/ =duct duct.move
=/ card=(wind note:light-gate gift:able:light-gate) card.move
::
%+ weld
(expect-eq !>(~[/http-blah]) !>(duct))
:: expect authenticated=%.y in the handle below
::
%+ expect-gall-deal
:+ /run-app/app1 [~nul ~nul]
^- cush:gall
:* %app1 %poke %handle-http-request
Get things compiling, and refactor auth in tests.
2018-11-16 02:27:49 +03:00
!> :*
%.y
%.n
[%ipv4 .192.168.1.1]
:* %'GET'
'/~landscape/inner-path'
['cookie' 'urbauth=0v3.q0p7t.mlkkq.cqtto.p0nvi.2ieea']~
~
== ==
check authentication state and pass it to the app
2018-09-27 21:16:59 +03:00
==
card
==
More complete login flow
2018-09-27 02:18:40 +03:00
::
;: weld
results1
results2
results3
results4
results5
results6
==
Multipart test.
2018-09-25 00:16:15 +03:00
::
Now with a test on the whole dummy-generator path.
2018-10-10 21:51:52 +03:00
++ test-generator
::
=^ results1 light-gate
%- light-call :*
light-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/init] ~ [%init ~nul]]
expected-moves=~
==
:: gen1 binds successfully
::
=^ results2 light-gate
%- light-call :*
light-gate
now=~1111.1.2
scry=*sley
Fix tests.
2018-10-11 01:56:18 +03:00
call-args=[duct=~[/gen1] ~ [%serve [~ /] [%home /gen/handler/hoon ~]]]
Now with a test on the whole dummy-generator path.
2018-10-10 21:51:52 +03:00
expected-moves=[duct=~[/gen1] %give %bound %.y [~ /]]~
==
:: outside requests a path that app1 has bound to
::
=^ results3 light-gate
%- light-call-with-comparator :*
light-gate
now=~1111.1.3
scry=*sley
^= call-args
:* duct=~[/http-blah] ~
%inbound-request
%.n
[%ipv4 .192.168.1.1]
[%'GET' '/' ~ ~]
==
^= comparator
|= moves=(list move:light-gate)
^- tang
::
?. ?=([* ~] moves)
[%leaf "wrong number of moves: {<(lent moves)>}"]~
::
::
=/ move=move:light-gate i.moves
=/ =duct duct.move
=/ card=(wind note:light-gate gift:able:light-gate) card.move
::
?. ?=(%pass -.card)
[%leaf "not a %pass"]~
I broke this last week, but didn't notice until now.
2018-10-30 20:58:51 +03:00
?. ?=([%f %build *] q.card)
Now with a test on the whole dummy-generator path.
2018-10-10 21:51:52 +03:00
[%leaf "not a ford build"]~
::
%+ weld
%+ expect-eq
First generator build ran.
2018-10-11 01:26:51 +03:00
!> /run-build
Now with a test on the whole dummy-generator path.
2018-10-10 21:51:52 +03:00
!> p.card
::
%+ expect-schematic
Fix tests.
2018-10-11 01:56:18 +03:00
:^ %cast [~nul %home] %mime
:+ %call
:+ %call
[%core [[~nul %home] /hoon/handler/gen]]
[%$ %noun !>([[~1111.1.3 0xdead.beef [~nul %home [%da ~1111.1.3]]] ~ ~])]
[%$ %noun !>([%.n [%'GET' '/' ~ ~]])]
::
Now with a test on the whole dummy-generator path.
2018-10-10 21:51:52 +03:00
schematic.q.card
==
:: ford response (time assumes nothing blocked)
::
=^ results4 light-gate
%- light-take :*
light-gate
now=~1111.1.3
scry=*sley
^= take-args
First generator build ran.
2018-10-11 01:26:51 +03:00
:* wire=/run-build duct=~[/http-blah]
Now with a test on the whole dummy-generator path.
2018-10-10 21:51:52 +03:00
^- (hypo sign:light-gate)
:- *type
:^ %f %made ~1111.1.3
^- made-result:ford
:- %complete
^- build-result:ford
:- %success
[%cast %mime !>([['text' 'plain' ~] (as-octs:mimes:html 'one two three')])]
==
^= expected-move
:~ :* duct=~[/http-blah] %give %http-response
:* %start
200
:~ ['content-type' 'text/plain']
['content-length' '13']
==
`[13 'one two three']
%.y
== == == ==
::
;: weld
results1
results2
results3
results4
==
::
Fix url parser and add tests.
2018-10-04 00:05:36 +03:00
++ test-simplified-url-parser
;: weld
%+ expect-eq
!> `[[%site 'localhost'] [~ 8.000]]
!> (rush 'localhost:8000' simplified-url-parser:light-gate)
::
%+ expect-eq
!> `[[%ip .192.168.1.1] ~]
!> (rush '192.168.1.1' simplified-url-parser:light-gate)
==
::
Parse incoming requests and add tests.
2018-11-16 00:43:10 +03:00
++ test-parse-channel-request
;: weld
%+ expect-eq
!> `[%ack 5]~
!> %- parse-channel-request:light-gate
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
(need (de-json:html '[{"action": "ack", "event-id": 5}]'))
Parse incoming requests and add tests.
2018-11-16 00:43:10 +03:00
::
%+ expect-eq
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
!> `[%poke 0 ~nec %app1 %app-type [%n '5']]~
Parse incoming requests and add tests.
2018-11-16 00:43:10 +03:00
!> %- parse-channel-request:light-gate
%- need %- de-json:html
'''
[{"action": "poke",
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
"id": 0,
Parse incoming requests and add tests.
2018-11-16 00:43:10 +03:00
"ship": "nec",
"app": "app1",
"mark": "app-type",
"json": 5}]
'''
::
%+ expect-eq
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
!> `[%subscribe 1 ~sampyl-sipnym %hall /this/path]~
Parse incoming requests and add tests.
2018-11-16 00:43:10 +03:00
!> %- parse-channel-request:light-gate
%- need %- de-json:html
'''
[{"action": "subscribe",
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
"id": 1,
Parse incoming requests and add tests.
2018-11-16 00:43:10 +03:00
"ship": "sampyl-sipnym",
"app": "hall",
"path": "/this/path"}]
'''
::
%+ expect-eq
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
!> `[%unsubscribe 2 ~marlyt %thing /other]~
Parse incoming requests and add tests.
2018-11-16 00:43:10 +03:00
!> %- parse-channel-request:light-gate
%- need %- de-json:html
'''
[{"action": "unsubscribe",
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
"id": 2,
Parse incoming requests and add tests.
2018-11-16 00:43:10 +03:00
"ship": "marlyt",
"app": "thing",
"path": "/other"}]
'''
::
%+ expect-eq
!> ~
!> %- parse-channel-request:light-gate
%- need %- de-json:html
'[{"noaction": "noaction"}]'
::
%+ expect-eq
!> ~
!> %- parse-channel-request:light-gate
%- need %- de-json:html
'[{"action": "bad-action"}]'
::
%+ expect-eq
!> ~
!> %- parse-channel-request:light-gate
%- need %- de-json:html
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
'[{"action": "ack", "event-id": 5}, {"action": "bad-action"}]'
Parse incoming requests and add tests.
2018-11-16 00:43:10 +03:00
::
%+ expect-eq
!> :- ~
:~ [%ack 9]
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
[%poke 3 ~bud %wut %wut-type [%a [%n '2'] [%n '1'] ~]]
Parse incoming requests and add tests.
2018-11-16 00:43:10 +03:00
==
!> %- parse-channel-request:light-gate
%- need %- de-json:html
'''
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
[{"action": "ack", "event-id": 9},
Parse incoming requests and add tests.
2018-11-16 00:43:10 +03:00
{"action": "poke",
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
"id": 3,
Parse incoming requests and add tests.
2018-11-16 00:43:10 +03:00
"ship": "bud",
"app": "wut",
"mark": "wut-type",
"json": [2, 1]}]
'''
==
::
Send the right moves in response to a PUT request.
2018-11-17 01:30:23 +03:00
++ test-channel-reject-unauthenticated
::
=^ results1 light-gate
%- light-call :*
light-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/init] ~ [%init ~nul]]
expected-moves=~
==
::
=^ results2 light-gate
%- light-call :*
light-gate
now=~1111.1.2
scry=*sley
^= call-args
:* duct=~[/http-blah] ~
%inbound-request
%.n
[%ipv4 .192.168.1.1]
[%'PUT' '/~/channel/1234567890abcdef' ~ ~]
==
^= expected-moves
^- (list move:light-gate)
:~ :* duct=~[/http-blah]
%give
%http-response
%start
400
:~ ['content-type' 'text/html']
['content-length' '206']
==
::
:- ~
%^ internal-server-error:light-gate %.n
'/~/channel/1234567890abcdef' ~
::
complete=%.y
== ==
==
::
;: weld
results1
results2
==
::
++ test-channel-open-never-used-expire
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
=^ results1 light-gate (perform-init-start-channel light-gate *sley)
Receive callback timers from behn which cancel open subscriptions.
2018-11-20 01:59:58 +03:00
:: the behn timer wakes us up; we cancel our subscription
::
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
=^ results2 light-gate
Receive callback timers from behn which cancel open subscriptions.
2018-11-20 01:59:58 +03:00
%- light-take-with-comparator :*
light-gate
now=(add ~1111.1.2 ~h12)
scry=*sley
^= take-args
:* wire=/channel/timeout/'0123456789abcdef' duct=~[/http-blah]
^- (hypo sign:light-gate)
:- *type
[%b %wake ~]
==
^= comparator
|= moves=(list move:light-gate)
^- tang
::
?. ?=([^ ~] moves)
[%leaf "wrong number of moves: {<(lent moves)>}"]~
::
%+ expect-gall-deal
:* /channel/subscription/'0123456789abcdef'
[~nul ~nul] %two %pull ~
==
card.i.moves
==
Send the right moves in response to a PUT request.
2018-11-17 01:30:23 +03:00
::
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
;: weld
results1
results2
==
::
++ test-channel-results-before-open
:: common initialization
::
=^ results1 light-gate (perform-init-start-channel light-gate *sley)
:: poke gets a success message
::
=^ results2 light-gate
%- light-take :*
light-gate
now=(add ~1111.1.2 ~m1)
scry=*sley
^= take-args
Cancel timers on the correct duct.
2018-11-21 21:34:22 +03:00
:* wire=/channel/poke/'0123456789abcdef'/'0' duct=~[/http-put-request]
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
^- (hypo sign:light-gate)
:- *type
[%g %unto %coup ~]
==
moves=~
==
:: subscription gets a success message
::
=^ results3 light-gate
%- light-take :*
light-gate
now=(add ~1111.1.2 ~m1)
scry=*sley
^= take-args
Cancel timers on the correct duct.
2018-11-21 21:34:22 +03:00
:* wire=/channel/subscription/'0123456789abcdef'/'1' duct=~[/http-put-request]
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
^- (hypo sign:light-gate)
:- *type
[%g %unto %reap ~]
==
moves=~
==
:: subscription gets a result
::
=^ results4 light-gate
%- light-take :*
light-gate
now=(add ~1111.1.2 ~m2)
scry=*sley
^= take-args
Cancel timers on the correct duct.
2018-11-21 21:34:22 +03:00
:* wire=/channel/subscription/'0123456789abcdef'/'1' duct=~[/http-put-request]
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
^- (hypo sign:light-gate)
:- *type
[%g %unto %diff %json !>(`json`[%a [%n '1'] [%n '2'] ~])]
==
moves=~
==
:: open up the channel
::
:: send the channel a poke and a subscription request
::
=^ results5 light-gate
%- light-call :*
light-gate
now=~1111.1.2
scry=*sley
^= call-args
:* duct=~[/http-get-open] ~
%inbound-request
%.n
[%ipv4 .192.168.1.1]
%'GET'
'/~/channel/0123456789abcdef'
['cookie' 'urbauth=0v3.q0p7t.mlkkq.cqtto.p0nvi.2ieea']~
~
==
^= expected-moves
^- (list move:light-gate)
:~ :* duct=~[/http-get-open]
%give
%http-response
%start
200
:~ ['content-type' 'text/event-stream']
['cache-control' 'no-cache']
['connection' 'keep-alive']
==
::
:- ~
%- as-octs:mimes:html
'''
id: 0
data: {"ok":"ok","response":"poke","id":0}
id: 1
data: {"ok":"ok","response":"subscribe","id":1}
id: 2
data: {"response":"diff","id":1,"json":[1,2]}
'''
::
complete=%.n
==
::
Cancel timers on the correct duct.
2018-11-21 21:34:22 +03:00
:* duct=~[/http-put-request] %pass
/channel/timeout/'0123456789abcdef'
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
[%b %rest ~1111.1.2..12.00.00]
== == ==
::
Send the right moves in response to a PUT request.
2018-11-17 01:30:23 +03:00
;: weld
results1
results2
results3
Receive callback timers from behn which cancel open subscriptions.
2018-11-20 01:59:58 +03:00
results4
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
results5
Send the right moves in response to a PUT request.
2018-11-17 01:30:23 +03:00
==
::
Data types, basic tests, and a router.
2018-09-20 02:29:36 +03:00
++ light-call
|= $: light-gate=_light-gate
now=@da
scry=sley
call-args=[=duct type=* wrapped-task=(hobo task:able:light-gate)]
expected-moves=(list move:light-gate)
==
^- [tang _light-gate]
::
=/ light-core (light-gate now=now eny=0xdead.beef scry=scry)
::
=^ moves light-gate (call:light-core call-args)
::
=/ output=tang
%+ expect-eq
!> expected-moves
!> moves
::
[output light-gate]
Messages from %l to %g
2018-09-21 02:36:04 +03:00
::
++ light-call-with-comparator
|= $: light-gate=_light-gate
now=@da
scry=sley
call-args=[=duct type=* wrapped-task=(hobo task:able:light-gate)]
move-comparator=$-((list move:light-gate) tang)
==
^- [tang _light-gate]
::
=/ light-core (light-gate now=now eny=0xdead.beef scry=scry)
::
=^ moves light-gate (call:light-core call-args)
::
=/ output=tang (move-comparator moves)
::
[output light-gate]
::
Send responses.
2018-09-24 21:48:19 +03:00
++ light-take
|= $: light-gate=_light-gate
now=@da
scry=sley
take-args=[=wire =duct wrapped-task=(hypo sign:light-gate)]
expected-moves=(list move:light-gate)
==
^- [tang _light-gate]
::
=/ light-core (light-gate now=now eny=0xdead.beef scry=scry)
::
=^ moves light-gate (take:light-core take-args)
::
=/ output=tang
%+ expect-eq
!> expected-moves
!> moves
::
[output light-gate]
::
++ light-take-with-comparator
|= $: light-gate=_light-gate
now=@da
scry=sley
take-args=[=wire =duct wrapped-task=(hypo sign:light-gate)]
move-comparator=$-((list move:light-gate) tang)
==
^- [tang _light-gate]
::
=/ light-core (light-gate now=now eny=0xdead.beef scry=scry)
::
=^ moves light-gate (take:light-core take-args)
::
=/ output=tang (move-comparator moves)
::
[output light-gate]
::
Messages from %l to %g
2018-09-21 02:36:04 +03:00
++ expect-gall-deal
|= $: expected=[wire=path id=sock data=cush:gall]
actual=(wind note:light-gate gift:able:light-gate)
==
^- tang
::
?. ?=(%pass -.actual)
[%leaf "bad move, not a %pass: {<actual>}"]~
::
%+ weld
(expect-eq !>(wire.expected) !>(p.actual))
::
=/ note=note:light-gate q.actual
?. ?=([%g %deal *] note)
[%leaf "bad move, not a %deal: {<actual>}"]~
::
%+ weld
(expect-eq !>(id.expected) !>(id.note))
::
%+ weld
(expect-eq !>(p.data.expected) !>(p.data.note))
::
Send the right moves in response to a PUT request.
2018-11-17 01:30:23 +03:00
?: ?=([%poke *] q.data.expected)
?. ?=([%poke *] q.data.note)
[%leaf "expected %poke, actual {<q.data.note>}"]~
::
%+ weld
(expect-eq !>(p.p.q.data.expected) !>(p.p.q.data.note))
:: compare the payload vases
::
(expect-eq q.p.q.data.expected q.p.q.data.note)
::
?: ?=([%punk *] q.data.expected)
?. ?=([%punk *] q.data.note)
[%leaf "expected %punk, actual {<q.data.note>}"]~
:: compare the mark type
::
%+ weld
(expect-eq !>(p.q.data.expected) !>(p.q.data.note))
:: compare the cage mark
::
%+ weld
(expect-eq !>(p.q.q.data.expected) !>(p.q.q.data.note))
:: compare the payload vases
::
(expect-eq q.q.q.data.expected q.q.q.data.note)
Receive callback timers from behn which cancel open subscriptions.
2018-11-20 01:59:58 +03:00
::
?: ?=([%peel *] q.data.expected)
?. ?=([%peel *] q.data.note)
[%leaf "expected %peel, actual {<q.data.note>}"]~
:: compare the result mark
::
%+ weld
(expect-eq !>(p.q.data.expected) !>(p.q.data.note))
:: compare the path
::
(expect-eq !>(q.q.data.expected) !>(q.q.data.note))
::
?: ?=([%pull *] q.data.expected)
?. ?=([%pull *] q.data.note)
[%leaf "expected %pull, actual {<q.data.note>}"]~
::
~
Send the right moves in response to a PUT request.
2018-11-17 01:30:23 +03:00
:: todo: handle other deals
Messages from %l to %g
2018-09-21 02:36:04 +03:00
::
Send the right moves in response to a PUT request.
2018-11-17 01:30:23 +03:00
[%leaf "unexpected %deal type"]~
Get things compiling, and refactor auth in tests.
2018-11-16 02:27:49 +03:00
:: +perform-authentication: goes through the authentication flow
::
++ perform-authentication
|= $: light-gate=_light-gate
start-now=@da
scry=sley
==
^- [tang _light-gate]
Send the right moves in response to a PUT request.
2018-11-17 01:30:23 +03:00
:: the browser then fetches the login page
Get things compiling, and refactor auth in tests.
2018-11-16 02:27:49 +03:00
::
=^ results1 light-gate
%- light-call :*
light-gate
now=start-now
scry=*sley
^= call-args
:* duct=~[/http-blah] ~
%inbound-request
%.n
[%ipv4 .192.168.1.1]
[%'GET' '/~/login?redirect=/~landscape/inner-path' ~ ~]
==
^= expected-moves
^- (list move:light-gate)
:~ :* duct=~[/http-blah]
%give
%http-response
%start
200
:~ ['content-type' 'text/html']
['content-length' '348']
==
[~ (login-page:light-gate `'/~landscape/inner-path')]
complete=%.y
== ==
==
:: a response post redirects back to the application, setting cookie
::
=^ results2 light-gate
%- light-call :*
light-gate
now=(add start-now ~m1)
scry=*sley
^= call-args
:* duct=~[/http-blah] ~
%inbound-request
%.n
[%ipv4 .192.168.1.1]
%'POST'
'/~/login'
~
:- ~
%- as-octs:mimes:html
'password=lidlut-tabwed-pillex-ridrup&redirect=/~landscape'
==
^= expected-moves
^- (list move:light-gate)
:~ :* duct=~[/http-blah]
%give
%http-response
%start
307
:~ ['location' '/~landscape']
:- 'set-cookie'
'urbauth=0v3.q0p7t.mlkkq.cqtto.p0nvi.2ieea; Path=/; Max-Age=86400'
==
~
complete=%.y
== ==
==
::
:_ light-gate
(weld results1 results2)
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
:: performs all initialization and an initial PUT.
::
++ perform-init-start-channel
|= $: light-gate=_light-gate
scry=sley
==
^- [tang _light-gate]
::
=^ results1 light-gate
%- light-call :*
light-gate
now=~1111.1.1
scry=*sley
call-args=[duct=~[/init] ~ [%init ~nul]]
expected-moves=~
==
:: ensure there's an authenticated session
::
=^ results2 light-gate
%- perform-authentication :*
light-gate
now=~1111.1.2
scry=*sley
==
:: send the channel a poke and a subscription request
::
=^ results3 light-gate
%- light-call-with-comparator :*
light-gate
now=~1111.1.2
scry=*sley
^= call-args
Cancel timers on the correct duct.
2018-11-21 21:34:22 +03:00
:* duct=~[/http-put-request] ~
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
%inbound-request
%.n
[%ipv4 .192.168.1.1]
%'PUT'
'/~/channel/0123456789abcdef'
['cookie' 'urbauth=0v3.q0p7t.mlkkq.cqtto.p0nvi.2ieea']~
::
:- ~
%- as-octs:mimes:html
'''
[{"action": "poke",
"id": 0,
"ship": "nul",
"app": "one",
"mark": "a",
"json": 5},
{"action": "subscribe",
"id": 1,
"ship": "nul",
"app": "two",
"path": "/one/two/three"}
]
'''
==
^= comparator
|= moves=(list move:light-gate)
^- tang
::
?. ?=([^ ^ ^ ^ ~] moves)
[%leaf "wrong number of moves: {<(lent moves)>}"]~
::
;: weld
%+ expect-gall-deal
:* /channel/poke/'0123456789abcdef'/'0'
[~nul ~nul] %one
%punk %a %json !>([%n '5'])
==
card.i.moves
::
%+ expect-gall-deal
:* /channel/subscription/'0123456789abcdef'/'1'
[~nul ~nul] %two
%peel %json /one/two/three
==
card.i.t.moves
::
%+ expect-eq
Cancel timers on the correct duct.
2018-11-21 21:34:22 +03:00
!> [~[/http-put-request] %give %http-response %start 200 ~ ~ %.y]
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
!> i.t.t.moves
::
%+ expect-eq
Cancel timers on the correct duct.
2018-11-21 21:34:22 +03:00
!> :* ~[/http-put-request] %pass
First transimsission of text/event-stream from Eyre.
2018-11-21 04:06:04 +03:00
/channel/timeout/'0123456789abcdef'
%b %wait (add ~1111.1.2 ~h12)
==
!> i.t.t.t.moves
== ==
::
:_ light-gate
:(weld results1 results2 results3)
Data types, basic tests, and a router.
2018-09-20 02:29:36 +03:00
--
Reference in New Issue Copy Permalink