Changeset 3916
- Timestamp:
- 2016-05-29T20:53:39-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-pair-queue.lisp
r3915 r3916 49 49 50 50 (defpackage #:5am-pair-queue 51 (:use :cl :it.bese.fiveam :monom :polynomial ))51 (:use :cl :it.bese.fiveam :monom :polynomial :pair-queue)) 52 52 53 53 (in-package :5am-pair-queue) … … 58 58 (in-suite pair-queue-suite) 59 59 60 (def-fixture poly-context () 61 (let ((p (string->poly "11*x*y*z+13*x^2*y^3*z^4" '(x y z))) 62 (q (string->poly "5*x+7*y*z^2" '(x y z)))) 63 (&body))) 64 65 (test sugar-pair-key 66 "Pair key building" 67 (with-fixture poly-context () 68 (is (equalp (sugar-pair-key p q) nil)))) 60 69 61 70 (run! 'pair-queue-suite)
Note:
See TracChangeset
for help on using the changeset viewer.