common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Discount test runner consing in allocation profile of impure tests

Browse source 
If built with sb-fasteval and cons-profiling then the output of a test's
memory profile would include all interpreter consing by the test runner
itself, which might dominate the result.
This commit is contained in:
Douglas Katzman 2023-01-22 21:20:58 -05:00
parent e48e053d11
commit 6abd8f1647
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/impure-runner.lisp
View file

@ -1,6 +1,7 @@
(with-compilation-unit ()
(load "test-util")
(load "assertoid"))
(let ((*evaluator-mode* :compile))
(load "test-util")
(load "assertoid")))
(defpackage :run-tests
(:use :cl :test-util :sb-ext))
@ -13,7 +14,7 @@
(defvar *break-on-error*)
(load "test-funs")
(let ((*evaluator-mode* :compile)) (load "test-funs"))
(defun run (file test-fun
break-on-failure break-on-expected-failure break-on-error
@ -40,6 +41,7 @@
(sb-debug:print-backtrace)))
(invoke-restart 'skip-file))))
(let ((*package* (find-package :cl-user)))
#+nil (sb-aprof:aprof-run test-fun :arguments (list file))
(funcall test-fun file)))
(skip-file ()
(format t ">>>~a<<<~%"*failures*)))