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
10 ;;;; $Id: uffi-tests.asd,v 1.10 2003/08/14 21:40:13 kevin Exp $
11 ;;;; *************************************************************************
13 (defpackage #:uffi-tests-system
15 (in-package #:uffi-tests-system)
23 (:file "package" :depends-on ("rt"))
24 (:file "strtol" :depends-on ("package"))
25 (:file "atoifl" :depends-on ("package"))
26 (:file "getenv" :depends-on ("package"))
27 (:file "gethostname" :depends-on ("package"))
28 (:file "union" :depends-on ("package"))
29 (:file "arrays" :depends-on ("package"))
30 (:file "structs" :depends-on ("package"))
31 (:file "pointers" :depends-on ("package"))
32 (:file "time" :depends-on ("package"))
33 (:file "foreign-loader" :depends-on ("package"))
34 (:file "uffi-c-test-lib" :depends-on ("foreign-loader"))
35 (:file "compress" :depends-on ("foreign-loader"))
36 (:file "casts" :depends-on ("foreign-loader"))
37 (:file "foreign-var" :depends-on ("foreign-loader"))
40 (defmethod perform ((o test-op) (c (eql (find-system :uffi-tests))))
41 (or (funcall (intern (symbol-name '#:do-tests)
42 (find-package '#:regression-test)))
43 (error "test-op failed")))