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 3464


Ignore:
Timestamp:
2015-09-05T09:50:37-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

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

    r3463 r3464  
    7676    (is (= (monom-sugar m) 6))
    7777    (is (equalp  (monom->list (make-instance 'monom  :dimension 3)) '(0 0 0)) "Trivial monomial is a vector of 0's")
    78     (is (monom-equalp (r* m n) m*n))
    79     (is (monom-equalp (r/ n m) n/m))
     78    (is (monom-equalp (monom-multiply-2 m n) m*n))
     79    (is (monom-equalp (monom-divide-by n m) n/m))
    8080    (is (monom-equalp (right-tensor-product-by m n) m-tensor-n))
    8181    (signals
     
    9292    )
    9393  (with-fixture monom-context ()
    94     (is (monom-equalp (multiply-by m n) m*n)))
     94    (is (monom-equalp (monom-multiply-by m n) m*n)))
    9595  (with-fixture monom-context ()
    96     (is (monom-equalp (divide-by n m) n/m))))
     96    (is (monom-equalp (monom-divide-by n m) n/m))))
    9797 
    9898(run! 'monom-suite)
Note: See TracChangeset for help on using the changeset viewer.