2018-11-03 08:03:03 +03:00
|
|
|
/+ *test
|
|
|
|
|
::
|
|
|
|
|
/= app /: /===/app/acme
|
|
|
|
|
/!noun/
|
|
|
|
|
::
|
|
|
|
|
|%
|
|
|
|
|
:: tests that acme preps without moves
|
|
|
|
|
::
|
|
|
|
|
++ test-prep
|
|
|
|
|
=^ moves app (~(prep app *bowl:gall *acme:app) ~)
|
|
|
|
|
%+ expect-eq
|
2019-07-10 23:00:39 +03:00
|
|
|
!> &
|
|
|
|
|
!> ?=([[bone %serve *] ~] moves)
|
2018-11-03 08:03:03 +03:00
|
|
|
:: tests that acme inits on first order
|
|
|
|
|
::
|
|
|
|
|
++ test-first-order
|
|
|
|
|
=/ dom=(set turf) (sy /org/urbit/zod ~)
|
|
|
|
|
=^ moves app (~(poke-acme-order app *bowl:gall *acme:app) dom)
|
|
|
|
|
;: weld
|
|
|
|
|
%+ expect-eq
|
2019-10-30 21:16:41 +03:00
|
|
|
!> 2
|
|
|
|
|
!> (lent moves)
|
2018-11-03 08:03:03 +03:00
|
|
|
::
|
|
|
|
|
%+ expect-eq
|
|
|
|
|
!> [~ dom]
|
2019-07-11 08:58:07 +03:00
|
|
|
!> ?~(next-order.app ~ (some ~(key by dom.u.next-order.app)))
|
2018-11-03 08:03:03 +03:00
|
|
|
::
|
|
|
|
|
%+ expect-eq
|
|
|
|
|
!> &
|
|
|
|
|
!> !=(*key:rsa:app key.act.app)
|
|
|
|
|
::
|
|
|
|
|
%+ expect-eq
|
|
|
|
|
!> &
|
|
|
|
|
!> !=(*key:rsa:app cey.app)
|
|
|
|
|
==
|
|
|
|
|
:: tests that acme requests service directory on %wake
|
|
|
|
|
::
|
|
|
|
|
++ test-first-order-wake
|
2019-01-14 23:32:07 +03:00
|
|
|
=^ moves app (~(wake app *bowl:gall *acme:app) /acme/try/1/directory ~)
|
2018-11-03 08:03:03 +03:00
|
|
|
%+ expect-eq
|
2019-02-20 02:30:36 +03:00
|
|
|
!> :~ :* ost.bow.app
|
|
|
|
|
%request
|
|
|
|
|
/acme/try/2/directory
|
|
|
|
|
[%'GET' (crip (en-purl:html directory-base:app)) ~ ~]
|
2019-07-04 09:45:54 +03:00
|
|
|
*outbound-config:iris
|
2019-02-20 02:30:36 +03:00
|
|
|
== ==
|
2018-11-03 08:03:03 +03:00
|
|
|
!> moves
|
|
|
|
|
--
|
