urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-15 04:22:48 +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 ++ unqueue
|= [queue=(qeu @) test=(list @)] |= [queue=(qeu @) test=(list @)]
^- tang
%- zing %- zing
|- ^- (list tang) |- ^- (list tang)
?~ test ~ ?~ test ~
@ -31,20 +32,20 @@
++ test-descending-sorted-list ^- tang ++ test-descending-sorted-list ^- tang
:: ::
=+ queue=(~(gas to `(qeu @)`~) descending) =+ queue=(~(gas to `(qeu @)`~) descending)
;:(welp (unqueue [queue descending])) (unqueue [queue descending])
:: ::
++ test-ascending-sorted-list ^- tang ++ test-ascending-sorted-list ^- tang
:: ::
=+ queue=(~(gas to `(qeu @)`~) ascending) =+ queue=(~(gas to `(qeu @)`~) ascending)
;:(welp (unqueue [queue ascending])) (unqueue [queue ascending])
:: ::
++ test-unsorted-list ^- tang ++ test-unsorted-list ^- tang
:: ::
=+ queue=(~(gas to `(qeu @)`~) unsorted) =+ queue=(~(gas to `(qeu @)`~) unsorted)
;:(welp (unqueue [queue unsorted])) (unqueue [queue unsorted])
:: ::
++ test-duplicates-list ^- tang ++ test-duplicates-list ^- tang
:: ::
=+ queue=(~(gas to `(qeu @)`~) duplicates) =+ queue=(~(gas to `(qeu @)`~) duplicates)
;:(welp (unqueue [queue duplicates])) (unqueue [queue duplicates])
-- --