Commit 80b97f18 by Liam M. Healy

Incorporate tests into ASDF system definition

parent d285aa99
......@@ -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>
......
;; 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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment