055queue.test

(test "enq works"
  :valueof (let q (queue)
             (enq 1 q)
             (enq 2 q)
             (as list q))
  :should be '(1 2))

(test "enq returns the elem being enqueued"
  :valueof (enq 3 (queue))
  :should be 3)

(test "len works on queues"
  :valueof (len+queue '(1 2 3 4))
  :should be 4)

(test "empty? works on queues"
  :valueof (empty? (queue))
  :should be_true)

(test "empty? works on queues - 2"
  :valueof (let q (queue)
             (enq 1 q)
             (empty? q))
  :should be_false)

(test "deq works"
  :valueof (let q (queue '(1 2 3))
             (enq 4 q)
             (enq 5 q)
             deq.q)
  :should be 1)

(test "queue maintains length"
  :valueof (let q (queue '(1 2 3))
             (enq 4 q)
             (enq 5 q)
             (deq q)
             len.q)
  :should be 4)

(test "equality works on queues"
  :valueof ((queue '(1 2 3)) = (queue '(1 2 3)))
  :should be_true)