mirror of
https://github.com/urbit/shrub.git
synced 2024-12-18 15:55:00 +03:00
25 lines
419 B
Plaintext
25 lines
419 B
Plaintext
|
/+ *test
|
||
|
|
|%
|
||
|
|
++ test-set
|
||
|
|
;: weld
|
||
|
|
%+ expect-eq
|
||
|
|
!> (some (sy 1 2 ~))
|
||
|
|
!> ((soft (set)) [2 [1 ~ ~] ~])
|
||
|
|
::
|
||
|
|
%+ expect-eq
|
||
|
|
!> ~
|
||
|
|
!> ((soft (set)) [2 ~ [1 ~ ~]])
|
||
|
|
==
|
||
|
|
::
|
||
|
|
++ test-map
|
||
|
|
;: weld
|
||
|
|
%+ expect-eq
|
||
|
|
!> (some (my [1 2] [3 4] ~))
|
||
|
|
!> ((soft (map)) [[1 2] ~ [[3 4] ~ ~]])
|
||
|
|
::
|
||
|
|
%+ expect-eq
|
||
|
|
!> ~
|
||
|
|
!> ((soft (map)) [[1 2] [[3 4] ~ ~] ~])
|
||
|
|
==
|
||
|
|
--
|