diff --git a/ansi-tests/and.lsp b/ansi-tests/and.lsp new file mode 100644 index 0000000000000000000000000000000000000000..83623fd1f3bd64823157adad84e309daf9551485 --- /dev/null +++ b/ansi-tests/and.lsp @@ -0,0 +1,42 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Fri Oct 18 07:23:48 2002 +;;;; Contains: Tests for AND + +(in-package :cl-test) + +(deftest and.1 + (and) + t) + +(deftest and.2 + (and nil) + nil) + +(deftest and.3 + (and 'a) + a) + +(deftest and.4 + (and (values 'a 'b 'c)) + a b c) + +(deftest and.5 (and (values))) + +(deftest and.6 + (and (values t nil) 'a) + a) + +(deftest and.7 + (and nil (values 'a 'b 'c)) + nil) + +(deftest and.8 + (let ((x 0)) + (values (and nil (incf x)) + x)) + nil 0) + +(deftest and.9 + (and (values 1 nil) (values nil 2)) + nil 2) diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp index 73e0ea86f060ef7e5b53d5d0fc72b1b2eb05184e..204b596e729a020aab921334c332d968750dc67d 100644 --- a/ansi-tests/gclload2.lsp +++ b/ansi-tests/gclload2.lsp @@ -10,6 +10,8 @@ ;;; Tests of data and control flow (load "places.lsp") + +(load "and.lsp") (load "block.lsp") (load "call-arguments-limit.lsp") (load "catch.lsp") @@ -39,6 +41,7 @@ (load "not-and-null.lsp") (load "notany.lsp") (load "notevery.lsp") +(load "or.lsp") (load "progv.lsp") (load "some.lsp") (load "t.lsp") diff --git a/ansi-tests/or.lsp b/ansi-tests/or.lsp new file mode 100644 index 0000000000000000000000000000000000000000..4b7d746226d9cf8f2878a691d7eed0a5719c7e4e --- /dev/null +++ b/ansi-tests/or.lsp @@ -0,0 +1,48 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Fri Oct 18 07:29:27 2002 +;;;; Contains: Tests of OR + +(in-package :cl-test) + +(deftest or.1 + (or) + nil) + +(deftest or.2 + (or nil) + nil) + +(deftest or.3 + (or 'a) + a) + +(deftest or.4 + (or (values 'a 'b 'c)) + a b c) + +(deftest or.5 (or (values))) + +(deftest or.6 + (or (values t nil) 'a) + t) + +(deftest or.7 + (or nil (values 'a 'b 'c)) + a b c) + +(deftest or.8 + (let ((x 0)) + (values (or t (incf x)) + x)) + t 0) + +(deftest or.9 + (or (values nil 1 2) (values 1 nil 2)) + 1 nil 2) + + + + + +