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 381 for branches/f4grobner


Ignore:
Timestamp:
2015-06-06T18:03:48-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/5am-tests.lisp

    r368 r381  
    8989
    9090(test order-mk
     91  "order factories"
    9192  (let ((p (make-monom 3 :initial-contents '(1 2 3)))
    9293        (q (make-monom 3 :initial-contents '(4 5 6))))
     
    9495    (is-false (funcall (ngrobner:elimination-order 2) p q))))
    9596
     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
    96108(run! 'ngrobner-suite)
    97109(format t "All tests done!~%")
Note: See TracChangeset for help on using the changeset viewer.