Changeset 2840 for branches

Timestamp:

2015-06-21T10:02:53-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/5am-monom.lisp (modified) (2 diffs)

branches/f4grobner/5am-monom.lisp

@@ -109 +109 @@
                     (m*n (make-instance 'term  :dimension 3 :exponents '(5 7 9) :coeff 72))
                     (n/m (make-instance 'term  :dimension 3 :exponents '(3 3 3) :coeff 2))
-                    (m-tensor-n (make-instance 'term  :exponents '(1 2 3 4 5 6) :coeff 72)))
+                    (m-tensor-n (make-instance 'term  :exponents '(1 2 3 4 5 6) :coeff 72))
+                    (m-uminus (make-instance 'term  :dimension 3 :exponents '(1 2 3) :coeff -6)))
     (&body)))
 
@@ -138 +139 @@
     (is (r-equalp (multiply-by m n) m*n)))
   (with-fixture term-context ()
-    (is (r-equalp (divide-by n m) n/m))))
+    (is (r-equalp (divide-by n m) n/m)))
+  (with-fixture term-context ()
+    (is (r-equalp (unary-minus m) m-uminus))))