Changeset 693
- Timestamp:
- 2015-06-08T17:37:46-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-tests.lisp
r691 r693 142 142 (is (string= (infix-print '(+ x y) nil) "X+Y")) 143 143 (is (string= (infix-print '(expt x 3) nil) "X^3")) 144 (is (string= (infix-print '(+ 1 (expt x 3)) nil) "1+(X^3)"))) 144 (is (string= (infix-print '(+ 1 (expt x 3)) nil) "1+(X^3)")) 145 (is (string= (infix-print '(* x y) nil) "X*Y")) 146 (is (string= (infix-print '(* x (expt y 2)) nil) "X*(Y^2)"))) 147 148 (test infix 149 (is (equal '#I( x^2 + y^2 ) '(+ (expt x 2) (expt y 2)))) 150 (is (equal '#I( [ x, y ] ) '(:[ X Y)))) 145 151 146 152
Note:
See TracChangeset
for help on using the changeset viewer.