setf-column.lisp 10.5 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11
;; Regression test SETF-COLUMN for GSLL, automatically generated

(in-package :gsl)

(LISP-UNIT:DEFINE-TEST SETF-COLUMN
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST
                         #2A((-34.5 8.24 42.73)
                             (-8.93 34.12 -17.24)
                             (49.27 -13.49 43.31)))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
12 13 14 15 16 17 18 19 20 21
                         (LET ((M1
                                (MAKE-MARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
                                             '((-34.5 8.24 3.29)
                                               (-8.93 34.12 -6.15)
                                               (49.27 -13.49 32.5))))
                               (COL
                                (MAKE-MARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
                                             '(42.73 -17.24 43.31))))
                           (SETF (COLUMN M1 2) COL)
                           (CL-ARRAY M1))))
22 23 24 25 26 27
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST
                         #2A((-34.5d0 8.24d0 42.73d0)
                             (-8.93d0 34.12d0 -17.24d0)
                             (49.27d0 -13.49d0 43.31d0)))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
28 29 30 31 32 33 34 35 36 37
                         (LET ((M1
                                (MAKE-MARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS
                                             '((-34.5d0 8.24d0 3.29d0)
                                               (-8.93d0 34.12d0 -6.15d0)
                                               (49.27d0 -13.49d0 32.5d0))))
                               (COL
                                (MAKE-MARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS
                                             '(42.73d0 -17.24d0 43.31d0))))
                           (SETF (COLUMN M1 2) COL)
                           (CL-ARRAY M1))))
38 39 40 41 42 43 44
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST
                         #2A((#C(-34.5 8.24) #C(3.29 -8.93) #C(42.73 -17.24))
                             (#C(-8.93 34.12) #C(-6.15 49.27) #C(43.31 -16.12))
                             (#C(49.27 -13.49) #C(32.5 42.73)
                              #C(-8.25 21.44))))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
                         (LET ((M1
                                (MAKE-MARRAY '(COMPLEX SINGLE-FLOAT)
                                             :INITIAL-CONTENTS
                                             '((-34.5 8.24 3.29 -8.93 34.12
                                                -6.15)
                                               (-8.93 34.12 -6.15 49.27 -13.49
                                                32.5)
                                               (49.27 -13.49 32.5 42.73 -17.24
                                                43.31))))
                               (COL
                                (MAKE-MARRAY '(COMPLEX SINGLE-FLOAT)
                                             :INITIAL-CONTENTS
                                             '(42.73 -17.24 43.31 -16.12 -8.25
                                               21.44))))
                           (SETF (COLUMN M1 2) COL)
                           (CL-ARRAY M1))))
61 62 63 64 65 66 67 68 69
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST
                         #2A((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0)
                              #C(42.73d0 -17.24d0))
                             (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0)
                              #C(43.31d0 -16.12d0))
                             (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0)
                              #C(-8.25d0 21.44d0))))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85
                         (LET ((M1
                                (MAKE-MARRAY '(COMPLEX DOUBLE-FLOAT)
                                             :INITIAL-CONTENTS
                                             '((-34.5d0 8.24d0 3.29d0 -8.93d0
                                                34.12d0 -6.15d0)
                                               (-8.93d0 34.12d0 -6.15d0 49.27d0
                                                -13.49d0 32.5d0)
                                               (49.27d0 -13.49d0 32.5d0 42.73d0
                                                -17.24d0 43.31d0))))
                               (COL
                                (MAKE-MARRAY '(COMPLEX DOUBLE-FLOAT)
                                             :INITIAL-CONTENTS
                                             '(42.73d0 -17.24d0 43.31d0
                                               -16.12d0 -8.25d0 21.44d0))))
                           (SETF (COLUMN M1 2) COL)
                           (CL-ARRAY M1))))
86 87 88
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #2A((-64 -68 32) (-91 52 28) (73 -5 30)))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
89 90 91 92 93 94 95 96 97
                         (LET ((M1
                                (MAKE-MARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS
                                             '((-64 -68 71) (-91 52 -10)
                                               (73 -5 123))))
                               (COL
                                (MAKE-MARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS
                                             '(32 28 30))))
                           (SETF (COLUMN M1 2) COL)
                           (CL-ARRAY M1))))
