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 2614


Ignore:
Timestamp:
2015-06-20T01:48:42-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/5am-monom.lisp

    r2613 r2614  
    185185
    186186
    187 (test poly
    188   "Polynomial"
    189   (let ((p (make-instance 'poly))
    190         (q (make-instance 'poly :order #'grlex>)))
    191     (dotimes (i 5)
    192       (insert-item p (make-instance 'term :exponents (list (* 3 i) i) :coeff (1+ (* 3 i))))
    193       (insert-item q (make-instance 'term :exponents (list (+ (* 3 i) 2) i) :coeff (1- (* 3 i)))))
     187(test poly-add
     188  "Polynomial addition"
     189  (with-fixture poly-context ()
    194190    (is-true (print p))
    195191    (is-true (print q))
     
    198194  ))
    199195
     196(test poly-subtract
     197  "Polynomial subtraction"
     198  (with-fixture poly-context ()
     199    (is-true (print p))
     200    (is-true (print q))
     201    (subtract-from p q)
     202    (is-true (print p))
     203  ))
     204
    200205(run! 'monom-suite)
    201206(format t "All tests done!~%")
Note: See TracChangeset for help on using the changeset viewer.