define-symbol-macro.lsp 830 Bytes
Newer Older
1 2 3 4 5 6 7 8
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sun Apr 20 12:55:05 2003
;;;; Contains: Tests of DEFINE-SYMBOL-MACRO

(in-package :cl-test)

(deftest define-symbol-macro.error.1
9
  (signals-error (funcall (macro-function 'define-symbol-macro))
sds's avatar
sds committed
10
                 program-error)
11
  t)
12 13

(deftest define-symbol-macro.error.2
14
  (signals-error (funcall (macro-function 'define-symbol-macro)
sds's avatar
sds committed
15 16 17
                           '(define-symbol-macro
                              nonexistent-symbol-macro nil))
                 program-error)
18
  t)
19 20

(deftest define-symbol-macro.error.3
21
  (signals-error (funcall (macro-function 'define-symbol-macro)
sds's avatar
sds committed
22 23 24 25
                           '(define-symbol-macro
                              nonexistent-symbol-macro nil)
                           nil nil)
                 program-error)
26
  t)