From 0b296327dc88a38476a5896a0e705f0b2d1ee1c0 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 30 Apr 2005 12:46:27 +0000 Subject: [PATCH] Added some tests for WITH-COMPILATION-UNIT --- ansi-tests/load-system-construction.lsp | 1 + ansi-tests/with-compilation-unit.lsp | 48 +++++++++++++++++++++++++ 2 files changed, 49 insertions(+) create mode 100644 ansi-tests/with-compilation-unit.lsp diff --git a/ansi-tests/load-system-construction.lsp b/ansi-tests/load-system-construction.lsp index 62551216..d3395f23 100644 --- a/ansi-tests/load-system-construction.lsp +++ b/ansi-tests/load-system-construction.lsp @@ -7,5 +7,6 @@ (load "compile-file.lsp") (load "load.lsp") +(load "with-compilation-unit.lsp") diff --git a/ansi-tests/with-compilation-unit.lsp b/ansi-tests/with-compilation-unit.lsp new file mode 100644 index 00000000..7f4661ba --- /dev/null +++ b/ansi-tests/with-compilation-unit.lsp @@ -0,0 +1,48 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sat Apr 30 07:36:26 2005 +;;;; Contains: Tests of WITH-COMPILATION-UNIT + +;;; WITH-COMPILATION-UNIT doesn't have much in the way of standardized +;;; semantics, so there's not much to test. + +(in-package :cl-test) + +(deftest with-compilation-unit.1 + (with-compilation-unit ()) + nil) + +(deftest with-compilation-unit.2 + (with-compilation-unit () t) + t) + +(deftest with-compilation-unit.3 + (with-compilation-unit () (values))) + +(deftest with-compilation-unit.4 + (with-compilation-unit () (values 1 2 3 4 5)) + 1 2 3 4 5) + +(deftest with-compilation-unit.5 + (with-compilation-unit (:override nil) :foo) + :foo) + +(deftest with-compilation-unit.6 + (with-compilation-unit (:override t) (values 10 17)) + 10 17) + +(deftest with-compilation-unit.7 + (let ((x nil)) + (values + (block done + (with-compilation-unit + (:override nil) + (setq x 1) + (return-from done 2) + (setq x 2))) + x)) + 2 1) + + + + -- GitLab