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 *library-file-dir* (append (pathname-directory *load-truename*)
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 dir
26 :name (component-name c)
28 '((:absolute "usr" "lib" "uffi")))))
31 (make-pathname :name (component-name c)
33 :directory *library-file-dir*)))))
35 (defmethod perform ((o load-op) (c uffi-test-source-file))
36 nil) ;; lisp loader file will load library
38 (defmethod perform ((o compile-op) (c uffi-test-source-file))
39 (unless (zerop (run-shell-command
41 (namestring (make-pathname :name nil
43 :directory *library-file-dir*))))
44 (error 'operation-error :component c :operation o)))
53 (:uffi-test-source-file "uffi-c-test")
54 (:file "package" :depends-on ("rt"))
55 (:file "strtol" :depends-on ("package"))
56 (:file "atoifl" :depends-on ("package"))
57 (:file "getenv" :depends-on ("package"))
58 (:file "gethostname" :depends-on ("package"))
59 (:file "union" :depends-on ("package"))
60 (:file "arrays" :depends-on ("package"))
61 (:file "structs" :depends-on ("package"))
62 (:file "pointers" :depends-on ("package"))
63 (:file "time" :depends-on ("package"))
64 (:file "foreign-loader" :depends-on ("package" "uffi-c-test"))
65 (:file "uffi-c-test-lib" :depends-on ("foreign-loader"))
66 (:file "compress" :depends-on ("foreign-loader"))
67 (:file "casts" :depends-on ("foreign-loader"))
68 (:file "foreign-var" :depends-on ("foreign-loader"))
71 (defmethod perform ((o test-op) (c (eql (find-system :uffi-tests))))
72 (or (funcall (intern (symbol-name '#:do-tests)
73 (find-package '#:regression-test)))
74 (error "test-op failed")))