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 694


Ignore:
Timestamp:
2015-06-08T17:38:16-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-tests.lisp

    r693 r694  
    140140
    141141(test infix-print
     142  "Infix printer"
    142143  (is (string= (infix-print '(+ x y) nil) "X+Y"))
    143144  (is (string= (infix-print '(expt x 3) nil) "X^3"))
    … …  
    147148
    148149(test infix
     150  "Infix parser"
    149151  (is (equal '#I( x^2 + y^2 ) '(+ (expt x 2) (expt y 2))))
    150152  (is (equal '#I( [ x, y ] ) '(:[ X Y))))
Note: See TracChangeset for help on using the changeset viewer.