r10471: add tests, improve fov and magnification function

[cl-photo.git] / cl-photo-tests.asd

diff --git a/cl-photo-tests.asd b/cl-photo-tests.asd
new file mode 100644 (file)
index 0000000..6e9de35
--- /dev/null
+++ b/cl-photo-tests.asd
@@ -0,0 +1,28 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          cl-photo-tests.asd
+;;;; Purpose:       ASDF system definitionf for cl-photo testing package
+;;;; Author:        Kevin M. Rosenberg
+;;;; Date Started:  Apr 2003
+;;;;
+;;;; $Id$
+;;;; *************************************************************************
+
+(defpackage #:cl-photo-tests-system
+  (:use #:asdf #:cl))
+(in-package #:cl-photo-tests-system)
+
+(operate 'load-op 'cl-photo)
+
+
+(defsystem cl-photo-tests
+    :depends-on (cl-photo rt)
+    :components ((:file "tests")))
+
+(defmethod perform ((o test-op) (c (eql (find-system :cl-photo-tests))))
+  (operate 'load-op 'cl-photo)
+  (or (funcall (intern (symbol-name '#:do-tests)
+                      (find-package '#:regression-test)))
+      (error "test-op failed")))