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 4163 for branches/f4grobner


Ignore:
Timestamp:
2016-06-03T00:09:27-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

    r3996 r4163  
    6161  (let* ((p (string->poly "11*x*y*z+13*x^2*y^3*z^4" '(x y z)))
    6262         (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))))
    6465    (&body)))
    6566
     
    6768  "Queue building"
    6869  (with-fixture poly-context ()
    69     (is (= (queue-size queue) 1))))
     70    (is (= (queue-size queue) 3))))
    7071
    7172(test queue-access
Note: See TracChangeset for help on using the changeset viewer.