Commit 80b97f18 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Incorporate tests into ASDF system definition

parent d285aa99
Loading
Loading
Loading
Loading
+9 −14
Original line number Diff line number Diff line
@@ -121,22 +121,17 @@ are ported from GSL's tests.
   (ql:quickload "gsll")</pre>
 <p>To test your installation:
 <pre>
   (ql:quickload "lisp-unit")
   (in-package :gsl)
   (lisp-unit:run-tests)</pre>
   (asdf:test-system :gsll)</pre>
 <p>The result should look something like:
 <pre>
ABSOLUTE-DEVIATION: 1 assertions passed, 0 failed.
ABSOLUTE-SUM: 4 assertions passed, 0 failed.
AIRY: 73 assertions passed, 0 failed.</pre>
<p>... (many lines deleted) ...
<pre>
VECTOR-VARIANCE-WITH-MEAN: 10 assertions passed, 0 failed.
WEIBULL: 60 assertions passed, 0 failed.
ZETA: 6 assertions passed, 0 failed.
TOTAL: 4022 assertions passed, 1 failed, 0 execution errors.</pre>
Unit Test Summary
 | 3997 assertions total
 | 3992 passed
 | 5 failed
 | 6 execution errors
 | 0 missing tests
</pre>
 <p>You may see more failures; if you are not on a 64 bit platform you will see fewer assertions.

 <h3>License</h3>
<p>
This software is distributed under
@@ -303,7 +298,7 @@ and arrays used internally or for function return.
<!-- Created: Feb 25 2005 -->
<!-- hhmts start -->
<small>
Time-stamp: <2015-10-04 21:05:48EDT index.html>
Time-stamp: <2015-12-05 22:02:12EST index.html>
</small>
<!-- hhmts end -->
 </div>
+406 −411
Original line number Diff line number Diff line
;; Definition of GSLL system 
;; Liam Healy
;; Time-stamp: <2013-11-24 19:18:07EST gsll.asd>
;; Time-stamp: <2015-12-05 21:54:38EST gsll.asd>
;;
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013 Liam M. Healy
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013, 2015 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
@@ -27,13 +27,14 @@
  :version "0"
  :author "Liam M. Healy"
  :licence "GPL v3"
  :defsystem-depends-on (#:cffi-grovel #:asdf-system-connections)
  :defsystem-depends-on (#:cffi-grovel)
  :depends-on (#:foreign-array
	       #:cffi-grovel
	       #:trivial-garbage
	       #:alexandria
	       #:metabang-bind
	       #:osicat)
	       #:osicat
	       #:lisp-unit)
  :components
  ((:module init
    :components
@@ -270,17 +271,8 @@
    ((cffi-grovel:grovel-file "mksa")
     (cffi-grovel:grovel-file "cgsm")
     (cffi-grovel:grovel-file "num")
	     (:file export)))))

(asdf:defsystem-connection GSLL-tests
  :name "GSLL-tests"
  :description "Regression (unit) tests for GNU Scientific Library for Lisp."
  :version "0"
  :author "Liam M. Healy"
  :licence "GPL v3"
  :requires (gsll lisp-unit)
  :components
  ((:module test-unit
     (:file export)))
   (:module test-unit
    :components
    ((cffi-grovel:grovel-file "machine")
     (:file "augment" :depends-on ("machine"))))
@@ -466,4 +458,7 @@
     (:file "vector-variance-with-fixed-mean")
     (:file "vector-variance-with-mean")
     (:file "weibull")
	     (:file "zeta")))))
     (:file "zeta"))))
  :perform (asdf:test-op 
	    (o c)
	    (uiop:symbol-call :lisp-unit '#:run-tests :all :gsll)))
+2 −6
Original line number Diff line number Diff line
;; BLAS level 3, Matrix-matrix operations
;; Liam Healy, Wed Apr 26 2006 - 21:08
;; Time-stamp: <2013-12-25 12:10:44EST blas3.lisp>
;; Time-stamp: <2015-12-05 09:56:16EST blas3.lisp>
;;
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013 Liam M. Healy
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013, 2015 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
@@ -71,8 +71,6 @@
     (C (grid:make-foreign-array element-type :dimensions (matrix-product-dimensions A B)
		     :initial-element 0))
     (alpha 1) (beta 1) (uplo :upper) (side :left))
  ;; This always signals an error because you can't pass a
  ;; struct in CFFI yet.
  ("gsl_blas_" :type "hemm")
  ((side cblas-side) (uplo cblas-uplo) (alpha :element-c-type)
   ((mpointer A) :pointer) ((mpointer B) :pointer)
@@ -99,8 +97,6 @@
    ((A grid:matrix) (B grid:matrix)
     &optional (alpha 1) (uplo :upper) (TransA :notrans)
     (diag :nonunit) (side :left))
  ;; This signals an error for complex arguments because you can't pass a
  ;; struct in CFFI yet.
  ("gsl_blas_" :type "trsm")
  ((side cblas-side) (uplo cblas-uplo)
   (TransA cblas-transpose) (diag cblas-diag)