Changeset 4163
- Timestamp:
- 2016-06-03T00:09:27-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-pair-queue.lisp
r3996 r4163 61 61 (let* ((p (string->poly "11*x*y*z+13*x^2*y^3*z^4" '(x y z))) 62 62 (q (string->poly "5*x+7*y*z^2" '(x y z))) 63 (queue (make-critical-pair-queue :poly-list (list p q)))) 63 (r (string->poly "13*x^2*y+19*z" '(x y z))) 64 (queue (make-critical-pair-queue +normal-strategy+ (list p q r)))) 64 65 (&body))) 65 66 … … 67 68 "Queue building" 68 69 (with-fixture poly-context () 69 (is (= (queue-size queue) 1))))70 (is (= (queue-size queue) 3)))) 70 71 71 72 (test queue-access
Note:
See TracChangeset
for help on using the changeset viewer.