;; Test the parser edifice.
(:module "parser" :depends-on ("test-base") :components
- ((:file "test-parser")
- (:file "test-scanner-charbuf")))
+ ((:file "parser-test")
+ (:file "scanner-charbuf-test")))
;; The actual tests.
- (:file "test-c-types" :depends-on ("test-base"))
- (:file "test-codegen" :depends-on ("test-base"))
- (:file "test-lexer" :depends-on ("test-base"))))
+ (:file "c-types-test" :depends-on ("test-base"))
+ (:file "codegen-test" :depends-on ("test-base"))
+ (:file "lexer-test" :depends-on ("test-base"))))
;;;--------------------------------------------------------------------------
;;; Testing.
(defmethod perform ((op test-op) (system (eql (find-system "sod-test"))))
- (operate 'load-op system)
- (funcall (find-symbol "RUN-TESTS" "SOD-TEST")))
-
-;;;--------------------------------------------------------------------------
-;;; Hacks.
-
-(defmethod perform :around
- ((op compile-op) (component (eql (find-system "sod-test"))))
- (let ((*compile-file-failure-behaviour* :warn))
- (call-next-method)))
+ (handler-bind (((or warning style-warning)
+ (lambda (cond)
+ (declare (ignore cond))
+ (invoke-restart 'muffle-warning))))
+ (operate 'load-op system)
+ (funcall (find-symbol "RUN-TESTS" "SOD-TEST"))))
;;;----- That's all, folks --------------------------------------------------