mirror of
https://github.com/urbit/shrub.git
synced 2024-12-24 03:14:30 +03:00
tests: adds +fitz aura compatibility tests
This commit is contained in:
parent
b031f9e78d
commit
e5ed5135be
41
tests/sys/hoon/nest.hoon
Normal file
41
tests/sys/hoon/nest.hoon
Normal file
@ -0,0 +1,41 @@
|
||||
/+ *test
|
||||
|%
|
||||
++ test-fitz
|
||||
;: weld
|
||||
%+ expect-eq
|
||||
!> %.y
|
||||
!> (fitz ~. ~.tas)
|
||||
::
|
||||
%+ expect-eq
|
||||
!> %.y
|
||||
!> (fitz ~.ud ~.)
|
||||
::
|
||||
%+ expect-eq
|
||||
!> %.n
|
||||
!> (fitz ~.p ~.q)
|
||||
::
|
||||
%+ expect-eq
|
||||
!> %.n
|
||||
!> (fitz ~.ux ~.ud)
|
||||
::
|
||||
%+ expect-eq
|
||||
!> %.y
|
||||
!> (fitz ~.tas ~.ta)
|
||||
::
|
||||
%+ expect-eq
|
||||
!> %.n
|
||||
!> (fitz 'uvD' 'uvE')
|
||||
::
|
||||
%+ expect-eq
|
||||
!> %.y
|
||||
!> (fitz 'uvE' 'uvD')
|
||||
::
|
||||
%+ expect-eq
|
||||
!> %.n
|
||||
!> (fitz 'AD' 'CB')
|
||||
::
|
||||
%+ expect-eq
|
||||
!> %.n
|
||||
!> (fitz 'AC' 'CB')
|
||||
==
|
||||
--
|
Loading…
Reference in New Issue
Block a user