mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-17 20:01:32 +03:00
390 lines
9.3 KiB
Plaintext
390 lines
9.3 KiB
Plaintext
/+ *test
|
|
::
|
|
/= 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
|
|
==
|
|
:: tests that when we have no match, that we fall back to the built-in 404
|
|
::
|
|
++ 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]
|
|
['GET' '/' ~ ~]
|
|
==
|
|
^= expectec-moves
|
|
^- (list move:light-gate)
|
|
:~ :* duct=~[/http-blah]
|
|
%give
|
|
%http-response
|
|
%start
|
|
404
|
|
['Content-Type' 'text/html']~
|
|
[~ (file-not-found-page:light-gate '/')]
|
|
complete=%.y
|
|
== ==
|
|
==
|
|
::
|
|
;: weld
|
|
results1
|
|
results2
|
|
==
|
|
::
|
|
++ test-basic-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]
|
|
['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
|
|
::
|
|
%+ weld
|
|
(expect-eq !>(~[/http-blah]) !>(duct))
|
|
::
|
|
%+ expect-gall-deal
|
|
:+ /run-app/app1 [~nul ~nul]
|
|
^- cush:gall
|
|
:* %app1 %poke %handle-http-request
|
|
!>([%.n [%ipv4 .192.168.1.1] ['GET' '/' ~ ~]])
|
|
==
|
|
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
|
|
:+ %g %response
|
|
^- raw-http-response:light-gate
|
|
[%start 200 ['Content-Type' 'text/html']~ [~ (as-octs:mimes:html 'Hiya!')] %.y]
|
|
==
|
|
^= expected-move
|
|
:~ :* duct=~[/http-blah] %give %http-response
|
|
[%start 200 ['Content-Type' 'text/html']~ `[5 'Hiya!'] %.y]
|
|
== == ==
|
|
::
|
|
;: weld
|
|
results1
|
|
results2
|
|
results3
|
|
results4
|
|
==
|
|
::
|
|
++ 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]
|
|
::
|
|
++ 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]
|
|
::
|
|
++ 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]
|
|
::
|
|
++ 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))
|
|
:: todo: handle other deals
|
|
::
|
|
?. ?=([%poke *] q.data.note)
|
|
[%leaf "todo: can only handle %poke right now"]~
|
|
?. ?=([%poke *] q.data.expected)
|
|
[%leaf "todo: can only handle %poke right now"]~
|
|
::
|
|
%+ 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)
|
|
--
|