Commit c4b10d9f authored by Philipp Marek's avatar Philipp Marek

Tests for alexandria-2.

parent 22664deb
(in-package :cl-user)
(defpackage :alexandria2-tests
(:use :cl :alexandria-2 #+sbcl :sb-rt #-sbcl :rtest)
(:import-from #+sbcl :sb-rt #-sbcl :rtest
#:*compile-tests* #:*expected-failures*))
(in-package :alexandria2-tests)
(deftest delete-from-plist*.1
(let ((orig '(a 1 b 2 c 3 d 4 d 5)))
(list (m-v-l(delete-from-plist* (copy-list orig) 'a 'c)
(m-v-l(delete-from-plist* (copy-list orig) 'b 'd)
(m-v-l(delete-from-plist* (copy-list orig) 'b)
(m-v-l(delete-from-plist* (copy-list orig) 'a)
(m-v-l(delete-from-plist* (copy-list orig) 'd 42 "zot")
(m-v-l(delete-from-plist* (copy-list orig) 'a 'b 'c 'd)
(m-v-l(delete-from-plist* (copy-list orig) 'a 'b 'c 'd 'x)
(equal orig (delete-from-plist orig))
(eq orig (delete-from-plist orig))))
((b 2 d 4 d 5)
(a 1 c 3)
(a 1 c 3 d 4 d 5)
(b 2 c 3 d 4 d 5)
(a 1 b 2 c 3)
nil
nil
t
t))
......@@ -3,7 +3,8 @@
:description "Tests for Alexandria, which is a collection of portable public domain utilities."
:author "Nikodemus Siivola <nikodemus@sb-studio.net>, and others."
:depends-on (:alexandria #+sbcl :sb-rt #-sbcl :rt)
:components ((:file "alexandria-1/tests"))
:components ((:file "alexandria-1/tests")
(:file "alexandria-2/tests"))
:perform (test-op (o c)
(flet ((run-tests (&rest args)
(apply (intern (string '#:run-tests) '#:alexandria-tests) args)))
......
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