Changeset 602
- Timestamp:
- 2015-06-06T23:35:39-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-tests.lisp
r601 r602 42 42 43 43 (defpackage #:ngrobner-tests 44 (:use :cl :it.bese.fiveam :ngrobner :priority-queue :monomial :utils :order ))44 (:use :cl :it.bese.fiveam :ngrobner :priority-queue :monomial :utils :order :ring)) 45 45 46 46 (in-package #:ngrobner-tests) … … 94 94 (test term 95 95 "term" 96 (let* ((m1 ( ngrobner:make-monom 3 :initial-contents '(1 2 3)))97 (m2 ( ngrobner:make-monom 3 :initial-contents '(3 5 2)))98 (m3 ( ngrobner::monom-mul m1 m2))99 (t1 ( ngrobner:make-term m1 7))100 (t2 ( ngrobner:make-term m2 9))101 (t3 ( ngrobner:make-term m3 (* 7 9))))102 (is (equalp ( ngrobner::term-mul ngrobner::*ring-of-integers* t1 t2) t3))))96 (let* ((m1 (make-monom 3 :initial-contents '(1 2 3))) 97 (m2 (make-monom 3 :initial-contents '(3 5 2))) 98 (m3 (monom-mul m1 m2)) 99 (t1 (make-term m1 7)) 100 (t2 (make-term m2 9)) 101 (t3 (make-term m3 (* 7 9)))) 102 (is (equalp (term-mul *ring-of-integers* t1 t2) t3)))) 103 103 104 104 (test coerce-to-infix
Note:
See TracChangeset
for help on using the changeset viewer.