mirror of
https://github.com/urbit/shrub.git
synced 2024-11-24 04:58:08 +03:00
17 lines
430 B
Plaintext
17 lines
430 B
Plaintext
/+ *test
|
|
|%
|
|
++ hastuc-dibtux [~hastuc-dibtux 15 22]
|
|
++ clay-x [%c %x %ud 3]
|
|
++ test-en-path
|
|
%+ expect-eq
|
|
!>(`path`/cx/~hastuc-dibtux/base/3/sys/hoon/hoon)
|
|
!> %- en-path:balk
|
|
[hastuc-dibtux clay-x /base/sys/hoon/hoon]
|
|
++ test-de-path
|
|
=/ bal=balk
|
|
(de-path:balk 15 22 /cx/~hastuc-dibtux/base/3/sys/hoon/hoon)
|
|
%+ expect-eq !>(bal)
|
|
!> ^- balk
|
|
[hastuc-dibtux clay-x /base/sys/hoon/hoon]
|
|
--
|