2024-04-11 22:06:26 +03:00
|
|
|
/- neo
|
|
|
|
|
/+ *test
|
|
|
|
|
|%
|
|
|
|
|
++ now ~2024.4.11
|
|
|
|
|
++ reply-pith
|
|
|
|
|
`pith:neo`#/messages/[da/now]/reply/[da/now]
|
|
|
|
|
++ reply-pish
|
|
|
|
|
^- pish:neo
|
|
|
|
|
:~ &/%messages
|
|
|
|
|
|/%da
|
|
|
|
|
&/%reply
|
|
|
|
|
|/%da
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ messages-pith
|
|
|
|
|
`pith:neo`#/messages/[da/now]
|
|
|
|
|
++ messages-pish
|
|
|
|
|
`pish:neo`(limo &/%messages |/%da ~)
|
|
|
|
|
++ comment-pith
|
|
|
|
|
`pith:neo`#/note/[ud/3]/comment/[da/now]
|
|
|
|
|
++ comment-pish
|
|
|
|
|
`pish:neo`(limo &/%note |/%ud &/%comment |/%da ~)
|
|
|
|
|
++ all-pish
|
|
|
|
|
%- ~(gas in *(set pish:neo))
|
|
|
|
|
:~ reply-pish
|
|
|
|
|
messages-pish
|
|
|
|
|
comment-pish
|
|
|
|
|
==
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
++ test-peon-match
|
|
|
|
|
;: weld
|
|
|
|
|
%+ expect-eq !>(&)
|
|
|
|
|
!>((match:peon:neo messages-pish messages-pith))
|
|
|
|
|
::
|
|
|
|
|
%+ expect-eq !>(|)
|
|
|
|
|
!>((match:peon:neo messages-pish reply-pith))
|
|
|
|
|
::
|
|
|
|
|
%+ expect-eq !>(&)
|
|
|
|
|
!>((match:peon:neo reply-pish reply-pith))
|
|
|
|
|
==
|
|
|
|
|
++ test-peon-find
|
|
|
|
|
;: weld
|
|
|
|
|
%+ expect-eq !>(`reply-pish)
|
|
|
|
|
!>((find:peon:neo reply-pith all-pish))
|
|
|
|
|
::
|
|
|
|
|
%+ expect-eq !>(`comment-pish)
|
|
|
|
|
!>((find:peon:neo comment-pith all-pish))
|
|
|
|
|
::
|
|
|
|
|
%+ expect-eq !>(~)
|
|
|
|
|
!>((find:peon:neo comment-pith (~(del in all-pish) comment-pish)))
|
|
|
|
|
==
|
2024-04-19 01:49:31 +03:00
|
|
|
++ curb-test
|
|
|
|
|
^- curb:neo
|
|
|
|
|
:~ %or
|
|
|
|
|
:- %sol
|
|
|
|
|
[[%rol %sender pro/%sol-addr] [%rol %receiver pro/%sol-addr]]
|
|
|
|
|
==
|
|
|
|
|
++ sut -:!>(~)
|
|
|
|
|
++ curb-test-hoon
|
|
|
|
|
^- type
|
|
|
|
|
=; =hoon
|
|
|
|
|
=< -
|
|
|
|
|
%- sped
|
|
|
|
|
(~(mint ut sut) %noun hoon)
|
|
|
|
|
!, *hoon
|
|
|
|
|
^~
|
|
|
|
|
=< *typ
|
|
|
|
|
|%
|
|
|
|
|
+$ typ
|
|
|
|
|
$% [%eth sender=@uxH receiver=@uxH]
|
|
|
|
|
[%sol sender=@uxH receiver=@uxH]
|
|
|
|
|
==
|
|
|
|
|
--
|
|
|
|
|
++ dummy-get
|
|
|
|
|
|= =stud:neo
|
|
|
|
|
-:!>(*@uxH)
|
|
|
|
|
++ raw `*`[%sol 0x0 0x0]
|
|
|
|
|
++ left
|
|
|
|
|
^- vase
|
|
|
|
|
[curb-test-hoon raw]
|
|
|
|
|
++ right
|
|
|
|
|
[res raw]
|
|
|
|
|
++ res
|
|
|
|
|
(compile-curb:neo curb-test dummy-get)
|
|
|
|
|
::
|
|
|
|
|
++ test-compile-curb
|
|
|
|
|
%- (slog (sell:neo !>(-:left)) ~)
|
|
|
|
|
%- (slog (sell:neo !>(-:right)) ~)
|
|
|
|
|
(expect-eq left right)
|
2024-04-11 22:06:26 +03:00
|
|
|
--
|
