commit c25810fed503c37a1a9fb12f338b0aa1dd94af4b parent 05222c00c4cad591bfc23cd9206edd33dafae2c1 Author: Georges Dupéron <jahvascriptmaniac+github@free.fr> Date: Sat, 8 Jan 2011 22:52:53 +0100 Infrastructure pour les tests d'équivalence eval / mini-meval / squash-lisp-1 / squash-lisp-2 / squash-lisp-3 Diffstat:
| A | lisp/equiv-tests.lisp | | | 21 | +++++++++++++++++++++ |
| M | lisp/main.lisp | | | 4 | ++-- |
2 files changed, 23 insertions(+), 2 deletions(-)
diff --git a/lisp/equiv-tests.lisp b/lisp/equiv-tests.lisp @@ -0,0 +1,21 @@ +(require 'squash-lisp "squash-lisp") +(require 'mini-meval "mini-meval") + +(defun test-expr-in-all (expr) + (let ((res-eval (eval expr)) + (sql nil)) + (unless (equalp res-eval (mini-meval expr)) + (return-from test-expr-in-all "mini-meval differs from-eval")) + (setq sql (squash-lisp-1 expr)) + (unless (squash-lisp-1-check sql) + (return-from test-expr-in-all "squash-lisp-1-check failed")) + (unless (equalp res-eval (eval (squash-lisp-1-wrap sql))) + (return-from test-expr-in-all "squash-lisp-1 differs from-eval")) + ;; (setq sql (squash-lisp-2 (squash-lisp-1 expr))) + ;; (unless (squash-lisp-2-check sql) + ;; (return-from test-expr-in-all "squash-lisp-2-check failed")) + ;; (unless (equalp res-eval (eval (squash-lisp-2-wrap sql))) + ;; (return-from test-expr-in-all "squash-lisp-2 differs from-eval")) + t)) + +(provide 'equiv-tests) diff --git a/lisp/main.lisp b/lisp/main.lisp @@ -9,5 +9,6 @@ (load "match") (load "mini-meval") (load "squash-lisp") +(load "equiv-tests") -(provide 'main) -\ No newline at end of file +(provide 'main)