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 2308


Ignore:
Timestamp:
2015-06-18T19:25:38-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-monom.lisp

    r2307 r2308  
    5252(in-suite monom-suite)
    5353
    54 (def-fixture monom-context (form)
     54(def-fixture monom-context ()
    5555  (let ((z (make-instance 'monom  :dimension 3))
    5656        (m (make-instance 'monom  :dimension 3 :exponents '(1 2 3)))
    … …  
    5959        (n/m (make-instance 'monom  :dimension 3 :exponents '(3 3 3)))
    6060        (m-tensor-n (make-instance 'monom  :exponents '(1 2 3 4 5 6))))
    61     form))
     61    (&body)))
    6262
    6363(def-fixture foo (&body forms) (moo bar forms))
    … …  
    6565(test monom-basics
    6666  "Monom basics"
    67   ;;(is-true (print (macroexpand `(def-fixture foo (&body forms) (moo bar forms)))))
    68   ;;(is-true (print (macroexpand `(with-fixture foo ((baz boo))))))
    69   (is-true (print (macroexpand '(with-fixture monom-context ((= (r-dimension m) 3))))))
    70   )
     67  (with-fixture monom-context ()
     68    (is-true (= (r-dimension m) 3))))
     69
    7170
    7271
Note: See TracChangeset for help on using the changeset viewer.