Test/markdown

README.md

@@ -6,5 +6,24 @@
     '(((SYMBOL EXPONENT) MULTIPLIER) ((SYMBOL EXPONENT) MULTIPLIER))
 
 * For example this:
-    '(((x 2) 5) ((((x y) (2 3)) 5))) \= 5x^2 + 5x^2y^3
+    '(((x 2) 5) ((((x y) (2 3)) 5))) = 5x^2 + 5x^2y^3
+
+* The functions that exist are poly+ poly- poly*
+
+Below you can see an example of the test output:
+    [25]> (load "tests.cl")
+    ;; Loading file tests.cl ...
+    ;;  Loading file poly.cl ...
+    ;;  Loaded file poly.cl
+    ;; Loaded file tests.cl
+    T
+    [26]> (run-tests)
+    5x^2 + 3x^2 ... passed - simple addition
+    5x^2+6y^2 + 3x^2+3y^2+4z^3 ... passed - complex addition
+    5x^2 - 3x^2 ... passed - simple subtraction
+    5x^2+6y^2 - 3x^2+3y^2+4z^3 ... passed - complex subtraction
+    5x^2 * 5x^2 ... passed - simple multiplication
+    (5x^2+y^2) * (3x + y) ... passed - complex multiplication
+    T
+    [27]>
 

tests.cl

@@ -31,4 +31,4 @@
         '(((X 3) 15) (((X Y) (2 1)) 5) (((Y X) (2 1)) 3) ((Y 3) 1)))
     (format t "(5x^2+y^2) * (3x + y) ... passed - complex multiplication~%")
     (format t "(5x^2+y^2) * (3x + y) ... failed - complex multiplication~%"))
-  )
+  T)