urbit/pkg/arvo/tests/sys/hoon/molds.hoon

/+  *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] ~ ~] ~])
  ==
::
++  test-qeu
  ;:  weld
    %+  expect-eq
      !>  (some (~(gas to *(qeu)) "abcd"))
      !>  ((soft (qeu)) [98 [100 ~ [99 ~ ~]] [97 ~ ~]])
  ::
    %+  expect-eq
      !>  ~
      !>  ((soft (qeu)) [97 [98 ~ ~] [100 ~ [99 ~ ~]]])
  ==
--