Changeset 2639 for branches/f4grobner

Timestamp:

2015-06-20T14:45:49-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/5am-monom.lisp (modified) (1 diff)

branches/f4grobner/5am-monom.lisp

@@ -170 +170 @@
     (is-false (funcall elim-order-2 p q))))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;        POLY class tests
-;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(def-fixture poly-context ()
-  (let ((p (make-instance 'poly))
-        (q (make-instance 'poly :order #'grlex>)))
-    (dolist (x '( (2 . 22)  (4 . 44) (5 . 55)    ))
-      (insert-item p (make-instance 'term :exponents (list (car x)) :coeff (cdr x))))
-    (dolist (x '( (0 . 11)  (3 . 33) (4 . -44)  (7 . 77) ))
-      (insert-item q (make-instance 'term :exponents (list (car x)) :coeff (cdr x))))
-    (&body)))
-
-
-(test poly-add
-  "Polynomial addition"
-  (with-fixture poly-context ()
-    (print p)(print q)
-    (print (add-to p q))
-    (print p)(print q)
-  ))
-
-(test poly-subtract
-  "Polynomial subtraction"
-  (with-fixture poly-context ()
-    (print p)(print q)
-    (print (subtract-from p q))
-    (print p)(print q)
-  ))
-
 (run! 'monom-suite)
 (format t "All tests done!~%")