From 1aecab9b695e661075a41b2bac554401af29d14b Mon Sep 17 00:00:00 2001 From: "Thomas M. Hermann" Date: Sun, 15 May 2016 14:04:11 -0500 Subject: [PATCH] Introduce example tests for expand-t-or-f. --- internal-test/example-tests.lisp | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/internal-test/example-tests.lisp b/internal-test/example-tests.lisp index af90682..75e2abc 100644 --- a/internal-test/example-tests.lisp +++ b/internal-test/example-tests.lisp @@ -52,6 +52,28 @@ (dotimes (i 5) (assert-equal i (my-sqrt (* i i)) i))) +;;; Expand true or false + +(defun my-less-than-function (arg1 arg2) + (< arg1 arg2)) + +(define-test expand-t-or-f-function + (let ((val 0)) + (assert-true (my-less-than-function (incf val) (incf val))) + (assert-eql 2 val) + (assert-true (my-less-than-function (incf val) (decf val))) + (assert-eql 2 val))) + +(defmacro my-less-than-macro (arg1 arg2) + `(< ,arg1 ,arg2)) + +(define-test expand-t-or-f-macro + (let ((val 0)) + (assert-true (my-less-than-macro (incf val) (incf val))) + (assert-eql 2 val) + (assert-true (my-less-than-macro (incf val) (decf val))) + (assert-eql 2 val))) + ;;; Macro (defmacro my-macro (arg1 arg2) -- 2.11.4.GIT