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 3638


Ignore:
Timestamp:
2015-09-05T20:38:16-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-poly.lisp

    r3637 r3638  
    8787  "Polynomial addition"
    8888  (with-fixture poly-add-context () (is (universal-equalp (add-to p q) p+q)))
    89   (with-fixture poly-add-context () (is (universal-equalp (r+ p q) p+q)))
     89  (with-fixture poly-add-context () (is (universal-equalp (add p q) p+q)))
    9090  (with-fixture poly-add-context () (is (universal-equalp (subtract-from p q) p-q)))
    91   (with-fixture poly-add-context () (is (universal-equalp (r- p q) p-q)))
     91  (with-fixture poly-add-context () (is (universal-equalp (subtract p q) p-q)))
    9292  (with-fixture poly-add-context () (is (universal-equalp (unary-minus p) p-uminus)))
    9393  )
    … …  
    112112(test poly-multiply
    113113  "Polynomial multiplication"
    114   (with-fixture poly-multiply-context () (is (universal-equalp (r* p q) p*q)))
     114  (with-fixture poly-multiply-context () (is (universal-equalp (multiply p q) p*q)))
    115115  )
    116116
Note: See TracChangeset for help on using the changeset viewer.