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 1489


Ignore:
Timestamp:
2015-06-12T12:37:02-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-tests.lisp

    r1488 r1489  
    361361;; Calculate [F, U1*P1-1,U2*P2-1,...,UK*PK-1], where PLIST=[P1,P2,...,PK].
    362362(test saturation-extension
    363   "Saturation extension"
     363  "Saturation extension with 1 polynomial"
    364364  (let* ((F-str "[x^3,x^2*y]")
    365365         (F (cdr (string->poly F-str '(x y))))
    … …  
    370370    (is (every #'poly-equal-no-sugar-p
    371371               (saturation-extension-1 ring F p)
     372               F-sat))
     373    (is (every #'poly-equal-no-sugar-p
     374               (saturation-extension ring F (list p))
    372375               F-sat))))
    373376
Note: See TracChangeset for help on using the changeset viewer.