From f1266988126bc29e6fc87a3280805f6acb076971 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Sun, 3 Jan 2010 16:35:34 +0100 Subject: [PATCH] test stuff for asdf:test-op. needs to be worked out a bit more . Signed-off-by: AJ Rossini --- cls.asd | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/cls.asd b/cls.asd index c09760d..379385c 100644 --- a/cls.asd +++ b/cls.asd @@ -1,5 +1,5 @@ ;; -*- mode: lisp -*- -;;; Time-stamp: <2009-12-23 14:18:34 tony> +;;; Time-stamp: <2010-01-03 16:32:56 tony> ;;; Created: <2005-05-30 17:09:47 blindglobe> ;;; File: cls.asd ;;; Author: AJ Rossini @@ -308,3 +308,12 @@ (:file "unittests-listoflist" :depends-on ("unittests")) (:file "unittests-arrays" :depends-on ("unittests")) (:file "unittests-dataframe" :depends-on ("unittests")))))) + + +#| + (defmethod perform ((o test-op) (c (eql (find-system :cls)))) + (flet ((run-tests (&rest args) + (apply (intern (string '#:run-tests) '#:cffi-tests) args))) + (run-tests :compiled nil) + (run-tests :compiled t))) +|# -- 2.11.4.GIT