test: remove redundant helpers

This commit is contained in:
Ted Blackman 2020-04-16 09:40:59 -04:00
parent 95f27d4a7b
commit 241a7165d4
2 changed files with 1 additions and 15 deletions

View File

@ -1,20 +1,6 @@
:: testing utilities meant to be directly used from files in %/tests :: testing utilities meant to be directly used from files in %/tests
:: ::
|% |%
++ expect-yes
|= [message=tape actual=?]
^- tang
?: actual ~
[leaf+message]~
::
++ expect-crash
|* [message=tape go=(trap)]
^- tang
=/ res (mule go)
?- -.res
%| ~
%& ~[leaf+"expected crash" leaf+message]
==
:: +expect-eq: compares :expected and :actual and pretty-prints the result :: +expect-eq: compares :expected and :actual and pretty-prints the result
:: ::
++ expect-eq ++ expect-eq

View File

@ -35,7 +35,7 @@
!> (parse-pile:(ford):fusion /sur/foo/hoon ".") !> (parse-pile:(ford):fusion /sur/foo/hoon ".")
:: ::
++ test-parse-fail ^- tang ++ test-parse-fail ^- tang
%+ expect-crash "parsing should have failed" %- expect-fail
|. (parse-pile:(ford):fusion /sur/foo/hoon "[") |. (parse-pile:(ford):fusion /sur/foo/hoon "[")
:: ::
++ test-hello-gen ^- tang ++ test-hello-gen ^- tang