From 9cabb942d4b8d060aa1220c11ce88ac58060e34c Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 21 May 2005 14:10:28 +0000 Subject: [PATCH] Add tests for IGNORE, IGNORABLE declarations --- ansi-tests/ignorable.lsp | 25 +++++++++++++++++++++++ ansi-tests/ignore.lsp | 30 ++++++++++++++++++++++++++++ ansi-tests/load-eval-and-compile.lsp | 3 +++ 3 files changed, 58 insertions(+) create mode 100644 ansi-tests/ignorable.lsp create mode 100644 ansi-tests/ignore.lsp diff --git a/ansi-tests/ignorable.lsp b/ansi-tests/ignorable.lsp new file mode 100644 index 00000000..08a3754e --- /dev/null +++ b/ansi-tests/ignorable.lsp @@ -0,0 +1,25 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sat May 21 08:16:27 2005 +;;;; Contains: Tests of the IGNORABLE declaration + +(in-package :cl-test) + +(deftest ignorable.1 + (let ((x 'foo)) (declare (ignorable x))) + nil) + +(deftest ignorable.2 + (let ((x 'foo)) (declare (ignorable x)) x) + foo) + +(deftest ignorable.3 + (flet ((%f () 'foo)) + (declare (ignorable (function %f)))) + nil) + +(deftest ignorable.4 + (flet ((%f () 'foo)) + (declare (ignorable (function %f))) + (%f)) + foo) diff --git a/ansi-tests/ignore.lsp b/ansi-tests/ignore.lsp new file mode 100644 index 00000000..1375fad3 --- /dev/null +++ b/ansi-tests/ignore.lsp @@ -0,0 +1,30 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sat May 21 07:59:24 2005 +;;;; Contains: Tests of the IGNORE declarations + +(in-package :cl-test) + +(deftest ignore.1 + (let ((x 'foo)) (declare (ignore x))) + nil) + +(deftest ignore.2 + (let ((x 'foo)) (declare (ignore x)) x) + foo) + +(deftest ignore.3 + (flet ((%f () 'foo)) + (declare (ignore (function %f)))) + nil) + +(deftest ignore.4 + (flet ((%f () 'foo)) + (declare (ignore (function %f))) + (%f)) + foo) + + + + + diff --git a/ansi-tests/load-eval-and-compile.lsp b/ansi-tests/load-eval-and-compile.lsp index aa9dc08d..19430117 100644 --- a/ansi-tests/load-eval-and-compile.lsp +++ b/ansi-tests/load-eval-and-compile.lsp @@ -14,3 +14,6 @@ (load "proclaim.lsp") (load "declaim.lsp") (load "locally.lsp") +(load "ignore.lsp") +(load "ignorable.lsp") + -- GitLab