source: trunk/source/tests/ansi-tests/define-symbol-macro.lsp @ 8991

Last change on this file since 8991 was 8991, checked in by gz, 12 years ago

Check in the gcl ansi test suite (original, in preparation for making local changes)

File size: 683 bytes
Line 
1;-*- Mode:     Lisp -*-
2;;;; Author:   Paul Dietz
3;;;; Created:  Sun Apr 20 12:55:05 2003
4;;;; Contains: Tests of DEFINE-SYMBOL-MACRO
5
6(in-package :cl-test)
7
8(deftest define-symbol-macro.error.1
9  (signals-error (funcall (macro-function 'define-symbol-macro))
10                 program-error)
11  t)
12
13(deftest define-symbol-macro.error.2
14  (signals-error (funcall (macro-function 'define-symbol-macro)
15                           '(define-symbol-macro
16                              nonexistent-symbol-macro nil))
17                 program-error)
18  t)
19
20(deftest define-symbol-macro.error.3
21  (signals-error (funcall (macro-function 'define-symbol-macro)
22                           '(define-symbol-macro
23                              nonexistent-symbol-macro nil)
24                           nil nil)
25                 program-error)
26  t)
Note: See TracBrowser for help on using the repository browser.