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 885


Ignore:
Timestamp:
2015-06-09T12:09:15-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-tests.lisp

    r867 r885  
    8080(test monom
    8181  "monom"
    82   (is (equalp (monom-exponents (make-monom :dimension 3)) #(0 0 0)) "Trivial monomial is a vector of 0's")
    83   (is (equalp (monom-exponents (make-monom :initial-exponents '(1 2 3))) #(1 2 3)) "Monomial with powers 1,2,3")
     82  (is (every #'= (make-monom :dimension 3) '(0 0 0)) "Trivial monomial is a vector of 0's")
     83  (is (every #'= (make-monom :initial-exponents '(1 2 3)) '(1 2 3)) "Monomial with powers 1,2,3")
    8484  (let ((p (make-monom :initial-exponents '(1 2 3))))
    85     (is (equalp (monom-map (lambda (x) x) p)) #(1 2 3))))
     85    (is (every #'= (monom-map (lambda (x) x) p) '(1 2 3)))))
    8686
    8787 
Note: See TracChangeset for help on using the changeset viewer.