ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-20 21:31:32 +03:00
Code Issues Packages Projects Releases Wiki Activity
3d701f79c4
urbit/pkg/arvo/tests/lib/dprint.hoon
drbeefsupreme 3d701f79c4
doccords: unit tests for arm dox
2022-05-09 14:57:43 -04:00

345 lines
7.0 KiB
Plaintext
Raw Blame History

:: This library contains unit tests for doccords.
::
/+ *test, *dprint
::
=>
:> # %test-arms
:>
:> arms used for testing arm documentation
|%
+| %types
+$ arm-dox [tape what what what]
::
+| %helper-functions
++ get-item
|= a=(list term)
^- item
+:(find-item-in-type a -:!>(.) %.y)
::
++ get-arm-dox
|= a=(list term)
^- arm-dox
=/ itm=item (get-item a)
?> ?=([%arm *] itm)
[name adoc pdoc cdoc]:itm
::
+| %docs-for-arms
++ no-doc ~
::
:> 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-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-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-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-doc
++ arm-adoc-pdoc-cdoc-pre-post-pre
|%
:> core-doc
++ $ ~
-- :< product-doc
::
:> 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-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
::
--
::
:> # %dprint-tests
:>
:> contains the actual tests to be run by -test
|%
++ test-no-doc
%+ expect-eq
!> (get-arm-dox ~[%no-doc])
::
!> ^- arm-dox
["no-doc" *what *what *what]
::
++ test-adoc
;: weld
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-pre])
::
!> ^- arm-dox
["arm-adoc-pre" `['arm-doc' ~] *what *what]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-post])
::
!> ^- arm-dox
["arm-adoc-post" `['arm-doc' ~] *what *what]
==
::
++ test-pdoc
;: weld
%+ expect-eq
!> (get-arm-dox ~[%arm-pdoc-pre])
::
!> ^- arm-dox
["arm-pdoc-pre" *what `['product-doc' ~] *what]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-pdoc-post])
::
!> ^- arm-dox
["arm-pdoc-post" *what `['product-doc' ~] *what]
==
::
++ test-cdoc
;: weld
%+ expect-eq
!> (get-arm-dox ~[%arm-cdoc-pre])
::
!> ^- arm-dox
["arm-cdoc-pre" *what *what `['core-doc' ~]]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-cdoc-post])
::
!> ^- arm-dox
["arm-cdoc-post" *what *what `['core-doc' ~]]
==
::
++ test-adoc-pdoc
;: weld
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-pdoc-pre-pre])
::
!> ^- arm-dox
["arm-adoc-pdoc-pre-pre" `['arm-doc' ~] `['product-doc' ~] *what]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-pdoc-post-pre])
::
!> ^- arm-dox
["arm-adoc-pdoc-post-pre" `['arm-doc' ~] `['product-doc' ~] *what]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-pdoc-post-post])
::
!> ^- arm-dox
["arm-adoc-pdoc-post-post" `['arm-doc' ~] `['product-doc' ~] *what]
==
::
++ test-adoc-cdoc
;: weld
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-cdoc-pre-pre])
::
!> ^- arm-dox
["arm-adoc-cdoc-pre-pre" `['arm-doc' ~] *what `['core-doc' ~]]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-cdoc-post-pre])
::
!> ^- arm-dox
["arm-adoc-cdoc-post-pre" `['arm-doc' ~] *what `['core-doc' ~]]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-cdoc-post-post])
::
!> ^- arm-dox
["arm-adoc-cdoc-post-post" `['arm-doc' ~] *what `['core-doc' ~]]
==
::
++ test-pdoc-cdoc
;: weld
%+ expect-eq
!> (get-arm-dox ~[%arm-pdoc-cdoc-pre-pre])
::
!> ^- arm-dox
["arm-pdoc-cdoc-pre-pre" *what `['product-doc' ~] `['core-doc' ~]]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-pdoc-cdoc-post-pre])
::
!> ^- arm-dox
["arm-pdoc-cdoc-post-pre" *what `['product-doc' ~] `['core-doc' ~]]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-pdoc-cdoc-post-post])
::
!> ^- arm-dox
["arm-pdoc-cdoc-post-post" *what `['product-doc' ~] `['core-doc' ~]]
==
::
++ test-adoc-pdoc-cdoc
;: weld
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-pdoc-cdoc-pre-pre-pre])
::
!> ^- arm-dox
:^ "arm-adoc-pdoc-cdoc-pre-pre-pre"
`['arm-doc' ~]
`['product-doc' ~]
`['core-doc' ~]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-pdoc-cdoc-post-pre-pre])
::
!> ^- arm-dox
:^ "arm-adoc-pdoc-cdoc-post-pre-pre"
`['arm-doc' ~]
`['product-doc' ~]
`['core-doc' ~]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-pdoc-cdoc-pre-post-pre])
::
!> ^- arm-dox
:^ "arm-adoc-pdoc-cdoc-pre-post-pre"
`['arm-doc' ~]
`['product-doc' ~]
`['core-doc' ~]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-pdoc-cdoc-pre-pre-post])
::
!> ^- arm-dox
:^ "arm-adoc-pdoc-cdoc-pre-pre-post"
`['arm-doc' ~]
`['product-doc' ~]
`['core-doc' ~]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-pdoc-cdoc-post-post-pre])
::
!> ^- arm-dox
:^ "arm-adoc-pdoc-cdoc-post-post-pre"
`['arm-doc' ~]
`['product-doc' ~]
`['core-doc' ~]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-pdoc-cdoc-post-pre-post])
::
!> ^- arm-dox
:^ "arm-adoc-pdoc-cdoc-post-pre-post"
`['arm-doc' ~]
`['product-doc' ~]
`['core-doc' ~]
::
%+ expect-eq
!> (get-arm-dox ~[%arm-adoc-pdoc-cdoc-pre-post-post])
::
!> ^- arm-dox
:^ "arm-adoc-pdoc-cdoc-pre-post-post"
`['arm-doc' ~]
`['product-doc' ~]
`['core-doc' ~]
==
--
Reference in New Issue View Git Blame Copy Permalink