/usr/share/common-lisp/systems/memstore-tests.asd is in cl-memstore 1.1.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; File: memstore-tests.asd
;;;; Author: Kevin Rosenberg
;;;; Created: March 2011
;;;;
;;;; This file is part of the Memstore package.
;;;; *************************************************************************
(in-package #:cl-user)
(defpackage #:memstore-tests-system (:use #:asdf #:cl))
(in-package #:memstore-tests-system)
(defsystem memstore-tests
:name "Memstore tests"
:author "Kevin Rosenberg"
:licence "BSD"
:description "A regression test suite for memstore."
:depends-on (memstore rt)
:components ((:module src
:components
((:file "tests")))))
(defmethod operation-done-p ((o test-op)
(c (eql (find-system :memstore-tests))))
;; Always returns NIL so that tests are never marked as done.
nil)
(defmethod perform ((o test-op) (c (eql (find-system :memstore-tests))))
(flet ((run-tests (&rest args)
(apply (intern (string '#:run-tests)
(find-package '#:memstore-tests))
args)))
(load-system c)
(run-tests :compiled nil)
(run-tests :compiled t)))
|