projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sb-bsd-sockets: foreign memory leak in GET-PROTOCOL-BY-NAME
[sbcl.git]
/
contrib
/
sb-cover
/
tests.lisp
diff --git
a/contrib/sb-cover/tests.lisp
b/contrib/sb-cover/tests.lisp
index
d7aa134
..
ea54b75
100644
(file)
--- a/
contrib/sb-cover/tests.lisp
+++ b/
contrib/sb-cover/tests.lisp
@@
-28,11
+28,18
@@
(load (compile-file (merge-pathnames #p"test-data-1.lisp" *path*)))
(report-expect-failure)
(load (compile-file (merge-pathnames #p"test-data-1.lisp" *path*)))
(report-expect-failure)
-;;; Instrument the file, try again
+;;; Instrument the file, try again -- first with a non-directory pathname
(proclaim '(optimize sb-cover:store-coverage-data))
(load (compile-file (merge-pathnames #p"test-data-1.lisp" *path*)))
(proclaim '(optimize sb-cover:store-coverage-data))
(load (compile-file (merge-pathnames #p"test-data-1.lisp" *path*)))
+(catch 'ok
+ (handler-case
+ (sb-cover:report #p"/tmp/foo")
+ (error ()
+ (throw 'ok nil)))
+ (error "REPORT with a non-pathname directory did not signal an error."))
+
(report)
(assert (probe-file (make-pathname :name "cover-index" :type "html"
(report)
(assert (probe-file (make-pathname :name "cover-index" :type "html"