close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 3996


Ignore:
Timestamp:
2016-05-30T21:20:15-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-pair-queue.lisp

    r3978 r3996  
    6767  "Queue building"
    6868  (with-fixture poly-context ()
    69     (is (= (priority-queue-size queue) 2))))
     69    (is (= (queue-size queue) 1))))
    7070
    7171(test queue-access
    7272  "Queue access"
    7373  (with-fixture poly-context ()
    74     (let ((pair (priority-queue-remove queue)))
     74    (let ((pair (dequeue queue)))
    7575      (is (universal-equalp (critical-pair-first pair) p))
    7676      (is (universal-equalp (critical-pair-second pair) q)))))
Note: See TracChangeset for help on using the changeset viewer.