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. ...@@ -121,22 +121,17 @@ are ported from GSL's tests.
(ql:quickload "gsll")</pre> (ql:quickload "gsll")</pre>
<p>To test your installation: <p>To test your installation:
<pre> <pre>
(ql:quickload "lisp-unit") (asdf:test-system :gsll)</pre>
(in-package :gsl)
(lisp-unit:run-tests)</pre>
<p>The result should look something like: <p>The result should look something like:
<pre> <pre>
ABSOLUTE-DEVIATION: 1 assertions passed, 0 failed. Unit Test Summary
ABSOLUTE-SUM: 4 assertions passed, 0 failed. | 3997 assertions total
AIRY: 73 assertions passed, 0 failed.</pre> | 3992 passed
<p>... (many lines deleted) ... | 5 failed
<pre> | 6 execution errors
VECTOR-VARIANCE-WITH-MEAN: 10 assertions passed, 0 failed. | 0 missing tests
WEIBULL: 60 assertions passed, 0 failed. </pre>
ZETA: 6 assertions passed, 0 failed.
TOTAL: 4022 assertions passed, 1 failed, 0 execution errors.</pre>
<p>You may see more failures; if you are not on a 64 bit platform you will see fewer assertions. <p>You may see more failures; if you are not on a 64 bit platform you will see fewer assertions.
<h3>License</h3> <h3>License</h3>
<p> <p>
This software is distributed under This software is distributed under
...@@ -303,7 +298,7 @@ and arrays used internally or for function return. ...@@ -303,7 +298,7 @@ and arrays used internally or for function return.
<!-- Created: Feb 25 2005 --> <!-- Created: Feb 25 2005 -->
<!-- hhmts start --> <!-- hhmts start -->
<small> <small>
Time-stamp: <2015-10-04 21:05:48EDT index.html> Time-stamp: <2015-12-05 22:02:12EST index.html>
</small> </small>
<!-- hhmts end --> <!-- hhmts end -->
</div> </div>
......
This diff is collapsed.
;; BLAS level 3, Matrix-matrix operations ;; BLAS level 3, Matrix-matrix operations
;; Liam Healy, Wed Apr 26 2006 - 21:08 ;; 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 ;; Distributed under the terms of the GNU General Public License
;; ;;
;; This program is free software: you can redistribute it and/or modify ;; This program is free software: you can redistribute it and/or modify
...@@ -71,8 +71,6 @@ ...@@ -71,8 +71,6 @@
(C (grid:make-foreign-array element-type :dimensions (matrix-product-dimensions A B) (C (grid:make-foreign-array element-type :dimensions (matrix-product-dimensions A B)
:initial-element 0)) :initial-element 0))
(alpha 1) (beta 1) (uplo :upper) (side :left)) (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") ("gsl_blas_" :type "hemm")
((side cblas-side) (uplo cblas-uplo) (alpha :element-c-type) ((side cblas-side) (uplo cblas-uplo) (alpha :element-c-type)
((mpointer A) :pointer) ((mpointer B) :pointer) ((mpointer A) :pointer) ((mpointer B) :pointer)
...@@ -99,8 +97,6 @@ ...@@ -99,8 +97,6 @@
((A grid:matrix) (B grid:matrix) ((A grid:matrix) (B grid:matrix)
&optional (alpha 1) (uplo :upper) (TransA :notrans) &optional (alpha 1) (uplo :upper) (TransA :notrans)
(diag :nonunit) (side :left)) (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") ("gsl_blas_" :type "trsm")
((side cblas-side) (uplo cblas-uplo) ((side cblas-side) (uplo cblas-uplo)
(TransA cblas-transpose) (diag cblas-diag) (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