Changeset 2302
- Timestamp:
- 2015-06-18T17:18:17-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r2301 r2302 52 52 (in-suite monom-suite) 53 53 54 (def-fixture "monom-context"(&body body)54 (def-fixture monom-context (&body body) 55 55 `(let ((z (make-instance 'monom :dimension 3)) 56 56 (m (make-instance 'monom :dimension 3 :exponents '(1 2 3))) … … 60 60 (m-tensor-n (make-instance 'monom :exponents '(1 2 3 4 5 6)))) 61 61 ,@body)) 62 63 (test monom-basics 64 "Monom basic ops" 65 (with-fixture monom-context 66 (is (= (r-dimension m) 3)))) 62 67 63 68 (test monom
Note:
See TracChangeset
for help on using the changeset viewer.