Commit 50ebcee2 authored by Spenser Truex's avatar Spenser Truex

Fixed tests.

parent f13db20f
......@@ -225,25 +225,28 @@
(deftest define-constant.3
(let ((name (gensym)))
(eval `(define-constant ,name 3 :type single-float))
(eql 'single-float (eval `(type-of ,name))))
(eval `(and (ignore-errors (define-constant ,name 3 :type single-float)) t))
(eval `(boundp ',name)))
nil)
(deftest define-constant.3
(deftest define-constant.4
(let ((name (gensym)))
(eval `(define-constant ,name 3.0 :type single-float :documentation "hi."))
(eql 'single-float (eval `(type-of ,name))))
t)
(deftest defcustom
(deftest defcustom.1
(let ((name (gensym)))
(eval `(defcustom ,name single-float 4 "Testing custom typing."))
(eql 'single-float (eval `(type-of ,name))))
nil)
(deftest defcustom
(eval `(alexandria::defcustom ,name integer 4 "Testing custom typing."))
(eval `(eql 4 ,name)))
t)
(deftest defcustom.2
(let ((name (gensym)))
(eval `(defcustom ,name single-float 4.0 "testing custom type"))
(eval `(alexandria::defcustom ,name single-float 4.0 "testing custom type"))
(eql 'single-float (eval `(type-of ,name))))
t)
(deftest defcustom.3
(let ((name (gensym)))
(and (ignore-errors (eval `(alexandria::defcustom ,name integer 1))) t))
nil)
;;;; Errors
......@@ -255,9 +258,9 @@
(not (null (typep x 'error))))
(deftest required-argument.1
(multiple-value-bind (res err)
(ignore-errors (required-argument))
(errorp err))
(multiple-value-bind (res err)
(ignore-errors (required-argument))
(errorp err))
t)
;;;; Hash tables
......
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