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 1183 for branches


Ignore:
Timestamp:
2015-06-10T20:44:03-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-tests.lisp

    r1175 r1183  
    217217(test division
    218218  "Division in polynomial ring"
    219   (let ((f (string->poly "x^2" '(x y)))
    220         (fl (string->poly "[x+y,x-2*y]" '(x y)))
    221         (ring *ring-of-integers*))
    222     (is-true (print (normal-form ring f fl)))))
     219  (let* ((f (string->poly "x^2" '(x y)))
     220         (fl (cdr (string->poly "[x+y,x-2*y]" '(x y))))
     221         (ring *ring-of-integers*)
     222         (order #'lex>)
     223         (ring-and-order (make-ring-and-order :ring ring :order order)))
     224    (is-true (equalp (print (poly->alist (normal-form ring-and-order f fl)))
     225                     '(((0 2) . 1))))))
    223226
    224227(run! 'ngrobner-suite)
Note: See TracChangeset for help on using the changeset viewer.