1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; Name: uffi-tests.asd
6 ;;;; Purpose: ASDF system definitionf for uffi testing package
7 ;;;; Author: Kevin M. Rosenberg
8 ;;;; Date Started: Apr 2003
11 ;;;; *************************************************************************
13 (defpackage #:uffi-tests-system
15 (in-package #:uffi-tests-system)
17 (defvar *asd-file-dir* (pathname-directory *load-truename*))
18 (defvar *library-file-dir* (append *asd-file-dir* "tests"))
20 (defclass uffi-test-source-file (c-source-file)
23 (defmethod output-files ((o compile-op) (c uffi-test-source-file))
24 (let ((found (some #'(lambda (dir)
25 (probe-file (make-pathname :directory d
26 :name (component-name c)
28 '((:absolute "usr" "lib" "uffi")
32 (list (make-pathname :name (component-name c)
34 :directory *library-file-dir*)))))
36 (defmethod perform ((o load-op) (c uffi-test-source-file))
37 nil) ;; lisp loader file will load library
39 (defmethod perform ((o compile-op) (c uffi-test-source-file))
40 (unless (zerop (run-shell-command
42 (namestring (make-pathname :name nil
44 :directory *library-file-dir*))))
45 (error 'operation-error :component c :operation o)))
54 (:uffi-test-source-file "uffi-c-test")
55 (:file "package" :depends-on ("rt"))
56 (:file "strtol" :depends-on ("package"))
57 (:file "atoifl" :depends-on ("package"))
58 (:file "getenv" :depends-on ("package"))
59 (:file "gethostname" :depends-on ("package"))
60 (:file "union" :depends-on ("package"))
61 (:file "arrays" :depends-on ("package"))
62 (:file "structs" :depends-on ("package"))
63 (:file "pointers" :depends-on ("package"))
64 (:file "time" :depends-on ("package"))
65 (:file "foreign-loader" :depends-on ("package" "uffi-c-test"))
66 (:file "uffi-c-test-lib" :depends-on ("foreign-loader"))
67 (:file "compress" :depends-on ("foreign-loader"))
68 (:file "casts" :depends-on ("foreign-loader"))
69 (:file "foreign-var" :depends-on ("foreign-loader"))
72 (defmethod perform ((o test-op) (c (eql (find-system :uffi-tests))))
73 (or (funcall (intern (symbol-name '#:do-tests)
74 (find-package '#:regression-test)))
75 (error "test-op failed")))