Changeset 381
- Timestamp:
- 2015-06-06T18:03:48-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-tests.lisp
r368 r381 89 89 90 90 (test order-mk 91 "order factories" 91 92 (let ((p (make-monom 3 :initial-contents '(1 2 3))) 92 93 (q (make-monom 3 :initial-contents '(4 5 6)))) … … 94 95 (is-false (funcall (ngrobner:elimination-order 2) p q)))) 95 96 97 (test term 98 "term" 99 (let ((t1 (ngrobner:make-term (ngrobner:make-monom 3 :initial-contents '(1 2 3)) 7)) 100 (t2 (ngrobner:make-term (ngrobner:make-monom 3 :initial-contents '(1 2 3)) 9)) 101 (t3 (ngrobner:make-term (ngrobner:make-monom 3 :initial-contents '(2 4 6)) (* 7 9)))) 102 (term-mul t1 t2))) 103 104 (test coerce-to-infix 105 "conversion" 106 ) 107 96 108 (run! 'ngrobner-suite) 97 109 (format t "All tests done!~%")
Note:
See TracChangeset
for help on using the changeset viewer.