Changeset 9766 for trunk/tests
- Timestamp:
- Jun 16, 2008, 6:55:39 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tests/ansi-tests/ccl.lsp
r9670 r9766 12 12 (truename s)))) 13 13 14 (defun test-compile (lambda-or-file &key suppress-warnings (safety 1) )14 (defun test-compile (lambda-or-file &key suppress-warnings (safety 1) load) 15 15 ;; Compile in a more-or-less standard environment 16 16 (let ((ccl::*suppress-compiler-warnings* suppress-warnings) … … 22 22 (if (consp lambda-or-file) 23 23 (compile nil lambda-or-file) 24 (compile-file lambda-or-file ))))24 (compile-file lambda-or-file :load load)))) 25 25 26 26 ;;; CCL-specific regression tests, for CCL-specific behavior. … … 124 124 :no-crash) 125 125 126 (deftest ccl.bug#288-1 ;; follow-on bug, not really the same 127 (let ((file (test-source-file "(defun cl-test::ccl.bug#288-1-fn ((x integer)) x)"))) 128 (test-compile file :suppress-warnings t :load t) 129 (handler-case 130 (progn (ccl.bug#288-1-fn 17) :no-warnings) 131 (program-error (c) (if (search "(X INTEGER)" (princ-to-string c)) :lambda-list-error c)))) 132 :lambda-list-error) 133 126 134 (deftest ccl.40055-1 127 135 (let ((file (test-source-file " … … 167 175 (warning (c) c))) 168 176 :no-warnings) 177 178 (deftest ccl.bug#289 179 (let ((file (test-source-file " 180 (defclass ccl.bug#289-meta (standard-class) ()) 181 (defclass ccl.bug#289-class () () (:metaclass ccl.bug#289-meta))"))) 182 (test-compile file) 183 :no-crash) 184 :no-crash) 169 185 170 186 (deftest ccl.bug#295 … … 254 270 (ccl.42923 'foo :y 1 :z 2 :a 1 :b 2 :c 3)) 255 271 foo) 272
Note: See TracChangeset
for help on using the changeset viewer.