test: adds +find regression test, fixes set/map comment typo

This commit is contained in:
Joe Bryan 2020-10-14 16:32:16 -07:00
parent 8f455a2d03
commit b786530de0
3 changed files with 7 additions and 2 deletions

View File

@ -55,6 +55,11 @@
%+ expect-eq
!> ~
!> (find `(list @)`~[6] l)
:: Checks for incomplete match
::
%+ expect-eq
!> ~
!> (find "bcd" "abc")
==
::
++ test-list-flop

View File

@ -123,7 +123,7 @@
::
:: and the ordering 1 < 2 < 3.
::
:: 1 should be in the left brach and 3 in the right one.
:: 1 should be in the left branch and 3 in the right one.
::
=/ balanced-a=(map @ @) [[2 2] [[1 1] ~ ~] [[3 3] ~ ~]]
:: doesn't follow vertical ordering

View File

@ -92,7 +92,7 @@
:: 1.923.673.882
::
:: and the ordering 1 < 2 < 3.
:: 1 should be in the left brach and 3 in the right one.
:: 1 should be in the left branch and 3 in the right one.
::
=/ balanced-a=(set @) [2 [1 ~ ~] [3 ~ ~]]
:: Doesn't follow vertical ordering