Skip to content
Snippets Groups Projects
Commit 80b97f18 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Incorporate tests into ASDF system definition

parent d285aa99
No related branches found
No related tags found
No related merge requests found
......@@ -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>
......
This diff is collapsed.
;; 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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment