Changeset 607
- Timestamp:
- 2015-06-06T23:39:25-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-tests.lisp
r605 r607 114 114 (test priority-queue 115 115 "Priority queue" 116 (let ((q ( priority-queue:make-priority-queue)))117 (priority-queue ::priority-queue-insert q 7)118 (priority-queue ::priority-queue-insert q 8)119 (is (= (priority-queue ::priority-queue-size q) 3) "Note that there is always a dummy element in the queue.")120 (is (equalp (priority-queue ::priority-queue-heap q) #(0 7 8)))121 (is (= (priority-queue ::priority-queue-remove q) 7))122 (is (= (priority-queue ::priority-queue-remove q) 8))123 (is-true (priority-queue ::priority-queue-empty-p q))))116 (let ((q (make-priority-queue))) 117 (priority-queue-insert q 7) 118 (priority-queue-insert q 8) 119 (is (= (priority-queue-size q) 3) "Note that there is always a dummy element in the queue.") 120 (is (equalp (priority-queue-heap q) #(0 7 8))) 121 (is (= (priority-queue-remove q) 7)) 122 (is (= (priority-queue-remove q) 8)) 123 (is-true (priority-queue-empty-p q)))) 124 124 125 125
Note:
See TracChangeset
for help on using the changeset viewer.