98 99 100
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #2A((67 44 28) (116 163 10) (161 215 19)))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
101 102 103 104 105 106 107 108 109 110
                         (LET ((M1
                                (MAKE-MARRAY '(UNSIGNED-BYTE 8)
                                             :INITIAL-CONTENTS
                                             '((67 44 189) (116 163 140)
                                               (161 215 98))))
                               (COL
                                (MAKE-MARRAY '(UNSIGNED-BYTE 8)
                                             :INITIAL-CONTENTS '(28 10 19))))
                           (SETF (COLUMN M1 2) COL)
                           (CL-ARRAY M1))))
111 112 113
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #2A((-64 -68 32) (-91 52 28) (73 -5 30)))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
114 115 116 117 118 119 120 121 122 123
                         (LET ((M1
                                (MAKE-MARRAY '(SIGNED-BYTE 16)
                                             :INITIAL-CONTENTS
                                             '((-64 -68 71) (-91 52 -10)
                                               (73 -5 123))))
                               (COL
                                (MAKE-MARRAY '(SIGNED-BYTE 16)
                                             :INITIAL-CONTENTS '(32 28 30))))
                           (SETF (COLUMN M1 2) COL)
                           (CL-ARRAY M1))))
124 125 126
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #2A((67 44 28) (116 163 10) (161 215 19)))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
127 128 129 130 131 132 133 134 135 136
                         (LET ((M1
                                (MAKE-MARRAY '(UNSIGNED-BYTE 16)
                                             :INITIAL-CONTENTS
                                             '((67 44 189) (116 163 140)
                                               (161 215 98))))
                               (COL
                                (MAKE-MARRAY '(UNSIGNED-BYTE 16)
                                             :INITIAL-CONTENTS '(28 10 19))))
                           (SETF (COLUMN M1 2) COL)
                           (CL-ARRAY M1))))
137 138 139
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #2A((-64 -68 32) (-91 52 28) (73 -5 30)))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
140 141 142 143 144 145 146 147 148 149
                         (LET ((M1
                                (MAKE-MARRAY '(SIGNED-BYTE 32)
                                             :INITIAL-CONTENTS
                                             '((-64 -68 71) (-91 52 -10)
                                               (73 -5 123))))
                               (COL
                                (MAKE-MARRAY '(SIGNED-BYTE 32)
                                             :INITIAL-CONTENTS '(32 28 30))))
                           (SETF (COLUMN M1 2) COL)
                           (CL-ARRAY M1))))
150 151 152
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #2A((67 44 28) (116 163 10) (161 215 19)))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
153 154 155 156 157 158 159 160 161 162
                         (LET ((M1
                                (MAKE-MARRAY '(UNSIGNED-BYTE 32)
                                             :INITIAL-CONTENTS
                                             '((67 44 189) (116 163 140)
                                               (161 215 98))))
                               (COL
                                (MAKE-MARRAY '(UNSIGNED-BYTE 32)
                                             :INITIAL-CONTENTS '(28 10 19))))
                           (SETF (COLUMN M1 2) COL)
                           (CL-ARRAY M1))))
163
		       #+int64
164 165 166
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #2A((-64 -68 32) (-91 52 28) (73 -5 30)))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
167 168 169 170 171 172 173 174 175 176
                         (LET ((M1
                                (MAKE-MARRAY '(SIGNED-BYTE 64)
                                             :INITIAL-CONTENTS
                                             '((-64 -68 71) (-91 52 -10)
                                               (73 -5 123))))
                               (COL
                                (MAKE-MARRAY '(SIGNED-BYTE 64)
                                             :INITIAL-CONTENTS '(32 28 30))))
                           (SETF (COLUMN M1 2) COL)
                           (CL-ARRAY M1))))
177
		       #+int64
178 179 180
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST #2A((67 44 28) (116 163 10) (161 215 19)))
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
181 182 183 184 185 186 187 188 189 190
                         (LET ((M1
                                (MAKE-MARRAY '(UNSIGNED-BYTE 64)
                                             :INITIAL-CONTENTS
                                             '((67 44 189) (116 163 140)
                                               (161 215 98))))
                               (COL
                                (MAKE-MARRAY '(UNSIGNED-BYTE 64)
                                             :INITIAL-CONTENTS '(28 10 19))))
                           (SETF (COLUMN M1 2) COL)
                           (CL-ARRAY M1)))))
191