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 3916


Ignore:
Timestamp:
2016-05-29T20:53:39-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

    r3915 r3916  
    4949
    5050(defpackage #:5am-pair-queue
    51   (:use :cl :it.bese.fiveam :monom :polynomial))
     51  (:use :cl :it.bese.fiveam :monom :polynomial :pair-queue))
    5252
    5353(in-package :5am-pair-queue)
    … …  
    5858(in-suite pair-queue-suite)
    5959
     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))))
    6069
    6170(run! 'pair-queue-suite)
Note: See TracChangeset for help on using the changeset viewer.