Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
11 lines (10 sloc) 421 Bytes
(require 'asdf)
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
(user-homedir-pathname))))
(when (probe-file quicklisp-init)
(load quicklisp-init)))
(asdf:oos 'asdf:load-op 'VIVACE-GRAPH-V2-TEST)
(in-package #:VIVACE-GRAPH-V2-TEST)
(run-all-tests)
(when (and *test-db-dir* (probe-file *test-db-dir*))
(format t "WARNING: ~A was not deleted!~%" *test-db-dir*))