- Timestamp:
- 2015-06-10T09:29:25-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-tests.lisp
r1070 r1076 196 196 (test poly-reader 197 197 "Polynomial reader" 198 (is (equalp ( poly-reader "x^2+y^2"'(x y))198 (is (equalp (with-input-from-string (s "x^2+y^2") (poly-reader s '(x y)) 199 199 (make-poly-from-termlist (list (make-term (make-monom :initial-exponents '(2 0)) 1) 200 200 (make-term (make-monom :initial-exponents '(0 2)) 1)))))
Note:
See TracChangeset
for help on using the changeset viewer.