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.

Ignore:
Timestamp:
2015-06-21T10:02:53-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

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

    r2830 r2840  
    109109                    (m*n (make-instance 'term  :dimension 3 :exponents '(5 7 9) :coeff 72))
    110110                    (n/m (make-instance 'term  :dimension 3 :exponents '(3 3 3) :coeff 2))
    111                     (m-tensor-n (make-instance 'term  :exponents '(1 2 3 4 5 6) :coeff 72)))
     111                    (m-tensor-n (make-instance 'term  :exponents '(1 2 3 4 5 6) :coeff 72))
     112                    (m-uminus (make-instance 'term  :dimension 3 :exponents '(1 2 3) :coeff -6)))
    112113    (&body)))
    113114
     
    138139    (is (r-equalp (multiply-by m n) m*n)))
    139140  (with-fixture term-context ()
    140     (is (r-equalp (divide-by n m) n/m))))
     141    (is (r-equalp (divide-by n m) n/m)))
     142  (with-fixture term-context ()
     143    (is (r-equalp (unary-minus m) m-uminus))))
    141144
    142145
Note: See TracChangeset for help on using the changeset viewer.