urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 20:02:51 +03:00
Code Issues Packages Projects Releases Wiki Activity

removes unnecessary welps

Browse Source
This commit is contained in:
Jose L. Bellod Cisneros 2019-03-31 07:16:36 +02:00
parent 697a69ff4b
commit 346aa84536
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/sys/hoon/qeu.hoon
View File

@ -16,6 +16,7 @@
|%
++ unqueue
|= [queue=(qeu @) test=(list @)]
^- tang
%- zing
|- ^- (list tang)
?~ test ~
@ -31,20 +32,20 @@
++ test-descending-sorted-list ^- tang
::
=+ queue=(~(gas to `(qeu @)`~) descending)
;:(welp (unqueue [queue descending]))
(unqueue [queue descending])
::
++ test-ascending-sorted-list ^- tang
::
=+ queue=(~(gas to `(qeu @)`~) ascending)
;:(welp (unqueue [queue ascending]))
(unqueue [queue ascending])
::
++ test-unsorted-list ^- tang
::
=+ queue=(~(gas to `(qeu @)`~) unsorted)
;:(welp (unqueue [queue unsorted]))
(unqueue [queue unsorted])
::
++ test-duplicates-list ^- tang
::
=+ queue=(~(gas to `(qeu @)`~) duplicates)
;:(welp (unqueue [queue duplicates]))
(unqueue [queue duplicates])
--