[cl-gsl-cvs] CVS update: cl-gsl/test/test-vector.lisp

[cl-gsl-cvs at common-lisp.net]

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)))))