mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-21 05:41:43 +03:00
f4a84caf30
partial revert of 3d3ea61d53, which introduced core names by completing
an unimplemented feature that was already present in hoon.hoon. we've
decided to remove this for the initial launch since it violates the
principle of least surprise for the name of a core to end up in its
$garb and yet only be used for doccords, as opposed to something like a
wing resolution. it was also confusing that this only worked for |% and
|@.
this breaks two of the tests for the dprint library, which have been
commented out. these tests ought to be restored once dprint is rewritten
in order to implement a different way to refer to cores not built by arms
319 lines
6.3 KiB
Plaintext
319 lines
6.3 KiB
Plaintext
:: This library contains unit tests for doccords.
|
|
::
|
|
/+ *test, *dprint
|
|
::
|
|
=> =>
|
|
:: core-summary
|
|
::
|
|
:: core-description
|
|
|%
|
|
:: chapter-summary
|
|
::
|
|
:: chapter-description
|
|
+| %chapter-test
|
|
++ empty ~
|
|
--
|
|
::
|
|
:: arms used for testing doccords
|
|
|%
|
|
+| %types
|
|
+$ arm-dox [tape what what what]
|
|
+$ core-dox what
|
|
+$ chapter-dox [tape what]
|
|
::
|
|
+| %helper-functions
|
|
++ get-item
|
|
|= a=(list term)
|
|
^- item
|
|
+:(find-item-in-type a -:!>(.))
|
|
::
|
|
++ get-arm-dox
|
|
|= a=(list term)
|
|
^- arm-dox
|
|
=/ itm=item (get-item a)
|
|
?> ?=([%arm *] itm)
|
|
[name adoc pdoc cdoc]:itm
|
|
::
|
|
++ get-core-dox
|
|
|= a=(list term)
|
|
^- core-dox
|
|
=/ itm=item (get-item a)
|
|
?> ?=([%core *] itm)
|
|
docs:itm
|
|
::
|
|
++ get-chapter-dox
|
|
|= a=(list term)
|
|
^- chapter-dox
|
|
=/ itm=item (get-item a)
|
|
?> ?=([%chapter *] itm)
|
|
[name docs]:itm
|
|
::
|
|
++ arm-check
|
|
|= [arms=(list term) wat=(trel ? ? ?) docs=(trel what what what)]
|
|
^- tang
|
|
=| res=tang
|
|
|-
|
|
?~ arms res
|
|
%= $
|
|
arms t.arms
|
|
res %+ weld
|
|
res
|
|
%+ expect-eq
|
|
!> ^- arm-dox
|
|
:* (trip i.arms)
|
|
?:(p.wat p.docs *what)
|
|
?:(q.wat q.docs *what)
|
|
?:(r.wat r.docs *what)
|
|
==
|
|
::
|
|
!> (get-arm-dox ~[i.arms])
|
|
==
|
|
::
|
|
++ run-arm-tests
|
|
|= [wat=(trel ? ? ?)]
|
|
^- tang
|
|
=/ num (sub 3 :(add p.wat q.wat r.wat))
|
|
=/ prefix=term
|
|
;: (cury cat 3)
|
|
%arm-
|
|
?:(p.wat %adoc- ~)
|
|
?:(q.wat %pdoc- ~)
|
|
?:(r.wat %cdoc- ~)
|
|
==
|
|
=/ arms=(list term)
|
|
%- turn
|
|
:_ |= [postfix=term]
|
|
`term`(cat 3 prefix postfix)
|
|
^- (list term)
|
|
?+ num ~
|
|
%1 ~[%pre %post]
|
|
%2 ~[%pre-pre %post-pre %post-post]
|
|
%3 :~ %pre-pre-pre
|
|
%pre-pre-post
|
|
%pre-post-pre
|
|
%post-pre-pre
|
|
%pre-post-post
|
|
%post-pre-post
|
|
%post-post-pre
|
|
==
|
|
==
|
|
%^ arm-check
|
|
arms
|
|
wat
|
|
[`['arm-doc' ~] `['product-doc' ~] `['core-doc' ~]]
|
|
::
|
|
+| %batch-comments
|
|
:: +b-foo: a foo
|
|
:: $b-baz: a baz
|
|
:: +b-bar: a bar
|
|
::
|
|
:: a very bar foo
|
|
::
|
|
:: $b-boz: a boz
|
|
::
|
|
:: a very boz baz
|
|
::
|
|
++ b-foo ~
|
|
++ b-bar ~
|
|
+$ b-baz *
|
|
+$ b-boz *
|
|
::
|
|
+| %docs-for-arms
|
|
++ no-doc ~
|
|
::
|
|
:: +arm-adoc-pre: arm-doc
|
|
++ arm-adoc-pre ~
|
|
::
|
|
++ arm-adoc-post :: arm-doc
|
|
~
|
|
::
|
|
++ arm-pdoc-pre
|
|
:: product-doc
|
|
'foo'
|
|
++ arm-pdoc-post
|
|
'foo' :: product-doc
|
|
::
|
|
++ arm-cdoc-pre
|
|
|%
|
|
:: core-doc
|
|
++ $ ~
|
|
--
|
|
::
|
|
++ arm-cdoc-post
|
|
|%
|
|
++ $ :: core-doc
|
|
~
|
|
--
|
|
::
|
|
:: +arm-adoc-pdoc-pre-pre: arm-doc
|
|
++ arm-adoc-pdoc-pre-pre
|
|
:: product-doc
|
|
'foo'
|
|
::
|
|
++ arm-adoc-pdoc-post-pre :: arm-doc
|
|
:: product-doc
|
|
'foo'
|
|
::
|
|
++ arm-adoc-pdoc-post-post :: arm-doc
|
|
'foo' :: product-doc
|
|
::
|
|
:: +arm-adoc-cdoc-pre-pre: arm-doc
|
|
++ arm-adoc-cdoc-pre-pre
|
|
|%
|
|
:: core-doc
|
|
++ $ ~
|
|
--
|
|
::
|
|
++ arm-adoc-cdoc-post-pre :: arm-doc
|
|
|%
|
|
:: core-doc
|
|
++ $ ~
|
|
--
|
|
::
|
|
++ arm-adoc-cdoc-post-post :: arm-doc
|
|
|%
|
|
++ $ :: core-doc
|
|
~
|
|
--
|
|
::
|
|
++ arm-pdoc-cdoc-pre-pre
|
|
:: product-doc
|
|
|%
|
|
:: core-doc
|
|
++ $ ~
|
|
--
|
|
++ arm-pdoc-cdoc-post-pre
|
|
|%
|
|
:: core-doc
|
|
++ $ ~
|
|
-- :: product-doc
|
|
::
|
|
++ arm-pdoc-cdoc-post-post
|
|
|%
|
|
++ $ :: core-doc
|
|
~
|
|
-- :: product-doc
|
|
::
|
|
:: +arm-adoc-pdoc-cdoc-pre-pre-pre: arm-doc
|
|
++ arm-adoc-pdoc-cdoc-pre-pre-pre
|
|
:: product-doc
|
|
|%
|
|
:: core-doc
|
|
++ $ ~
|
|
--
|
|
::
|
|
++ arm-adoc-pdoc-cdoc-post-pre-pre :: arm-doc
|
|
:: product-doc
|
|
|%
|
|
:: core-doc
|
|
++ $ ~
|
|
--
|
|
::
|
|
:: +arm-adoc-pdoc-cdoc-pre-post-pre: arm-doc
|
|
++ arm-adoc-pdoc-cdoc-pre-post-pre
|
|
|%
|
|
:: core-doc
|
|
++ $ ~
|
|
-- :: product-doc
|
|
::
|
|
:: +arm-adoc-pdoc-cdoc-pre-pre-post: arm-doc
|
|
++ arm-adoc-pdoc-cdoc-pre-pre-post
|
|
:: product-doc
|
|
|%
|
|
++ $ :: core-doc
|
|
~
|
|
--
|
|
::
|
|
++ arm-adoc-pdoc-cdoc-post-post-pre :: arm-doc
|
|
|%
|
|
:: core-doc
|
|
++ $ ~
|
|
-- :: product-doc
|
|
::
|
|
++ arm-adoc-pdoc-cdoc-post-pre-post :: arm-doc
|
|
:: product-doc
|
|
|%
|
|
++ $ :: core-doc
|
|
~
|
|
--
|
|
::
|
|
:: +arm-adoc-pdoc-cdoc-pre-post-post: arm-doc
|
|
++ arm-adoc-pdoc-cdoc-pre-post-post
|
|
|%
|
|
++ $ :: core-doc
|
|
~
|
|
-- :: product-doc
|
|
::
|
|
++ arm-adoc-pdoc-cdoc-post-post-post :: arm-doc
|
|
|%
|
|
++ $ :: core-doc
|
|
~
|
|
-- :: product-doc
|
|
::
|
|
--
|
|
::
|
|
:: contains the actual tests to be run by -test
|
|
|%
|
|
+| %batch-tests
|
|
++ test-b-foo
|
|
%+ expect-eq
|
|
!> ^- arm-dox
|
|
["b-foo" `['a foo' ~] *what *what]
|
|
::
|
|
!> (get-arm-dox ~[%b-foo])
|
|
::
|
|
++ test-b-bar
|
|
%+ expect-eq
|
|
!> ^- arm-dox
|
|
["b-bar" `['a bar' ~[~[[& 'a very bar foo']]]] *what *what]
|
|
::
|
|
!> (get-arm-dox ~[%b-bar])
|
|
::
|
|
++ test-b-baz
|
|
%+ expect-eq
|
|
!> ^- arm-dox
|
|
["b-baz" `['a baz' ~] *what *what]
|
|
::
|
|
!> (get-arm-dox ~[%b-baz])
|
|
::
|
|
++ test-b-boz
|
|
%+ expect-eq
|
|
!> ^- arm-dox
|
|
["b-boz" `['a boz' ~[~[[& 'a very boz baz']]]] *what *what]
|
|
::
|
|
!> (get-arm-dox ~[%b-boz])
|
|
::
|
|
+| %arm-tests
|
|
::
|
|
++ test-no-doc
|
|
%+ expect-eq
|
|
!> ^- arm-dox
|
|
["no-doc" *what *what *what]
|
|
::
|
|
!> (get-arm-dox ~[%no-doc])
|
|
::
|
|
++ test-adoc (run-arm-tests & | |)
|
|
++ test-pdoc (run-arm-tests | & |)
|
|
++ test-cdoc (run-arm-tests | | &)
|
|
++ test-adoc-pdoc (run-arm-tests & & |)
|
|
++ test-adoc-cdoc (run-arm-tests & | &)
|
|
++ test-pdoc-cdoc (run-arm-tests | & &)
|
|
++ test-adoc-pdoc-cdoc (run-arm-tests & & &)
|
|
::
|
|
:: +| %core-tests
|
|
:: ++ test-core
|
|
:: %+ expect-eq
|
|
:: !> ^- core-dox
|
|
:: `['core-summary' ~[~[[%.y 'core-description']]]]
|
|
:: ::
|
|
:: !> (get-core-dox ~[%core-summary])
|
|
:: ::
|
|
:: ++ test-chapter
|
|
:: %+ expect-eq
|
|
:: !> ^- chapter-dox
|
|
:: ["chapter-test" `['chapter-summary' ~[~[[%.y 'chapter-description']]]]]
|
|
:: ::
|
|
:: !> (get-chapter-dox ~[%core-summary %chapter-test])
|
|
::
|
|
--
|