Update of /project/cl-gsl/cvsroot/cl-gsl/test In directory common-lisp.net:/tmp/cvs-serv23118

Modified Files: test-vector.lisp Log Message: A few changes since vector.lisp new uses classes rather than structures.

Date: Mon Apr 18 03:00:12 2005 Author: edenny

Index: cl-gsl/test/test-vector.lisp diff -u cl-gsl/test/test-vector.lisp:1.3 cl-gsl/test/test-vector.lisp:1.4 --- cl-gsl/test/test-vector.lisp:1.3 Sun Apr 10 04:32:24 2005 +++ cl-gsl/test/test-vector.lisp Mon Apr 18 03:00:12 2005 @@ -26,8 +26,8 @@ #'(lambda () (let ((v (gsl-vector:make-vector 5 :element-type 'double-float))) (prog1 - (and (= (gsl-vector:gsl-vec-size v) 5) - (eq (gsl-vector:gsl-vec-element-type v) 'double-float)) + (and (= (gsl-vector::size v) 5) + (eq (gsl-vector::element-type v) 'double-float)) (gsl-vector:free v)))))

@@ -36,8 +36,8 @@ #'(lambda () (let ((v (gsl-vector:make-vector 5 :element-type 'single-float))) (prog1 - (and (= (gsl-vector:gsl-vec-size v) 5) - (eq (gsl-vector:gsl-vec-element-type v) 'single-float)) + (and (= (gsl-vector::size v) 5) + (eq (gsl-vector::element-type v) 'single-float)) (gsl-vector:free v)))))

(deftest "make-vector-integer" :category +vector+ @@ -45,18 +45,18 @@ #'(lambda () (let ((v (gsl-vector:make-vector 5 :element-type 'integer))) (prog1 - (and (= (gsl-vector:gsl-vec-size v) 5) - (eq (gsl-vector:gsl-vec-element-type v) 'integer)) + (and (= (gsl-vector::size v) 5) + (eq (gsl-vector::element-type v) 'integer)) (gsl-vector:free v)))))

-v(deftest "make-vector-complex-double-float" :category +vector+ +(deftest "make-vector-complex-double-float" :category +vector+ :test-fn #'(lambda () (let ((v (gsl-vector:make-vector 5 :element-type '(complex (double-float))))) (prog1 - (and (= (gsl-vector:gsl-vec-size v) 5) - (equal (gsl-vector:gsl-vec-element-type v) + (and (= (gsl-vector::size v) 5) + (equal (gsl-vector::element-type v) '(complex (double-float)))) (gsl-vector:free v)))))

@@ -66,8 +66,8 @@ (let ((v (gsl-vector:make-vector 5 :element-type '(complex (single-float))))) (prog1 - (and (= (gsl-vector:gsl-vec-size v) 5) - (equal (gsl-vector:gsl-vec-element-type v) + (and (= (gsl-vector::size v) 5) + (equal (gsl-vector::element-type v) '(complex (single-float)))) (gsl-vector:free v)))))