Commit 5e1769a4 authored by pfdietz's avatar pfdietz

Some tests for APROPOS

parent d65009d6
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sun Dec 12 16:17:47 2004
;;;; Contains: Tests for APROPOS
(in-package :cl-test)
(deftest apropos.1
(loop for n from 10
for x = (coerce (loop repeat n collect (random-from-seq +standard-chars+)) 'string)
unless (apropos-list x)
return (with-output-to-string (*standard-output*)
(assert (null (multiple-value-list (apropos x))))))
"")
(deftest apropos.2
(let ((s (with-output-to-string
(*standard-output*)
(assert (null (multiple-value-list (apropos "CAR")))))))
(notnot (search "CAR" s :test #'string-equal)))
t)
(deftest apropos.3
(let ((s (with-output-to-string
(*standard-output*)
(assert (null (multiple-value-list (apropos "CAR" (find-package "CL"))))))))
(notnot (search "CAR" s :test #'string-equal)))
t)
(deftest apropos.4
(let ((result nil))
(do-special-strings
(s "CAR" t)
(setq result (with-output-to-string
(*standard-output*)
(assert (null (multiple-value-list (apropos s))))))
(assert (search "CAR" result :test #'string-equal))))
t)
(deftest apropos.5
(let ((result nil)
(pkg (find-package "COMMON-LISP")))
(do-special-strings
(s "APROPOS" t)
(setq result (with-output-to-string
(*standard-output*)
(assert (null (multiple-value-list (apropos s pkg))))))
(assert (search "APROPOS" result :test #'string-equal))))
t)
;;; Error tests
(deftest apropos.error.1
(signals-error (apropos) program-error)
t)
(deftest apropos.error.2
(signals-error (apropos "SJLJALKSJDKLJASKLDJKLAJDLKJA" (find-package "CL") nil) program-error)
t)
......@@ -68,6 +68,7 @@
(load "load-reader.lsp")
;;; Tests of system construction, environment
(load "apropos.lsp")
(load "describe.lsp")
(load "disassemble.lsp")
(load "environment-functions.lsp")
......
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