mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
started tests
This commit is contained in:
parent
9d2acd36fa
commit
1af9c5a328
101
tests/app/collections.hoon
Normal file
101
tests/app/collections.hoon
Normal file
@ -0,0 +1,101 @@
|
||||
/+ *test, collections
|
||||
::
|
||||
/= app /: /===/app/collections /!noun/
|
||||
/= gall-vane /: /===/sys/vane/gall /!noun/
|
||||
::
|
||||
=, gall
|
||||
=>
|
||||
|%
|
||||
++ gall-args [~1234.5.7 0vagine *slyt]
|
||||
::
|
||||
++ hype
|
||||
|= tak=task:able:gall
|
||||
^- (hypo (hobo task:able:gall))
|
||||
[-:!>(tak) tak]
|
||||
::
|
||||
++ gall-gate (gall-vane !>(..zuse))
|
||||
--
|
||||
::
|
||||
|%
|
||||
::
|
||||
++ test-prep
|
||||
=/ prep-bone 20
|
||||
=/ our-ship ~marzod
|
||||
=/ bol
|
||||
%* . *bowl:gall
|
||||
our our-ship
|
||||
ost prep-bone
|
||||
==
|
||||
::
|
||||
=/ moves -:(~(prep app bol *state:collections) ~)
|
||||
;: weld
|
||||
%+ expect-eq
|
||||
!> %- sort
|
||||
:_ aor
|
||||
^- (list move:collections)
|
||||
:~ :* prep-bone %poke /col-hall-action [our-ship %hall]
|
||||
%hall-action %create %c 'collections' %journal
|
||||
==
|
||||
::
|
||||
:* prep-bone %poke /col-hall-action [our-ship %hall]
|
||||
%hall-action %source %inbox & (sy [[our-ship %c] ~]~)
|
||||
==
|
||||
::
|
||||
:* prep-bone %peer /circles [our-ship %hall]
|
||||
/circles/[(scot %p our-ship)]
|
||||
==
|
||||
::
|
||||
:* prep-bone %peer /inbox [our-ship %hall]
|
||||
/circle/inbox/config/grams
|
||||
==
|
||||
::
|
||||
:* prep-bone %peer /invites [our-ship %hall]
|
||||
/circle/i/grams
|
||||
==
|
||||
==
|
||||
!> (sort moves aor)
|
||||
::
|
||||
=. our-ship ~davtyr-nimren
|
||||
=. bol bol(our our-ship)
|
||||
::
|
||||
=/ moves -:(~(prep app bol *state:collections) ~)
|
||||
%+ expect-eq
|
||||
!> %- sort
|
||||
:_ aor
|
||||
^- (list move:collections)
|
||||
:~ :* prep-bone %poke /col-hall-action [our-ship %hall]
|
||||
%hall-action %create %c 'collections' %journal
|
||||
==
|
||||
::
|
||||
:* prep-bone %poke /col-hall-action [our-ship %hall]
|
||||
%hall-action %source %inbox & (sy [[our-ship %c] ~]~)
|
||||
==
|
||||
::
|
||||
:* prep-bone %peer /circles [our-ship %hall]
|
||||
/circles/[(scot %p our-ship)]
|
||||
==
|
||||
::
|
||||
:* prep-bone %peer /inbox [our-ship %hall]
|
||||
/circle/inbox/config/grams
|
||||
==
|
||||
::
|
||||
:* prep-bone %peer /invites [our-ship %hall]
|
||||
/circle/i/grams
|
||||
==
|
||||
::
|
||||
:* prep-bone %poke /client-action [our-ship %hall]
|
||||
%hall-action %source %inbox &
|
||||
(sy [[(^sein:title our-ship) %urbit-meta] ~]~)
|
||||
==
|
||||
==
|
||||
!> (sort moves aor)
|
||||
==
|
||||
::
|
||||
::++ test-load-app
|
||||
:: =/ gall-door (gall-gate gall-args)
|
||||
:: =/ init (call:gall-door [/test]~ (hype %init ~marzod))
|
||||
:: %+ expect-eq
|
||||
:: !>
|
||||
:: !>
|
||||
::
|
||||
--
|
Loading…
Reference in New Issue
Block a user