mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-18 04:11:49 +03:00
30 lines
544 B
Plaintext
30 lines
544 B
Plaintext
/+ *test
|
|
|%
|
|
++ test-slam-wa-dry ^- tang
|
|
::
|
|
%+ expect-eq
|
|
!>(7)
|
|
-:(~(slam wa *worm) !>(add) !>([3 4]))
|
|
::
|
|
++ test-slam-wa-wet ^- tang
|
|
::
|
|
=/ list-type=type -:!>(*(list @))
|
|
=| worm0=worm
|
|
=+ [res1 worm1]=(~(slam wa worm0) !>(flop) [list-type ~[1 2 3]])
|
|
=+ [res2 worm2]=(~(slam wa worm1) !>(flop) [list-type ~[4 5 6]])
|
|
::
|
|
;: weld
|
|
%+ expect-eq
|
|
res1
|
|
[list-type ~[3 2 1]]
|
|
::
|
|
%+ expect-eq
|
|
res2
|
|
[list-type ~[6 5 4]]
|
|
::
|
|
%+ expect-eq
|
|
!> worm1
|
|
!> worm2
|
|
==
|
|
--
|