shrub/tests/app/acme.hoon

50 lines
1.2 KiB
Plaintext
Raw Normal View History

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
!> *(list move:app)
!> moves
:: 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)
2018-11-07 20:45:00 +03:00
=/ msg "requesting an https certificate for zod.urbit.org"
2018-11-03 08:03:03 +03:00
;: weld
%+ expect-eq
2018-11-07 20:45:00 +03:00
!> :~ [ost.bow.app %wait /acme/directory +(now.bow.app)]
[ost.bow.app %flog / %text msg]
==
2018-11-03 08:03:03 +03:00
!> moves
::
%+ expect-eq
!> [~ dom]
!> pen.app
::
%+ 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
=^ moves app (~(wake app *bowl:gall *acme:app) /acme/directory ~)
=/ url
=- (need (de-purl:html -))
'https://acme-staging-v02.api.letsencrypt.org/directory'
%+ expect-eq
2019-01-14 06:16:57 +03:00
!> ~[[ost.bow.app [%hiss /acme/directory/~zod ~ %httr %hiss url %get ~ ~]]]
2018-11-03 08:03:03 +03:00
!> moves
--