mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
aa2984eae2
Couldn't even build because of a style-warning. And the test file itself caused style-warnings. Failures occur in several other test files though. Not important.
17 lines
1,013 B
Common Lisp
17 lines
1,013 B
Common Lisp
(require :sb-introspect)
|
|
(unless (sb-c:source-location) (push :no-source-locs *features*))
|
|
(test-util:with-scratch-file (f "fasl")
|
|
(load (compile-file "../contrib/sb-introspect/xref-test-data.lisp" :output-file f))
|
|
(load "../contrib/sb-introspect/xref-test.lisp")
|
|
;; This test is quite bogus. because it depended on WITH-COMPILATION-UNIT
|
|
;; being wrapped around both the COMPILE-FILE and LOAD which is very weird.
|
|
;; If we take the W-C-U out from the LOAD, then the assertions on CL-USER::FOUR
|
|
;; fails because we don't append property lists. And if we don't COMPILE-FILE,
|
|
;; then we lose information about COMPILE-TIME-TOO-FUN. As written, it's hard to
|
|
;; assert about behaviors that actually occur in each step.
|
|
;; If someone thinks this is an important distinction, that someone can
|
|
;; write better tests.
|
|
(with-compilation-unit (:source-plist '(:test-outer "OUT"))
|
|
(load (compile-file "../contrib/sb-introspect/test.lisp" :output-file f)))
|
|
(load "../contrib/sb-introspect/test-driver.lisp"))
|