1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; File: memstore-tests.asd
6 ;;;; Author: Kevin Rosenberg
7 ;;;; Created: March 2011
9 ;;;; This file is part of the Memstore package.
10 ;;;; *************************************************************************
12 (in-package #:cl-user)
13 (defpackage #:memstore-tests-system (:use #:asdf #:cl))
14 (in-package #:memstore-tests-system)
16 (defsystem memstore-tests
17 :name "Memstore tests"
18 :author "Kevin Rosenberg"
20 :description "A regression test suite for memstore."
21 :depends-on (memstore rt)
22 :components ((:module src
26 (defmethod operation-done-p ((o test-op)
27 (c (eql (find-system :memstore-tests))))
28 ;; Always returns NIL so that tests are never marked as done.
31 (defmethod perform ((o test-op) (c (eql (find-system :memstore-tests))))
32 (flet ((run-tests (&rest args)
33 (apply (intern (string '#:run-tests)
34 (find-package '#:memstore-tests))
37 (run-tests :compiled nil)
38 (run-tests :compiled t)))