memstore-tests.asd

   1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; File:     memstore-tests.asd
   6 ;;;; Author:   Kevin Rosenberg
   7 ;;;; Created:  March 2011
   8 ;;;;
   9 ;;;; This file is part of the Memstore package.
  10 ;;;; *************************************************************************
  11
  12 (in-package #:cl-user)
  13 (defpackage #:memstore-tests-system (:use #:asdf #:cl))
  14 (in-package #:memstore-tests-system)
  15
  16 (defsystem memstore-tests
  17     :name "Memstore tests"
  18   :author "Kevin Rosenberg"
  19   :licence "BSD"
  20   :description "A regression test suite for memstore."
  21   :depends-on (memstore rt)
  22   :components ((:module src
  23                 :components
  24                         ((:file "tests")))))
  25
  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.
  29   nil)
  30
  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))
  35                   args)))
  36     (load-system c)
  37     (run-tests :compiled nil)
  38     (run-tests :compiled t)))