diff --git a/cl-6502.asd b/cl-6502.asd index e64c1da..bde1a32 100644 --- a/cl-6502.asd +++ b/cl-6502.asd @@ -17,9 +17,9 @@ (:file "opcodes") (:file "jit") (:file "utils")) - :in-order-to ((test-op (test-op cl-6502-test)))) + :in-order-to ((test-op (test-op cl-6502/test)))) -(defsystem #:cl-6502-test +(defsystem #:cl-6502/test :description "A test suite for cl-6502." :license "BSD" :author "Brit Butler " @@ -34,8 +34,9 @@ (:file "opcodes") (:file "jit") #+sbcl (:file "perf")) - :perform (test-op :after (op c) - (uiop:symbol-call :6502-tests 'run!))) + :perform (test-op (op c) + (uiop:symbol-call 'fiveam 'run! + (uiop:find-symbol* '6502-tests '6502-tests)))) (defpackage #:6502-conf (:export #:app-path)) (defvar 6502-conf::*basedir* diff --git a/tests/perf.lisp b/tests/perf.lisp index e07b1b3..64a03b1 100644 --- a/tests/perf.lisp +++ b/tests/perf.lisp @@ -11,7 +11,6 @@ statistical profiler to observe performance while running the test suite." (klaus-init) (sb-sprof:with-profiling (:sample-interval 0.001 - :alloc-interval 2 :max-samples 1000 :show-progress t :report :graph