Commit 6335348a authored by pfdietz's avatar pfdietz

Add simple tests for eight environment functions

parent 5bc51396
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat Dec 11 22:15:54 2004
;;;; Contains: Tests of various string-returning functions from section 25
(in-package :cl-test)
(defmacro def-env-tests (fn-name)
(flet ((%name (suffix) (intern (concatenate 'string (symbol-name fn-name) suffix)
(find-package :cl-test))))
`(progn
(deftest ,(%name ".1")
(let ((x (,fn-name)))
(or (not x)
(notnot (stringp x))))
t)
(deftest ,(%name ".ERROR.1")
(signals-error (,fn-name nil) program-error)
t))))
(def-env-tests lisp-implementation-type)
(def-env-tests lisp-implementation-version)
(def-env-tests short-site-name)
(def-env-tests long-site-name)
(def-env-tests machine-instance)
(def-env-tests machine-type)
(def-env-tests machine-version)
(def-env-tests software-type)
(def-env-tests software-version)
......@@ -67,9 +67,10 @@
;;; Tests of the reader
(load "load-reader.lsp")
;;; Tests of system construction
;;; Tests of system construction, environment
(load "features.lsp")
(load "disassemble.lsp")
(load "environment-functions.lsp")
;;; Miscellaneous tests, mostly tests that failed in random testing
;;; on various implementations
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment