;;; ert-tests.el --- ERT's self-tests
-;; Copyright (C) 2007-2008, 2010-2011 Free Software Foundation, Inc.
+;; Copyright (C) 2007-2008, 2010-2012 Free Software Foundation, Inc.
;; Author: Christian Ohler <ohler@gnu.org>
:form (error "Foo")
:condition (error "Foo")
:fail-reason
- "the error signalled did not have the expected type"))))))
+ "the error signaled did not have the expected type"))))))
;; Error of the expected type.
(let* ((error nil)
(test (make-ert-test
:form (signal arith-error nil)
:condition (arith-error)
:fail-reason
- "the error signalled did not have the expected type"))))))
+ "the error signaled did not have the expected type"))))))
(let ((test (make-ert-test
:body (lambda ()
(should-error (signal 'arith-error nil)
:form (signal arith-error nil)
:condition (arith-error)
:fail-reason
- "the error signalled did not have the expected type"))))))
+ "the error signaled did not have the expected type"))))))
(let ((test (make-ert-test
:body (lambda ()
(should-error (signal 'singularity-error nil)
:form (signal singularity-error nil)
:condition (singularity-error)
:fail-reason
- "the error signalled was a subtype of the expected type")))))
+ "the error signaled was a subtype of the expected type")))))
))
(defmacro ert--test-my-list (&rest args)