13 lines
300 B
Factor
13 lines
300 B
Factor
IN: temporary
|
|
USING: kernel math namespaces queues sequences test ;
|
|
|
|
<queue> "queue" set
|
|
|
|
[ t ] [ "queue" get queue-empty? ] unit-test
|
|
|
|
[ ] [ [ 1 2 3 4 5 ] [ "queue" get enque ] each ] unit-test
|
|
|
|
[ { 1 2 3 4 5 } ] [ 5 [ drop "queue" get deque ] map ] unit-test
|
|
|
|
[ "queue" get deque ] unit-test-fails
|