2005-03-28 23:45:13 -05:00
|
|
|
IN: temporary
|
2005-08-23 15:50:32 -04:00
|
|
|
USING: kernel math namespaces queues sequences test ;
|
2005-02-25 18:11:10 -05:00
|
|
|
|
2005-08-23 15:50:32 -04:00
|
|
|
<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
|
