From e941295510bf9b0823be64e645ca589ab50aa562 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Sun, 3 Jan 2010 17:14:30 +0100 Subject: [PATCH] object version/validation tools, testing for possible use for infrastructure. use of ASDF test-op to run LIFT tests. fixed load of LICENSE -- should be LICENSE.mit Signed-off-by: AJ Rossini --- TODO.lisp | 17 +++++++++++------ cls.asd | 11 +++-------- 2 files changed, 14 insertions(+), 14 deletions(-) diff --git a/TODO.lisp b/TODO.lisp index 32d8776..80a02a4 100644 --- a/TODO.lisp +++ b/TODO.lisp @@ -1,6 +1,6 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2010-01-03 16:29:24 tony> +;;; Time-stamp: <2010-01-03 17:12:16 tony> ;;; Creation: <2008-09-08 08:06:30 tony> ;;; File: TODO.lisp ;;; Author: AJ Rossini @@ -47,6 +47,13 @@ ;; (asdf:oos 'asdf:load-op 'cl-ppcre) ;; (asdf:oos 'asdf:load-op 'cl-markdown) + ;;use of extension packages supporting versioning and validation of + ;;CLOS objects? + ;; (asdf:oos 'asdf:compile-op 'versioned-objects :force t) + ;; (asdf:oos 'asdf:load-op 'versioned-objects) + ;; (asdf:oos 'asdf:compile-op 'validations :force t) + ;; (asdf:oos 'asdf:load-op 'validations) + ;;VIZ ;; (asdf:oos 'asdf:compile-op 'cffi :force t) ;; (asdf:oos 'asdf:load-op 'cl-opengl) @@ -64,7 +71,9 @@ ;; tests = 78, failures = 7, errors = 20 (run-tests :suite 'lisp-stat-ut) -(describe (run-tests :suite 'lisp-stat-ut)) + +(asdf:oos 'asdf:test-op 'cls) +;; which runs (describe (run-tests :suite 'lisp-stat-ut)) (describe 'lisp-stat-ut) (documentation 'lisp-stat-ut 'type) @@ -86,10 +95,6 @@ #+nil (progn - ;; use of extension packages supporting versioning and validation of - ;; CLOS objects? - (asdf:oos 'asdf:load-op 'versioned-objects) - (asdf:oos 'asdf:load-op 'validations)) #+nil (progn diff --git a/cls.asd b/cls.asd index 379385c..22b0871 100644 --- a/cls.asd +++ b/cls.asd @@ -1,5 +1,5 @@ ;; -*- mode: lisp -*- -;;; Time-stamp: <2010-01-03 16:32:56 tony> +;;; Time-stamp: <2010-01-03 16:44:39 tony> ;;; Created: <2005-05-30 17:09:47 blindglobe> ;;; File: cls.asd ;;; Author: AJ Rossini @@ -122,7 +122,7 @@ ;; :cl-cairo2 :cl-2d ) :components ((:static-file "version" :pathname #p"version.lisp-expr") - (:static-file "LICENSE") + (:static-file "LICENSE.mit") (:static-file "README") (:module @@ -310,10 +310,5 @@ (: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))) -|# + (describe (lift:run-tests :suite 'lisp-stat-unittests::lisp-stat-ut))) -- 2.11.4.GIT