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 2302


Ignore:
Timestamp:
2015-06-18T17:18:17-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-monom.lisp

    r2301 r2302  
    5252(in-suite monom-suite)
    5353
    54 (def-fixture "monom-context" (&body body)
     54(def-fixture monom-context (&body body)
    5555    `(let ((z (make-instance 'monom  :dimension 3))
    5656        (m (make-instance 'monom  :dimension 3 :exponents '(1 2 3)))
    … …  
    6060        (m-tensor-n (make-instance 'monom  :exponents '(1 2 3 4 5 6))))
    6161       ,@body))
     62
     63(test monom-basics
     64  "Monom basic ops"
     65  (with-fixture monom-context
     66    (is (= (r-dimension m) 3))))
    6267
    6368(test monom
Note: See TracChangeset for help on using the changeset viewer.