mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 00:13:12 +03:00
39 lines
743 B
Plaintext
39 lines
743 B
Plaintext
/+ *test
|
|
|%
|
|
:: nock 6 should allow invalid formulas in unevaluated branches
|
|
::
|
|
++ test-conditional-skips
|
|
;: weld
|
|
%+ expect-eq
|
|
!> 43
|
|
!> .*(~ [%6 [%1 1] 0 [%1 43]])
|
|
::
|
|
%- expect-fail
|
|
|. .*(~ [%6 [%1 0] 0 [%1 43]])
|
|
::
|
|
%+ expect-eq
|
|
!> 42
|
|
!> .*(~ [%6 [%1 0] [%1 42] 0])
|
|
::
|
|
%- expect-fail
|
|
|. .*(~ [%6 [%1 1] [%1 42] 0])
|
|
::
|
|
%+ expect-eq
|
|
!> 42
|
|
!> .*(~ [%6 [%1 0] [%1 42] %1 43])
|
|
::
|
|
%+ expect-eq
|
|
!> 43
|
|
!> .*(~ [%6 [%1 1] [%1 42] %1 43])
|
|
::
|
|
%- expect-fail
|
|
|. .*(~ [%6 [%1 2] [%1 42] %1 43])
|
|
==
|
|
:: nock 9 should support axis 1
|
|
::
|
|
++ test-call-one
|
|
%+ expect-eq
|
|
!> 0
|
|
!> .*([3 0 1] [9 1 [0 1]])
|
|
--
|