Skip to content
Snippets Groups Projects
Commit 2c3937f7 authored by pfdietz's avatar pfdietz
Browse files

Added forgotten tests for REMPROP.

parent e7d8605d
No related branches found
No related tags found
No related merge requests found
...@@ -12,3 +12,5 @@ ...@@ -12,3 +12,5 @@
(load "symbol-name.lsp") (load "symbol-name.lsp")
(load "special-operator-p.lsp") (load "special-operator-p.lsp")
(load "set.lsp") (load "set.lsp")
(load "remprop.lsp")
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Mon Jul 12 18:25:53 2004
;;;; Contains: Tests for REMPROP
(in-package :cl-test)
(deftest remprop.1
(let ((sym (gensym)))
(values
(symbol-plist sym)
(multiple-value-list (remprop sym :foo))
(symbol-plist sym)))
nil (nil) nil)
(deftest remprop.2
(let ((sym (gensym)))
(values
(symbol-plist sym)
(copy-list (setf (symbol-plist sym) '(:foo 0)))
(multiple-value-list (notnot-mv (remprop sym :foo)))
(symbol-plist sym)))
nil (:foo 0) (t) nil)
(deftest remprop.3
(let ((sym (gensym)))
(values
(symbol-plist sym)
(copy-list (setf (symbol-plist sym) (list :bar 1 :foo 0 :baz 2)))
(multiple-value-list (notnot-mv (remprop sym :foo)))
(copy-list (symbol-plist sym))
(multiple-value-list (notnot-mv (remprop sym :foo)))
(symbol-plist sym)))
nil
(:bar 1 :foo 0 :baz 2)
(t)
(:bar 1 :baz 2)
(nil)
(:bar 1 :baz 2))
(deftest remprop.4
(let ((sym (gensym)))
(values
(symbol-plist sym)
(copy-list (setf (symbol-plist sym) (list :bar 1 :foo 0 :baz 2 :foo 3)))
(multiple-value-list (notnot-mv (remprop sym :foo)))
(copy-list (symbol-plist sym))
(multiple-value-list (notnot-mv (remprop sym :foo)))
(symbol-plist sym)))
nil
(:bar 1 :foo 0 :baz 2 :foo 3)
(t)
(:bar 1 :baz 2 :foo 3)
(t)
(:bar 1 :baz 2))
;;; Error tests
(deftest remprop.error.1
(signals-error (remprop) program-error)
t)
(deftest remprop.error.2
(signals-error (remprop (gensym)) program-error)
t)
(deftest remprop.error.3
(signals-error (remprop (gensym) nil nil) program-error)
t)
(deftest remprop.error.4
(loop for x in *mini-universe*
unless (or (symbolp x)
(eval `(signals-error (remprop ',x nil) type-error)))
collect x)
nil)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment