Changeset 832
- Timestamp:
- 2015-06-09T08:11:20-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-tests.lisp
r831 r832 146 146 (is (string= (infix-print '(* x y) nil) "X*Y")) 147 147 (is (string= (infix-print '(* x (expt y 2)) nil) "X*(Y^2)"))) 148 149 (test infix 150 "Infix parser" 148 151 (is (equal '#I( x^2 + y^2 ) '(+ (expt x 2) (expt y 2)))) 149 152 (is (equal '#I( [ x, y ] ) '(:[ X Y)))
Note:
See TracChangeset
for help on using the changeset viewer.