urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-19 08:32:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

tests: add test to make sure subtree is being modified properly in +del-span

Browse Source
This commit is contained in:
Logan Allen 2021-05-05 16:07:08 -05:00
parent 915c548037
commit a25f8028f4
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkg/arvo/sys/zuse.hoon
View File

@ -5413,7 +5413,7 @@
?: ?&(?=(~ b) =(c 0)) ?: ?&(?=(~ b) =(c 0))
[0 ~] [0 ~]
=| f=[d=@ e=(list item)] =| f=[d=@ e=(list item)]
|- ^- [d=@ e=(list item)] |- ^+ f
?: ?|(?=(~ a) =(d.f c)) f ?: ?|(?=(~ a) =(d.f c)) f
=. f $(a l.a) =. f $(a l.a)
?: =(d.f c) f ?: =(d.f c) f

8
pkg/arvo/tests/sys/zuse/ordered-map.hoon
View File

@ -84,6 +84,14 @@
!> small-test-items !> small-test-items
!> (tab:atom-map a ~ 3) !> (tab:atom-map a ~ 3)
:: ::
++ test-ordered-map-tab-more-than-exist ^- tang
::
=/ a=(tree [@ud @tas]) (gas:atom-map ~ test-items)
::
%+ expect-eq
!> test-items
!> (tab:atom-map a [~ 0] 8)
::
++ test-ordered-map-pop ^- tang ++ test-ordered-map-pop ^- tang
:: ::
=/ a=(tree [@ud @tas]) (gas:atom-map ~ test-items) =/ a=(tree [@ud @tas]) (gas:atom-map ~ test-items)