set-basis.lisp 6.74 KB
Newer Older
1 2 3 4 5 6 7 8
;; Regression test SET-BASIS for GSLL, automatically generated

(in-package :gsl)

(LISP-UNIT:DEFINE-TEST SET-BASIS
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #(0.0 0.0 1.0 0.0 0.0 0.0 0.0 0.0))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
9 10 11 12 13 14
                         (LET ((V1
                                (MAKE-MARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
                                             '(-34.5 8.24 3.29 -8.93 34.12
                                               -6.15 49.27 -13.49))))
                           (SET-BASIS V1 2)
                           (CL-ARRAY V1))))
15 16 17 18
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST
                         #(0.0d0 0.0d0 1.0d0 0.0d0 0.0d0 0.0d0 0.0d0 0.0d0))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
19 20 21 22 23 24 25
                         (LET ((V1
                                (MAKE-MARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS
                                             '(-34.5d0 8.24d0 3.29d0 -8.93d0
                                               34.12d0 -6.15d0 49.27d0
                                               -13.49d0))))
                           (SET-BASIS V1 2)
                           (CL-ARRAY V1))))
26 27 28 29 30
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST
                         #(#C(0.0 0.0) #C(0.0 0.0) #C(1.0 0.0) #C(0.0 0.0)
                           #C(0.0 0.0) #C(0.0 0.0) #C(0.0 0.0) #C(0.0 0.0)))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
31 32 33 34 35 36 37 38 39
                         (LET ((V1
                                (MAKE-MARRAY '(COMPLEX SINGLE-FLOAT)
                                             :INITIAL-CONTENTS
                                             '(-34.5 8.24 3.29 -8.93 34.12
                                               -6.15 49.27 -13.49 32.5 42.73
                                               -17.24 43.31 -16.12 -8.25 21.44
                                               -49.08))))
                           (SET-BASIS V1 2)
                           (CL-ARRAY V1))))
40 41 42 43 44 45
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST
                         #(#C(0.0d0 0.0d0) #C(0.0d0 0.0d0) #C(1.0d0 0.0d0)
                           #C(0.0d0 0.0d0) #C(0.0d0 0.0d0) #C(0.0d0 0.0d0)
                           #C(0.0d0 0.0d0) #C(0.0d0 0.0d0)))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
46 47 48 49 50 51 52 53 54 55
                         (LET ((V1
                                (MAKE-MARRAY '(COMPLEX DOUBLE-FLOAT)
                                             :INITIAL-CONTENTS
                                             '(-34.5d0 8.24d0 3.29d0 -8.93d0
                                               34.12d0 -6.15d0 49.27d0 -13.49d0
                                               32.5d0 42.73d0 -17.24d0 43.31d0
                                               -16.12d0 -8.25d0 21.44d0
                                               -49.08d0))))
                           (SET-BASIS V1 2)
                           (CL-ARRAY V1))))
56 57 58
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #(0 0 1 0 0 0 0 0))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
59 60 61 62 63
                         (LET ((V1
                                (MAKE-MARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS
                                             '(-64 -68 71 -91 52 -10 73 -5))))
                           (SET-BASIS V1 2)
                           (CL-ARRAY V1))))
64 65 66
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #(0 0 1 0 0 0 0 0))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
67 68 69 70 71 72
                         (LET ((V1
                                (MAKE-MARRAY '(UNSIGNED-BYTE 8)
                                             :INITIAL-CONTENTS
                                             '(67 44 189 116 163 140 161 215))))
                           (SET-BASIS V1 2)
                           (CL-ARRAY V1))))
73 74 75
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #(0 0 1 0 0 0 0 0))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
76 77 78 79 80 81
                         (LET ((V1
                                (MAKE-MARRAY '(SIGNED-BYTE 16)
                                             :INITIAL-CONTENTS
                                             '(-64 -68 71 -91 52 -10 73 -5))))
                           (SET-BASIS V1 2)
                           (CL-ARRAY V1))))
82 83 84
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #(0 0 1 0 0 0 0 0))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
85 86 87 88 89 90
                         (LET ((V1
                                (MAKE-MARRAY '(UNSIGNED-BYTE 16)
                                             :INITIAL-CONTENTS
                                             '(67 44 189 116 163 140 161 215))))
                           (SET-BASIS V1 2)
                           (CL-ARRAY V1))))
91 92 93
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #(0 0 1 0 0 0 0 0))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
94 95 96 97 98 99
                         (LET ((V1
                                (MAKE-MARRAY '(SIGNED-BYTE 32)
                                             :INITIAL-CONTENTS
                                             '(-64 -68 71 -91 52 -10 73 -5))))
                           (SET-BASIS V1 2)
                           (CL-ARRAY V1))))
100 101 102
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #(0 0 1 0 0 0 0 0))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
103 104 105 106 107 108
                         (LET ((V1
                                (MAKE-MARRAY '(UNSIGNED-BYTE 32)
                                             :INITIAL-CONTENTS
                                             '(67 44 189 116 163 140 161 215))))
                           (SET-BASIS V1 2)
                           (CL-ARRAY V1))))
109
		       #+int64
110 111 112
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #(0 0 1 0 0 0 0 0))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
113 114 115 116 117 118
                         (LET ((V1
                                (MAKE-MARRAY '(SIGNED-BYTE 64)
                                             :INITIAL-CONTENTS
                                             '(-64 -68 71 -91 52 -10 73 -5))))
                           (SET-BASIS V1 2)
                           (CL-ARRAY V1))))
119
		       #+int64
120 121 122
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #(0 0 1 0 0 0 0 0))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
123 124 125 126 127 128
                         (LET ((V1
                                (MAKE-MARRAY '(UNSIGNED-BYTE 64)
                                             :INITIAL-CONTENTS
                                             '(67 44 189 116 163 140 161 215))))
                           (SET-BASIS V1 2)
                           (CL-ARRAY V1)))))
129