getopt.asd

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: getopt-system -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          getopt.asd
   6 ;;;; Purpose:       ASDF system definition for getopt package
   7 ;;;; Programmer:    Kevin M. Rosenberg
   8 ;;;; Date Started:  Apr 2000
   9 ;;;;
  10 ;;;; $Id$
  11 ;;;;
  12 ;;;; *************************************************************************
  13
  14 (in-package cl-user)
  15 (defpackage getopt-system (:use #:asdf #:cl))
  16 (in-package getopt-system)
  17
  18
  19 (defsystem getopt
  20     :name "getopt"
  21     :author "Kevin Rosenberg <kevin@rosenberg.net>"
  22     :version "1.0"
  23     :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
  24     :licence "BSD"
  25
  26     :components
  27     ((:file "package")
  28      (:file "main" :depends-on ("package"))))
  29
  30 (defmethod perform ((o test-op) (c (eql (find-system 'getopt))))
  31   (operate 'load-op 'getopt-tests)
  32   (operate 'test-op 'getopt-tests :force t))
  33
  34
  35 (defsystem getopt-tests
  36     :depends-on (:ptester :getopt)
  37     :components
  38     ((:file "tests")))
  39
  40 (defmethod perform ((o test-op) (c (eql (find-system 'getopt-tests))))
  41   (or (funcall (intern (symbol-name '#:do-tests)
  42                        (find-package '#:getopt-tests)))
  43       (error "test-op failed")))
  44