Changeset 3102
- Timestamp:
- 2015-06-21T23:40:24-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-poly.lisp
r3098 r3102 125 125 (is (r-equalp (standard-extension plist) plist-st-ext)))) 126 126 127 (test poly-standard-extension-1 128 "Standard extension 1" 129 (let* ((p (alist->poly '( ((0) . 1) ((1) . 2)))) 130 (q (alist->poly '( ((0) . 1) ((2) . 3)))) 131 (plist (list p q)) 132 (p-ext (alist->poly '( ((0 0 0) . -1) ((1 0 0) . 1) ((1 0 1) . 2)))) 133 (q-ext (alist->poly '( ((0 0 0) . -1) ((0 1 0) . 1) ((0 1 2) . 3)))) 134 (plist-st-ext (list p-ext q-ext))) 135 (is (r-equalp (standard-extension plist) plist-st-ext)))) 136 127 137 (run! 'poly-suite) 128 138 (format t "All tests done!~%")
Note:
See TracChangeset
for help on using the changeset viewer.