Changeset 2306 for branches/f4grobner

Timestamp:

2015-06-18T18:10:45-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/5am-monom.lisp (modified) (1 diff)

branches/f4grobner/5am-monom.lisp

@@ -52 +52 @@
 (in-suite monom-suite)
 
-(def-fixture monom-context (body)
-  (let ((z (make-instance 'monom  :dimension 3))
-         (m (make-instance 'monom  :dimension 3 :exponents '(1 2 3)))
-         (n (make-instance 'monom  :dimension 3 :exponents '(4 5 6)))
-         (m*n (make-instance 'monom  :dimension 3 :exponents '(5 7 9)))
-         (n/m (make-instance 'monom  :dimension 3 :exponents '(3 3 3)))
-         (m-tensor-n (make-instance 'monom  :exponents '(1 2 3 4 5 6))))
-    body))
+(def-fixture monom-context ()
+  `(let ((z (make-instance 'monom  :dimension 3))
+        (m (make-instance 'monom  :dimension 3 :exponents '(1 2 3)))
+        (n (make-instance 'monom  :dimension 3 :exponents '(4 5 6)))
+        (m*n (make-instance 'monom  :dimension 3 :exponents '(5 7 9)))
+        (n/m (make-instance 'monom  :dimension 3 :exponents '(3 3 3)))
+        (m-tensor-n (make-instance 'monom  :exponents '(1 2 3 4 5 6))))
+     ,&body))
 
 (test monom-basics
-  "Monom basic ops"
-  (with-fixture monom-context
-      (is (= (r-dimension m) 3))))
+  "Monom basics"
+  (is-true (print (macroexpand '(with-fixture monom-context (m)
+                                   (= (r-dimension m) 3))))))
 
 #|
+
 (test monom
   "monom"