matrix-max.lisp 10.9 KB
Newer Older
1 2 3 4 5 6 7
;; Regression test MATRIX-MAX for GSLL, automatically generated

(in-package :gsl)

(LISP-UNIT:DEFINE-TEST MATRIX-MAX
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 49.27)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
8 9 10 11 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)))))
                                                             (MMAX M1))))
22 23
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 49.27d0)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
24 25 26 27 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)))))
                                                             (MMAX M1))))
38 39
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 123)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
40 41 42 43 44 45 46 47 48 49 50 51
                                                           (LET ((M1
                                                                  (MAKE-MARRAY
                                                                   '(SIGNED-BYTE
                                                                     8)
                                                                   :INITIAL-CONTENTS
                                                                   '((-64 -68
                                                                      71)
                                                                     (-91 52
                                                                      -10)
                                                                     (73 -5
                                                                      123)))))
                                                             (MMAX M1))))
52 53
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 215)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
54 55 56 57 58 59 60 61 62 63 64 65
                                                           (LET ((M1
                                                                  (MAKE-MARRAY
                                                                   '(UNSIGNED-BYTE
                                                                     8)
                                                                   :INITIAL-CONTENTS
                                                                   '((67 44
                                                                      189)
                                                                     (116 163
                                                                      140)
                                                                     (161 215
                                                                      98)))))
                                                             (MMAX M1))))
66 67
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 123)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
68 69 70 71 72 73 74 75 76 77 78 79
                                                           (LET ((M1
                                                                  (MAKE-MARRAY
                                                                   '(SIGNED-BYTE
                                                                     16)
                                                                   :INITIAL-CONTENTS
                                                                   '((-64 -68
                                                                      71)
                                                                     (-91 52
                                                                      -10)
                                                                     (73 -5
                                                                      123)))))
                                                             (MMAX M1))))
80 81
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 215)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
82 83 84 85 86 87 88 89 90 91 92 93
                                                           (LET ((M1
                                                                  (MAKE-MARRAY
                                                                   '(UNSIGNED-BYTE
                                                                     16)
                                                                   :INITIAL-CONTENTS
                                                                   '((67 44
                                                                      189)
                                                                     (116 163
                                                                      140)
                                                                     (161 215
                                                                      98)))))
                                                             (MMAX M1))))
94 95
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 123)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
96 97 98 99 100 101 102 103 104 105 106 107
                                                           (LET ((M1
                                                                  (MAKE-MARRAY
                                                                   '(SIGNED-BYTE
                                                                     32)
                                                                   :INITIAL-CONTENTS
                                                                   '((-64 -68
                                                                      71)
                                                                     (-91 52
                                                                      -10)
                                                                     (73 -5
                                                                      123)))))
                                                             (MMAX M1))))
108 109
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 215)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
110 111 112 113 114 115 116 117 118 119 120 121
                                                           (LET ((M1
                                                                  (MAKE-MARRAY
                                                                   '(UNSIGNED-BYTE
                                                                     32)
                                                                   :INITIAL-CONTENTS
                                                                   '((67 44
                                                                      189)
                                                                     (116 163
                                                                      140)
                                                                     (161 215
                                                                      98)))))
                                                             (MMAX M1))))
122
		       #+int64
123 124
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 123)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
125 126 127 128 129 130 131 132 133 134 135 136
                                                           (LET ((M1
                                                                  (MAKE-MARRAY
                                                                   '(SIGNED-BYTE
                                                                     64)
                                                                   :INITIAL-CONTENTS
                                                                   '((-64 -68
                                                                      71)
                                                                     (-91 52
                                                                      -10)
                                                                     (73 -5
                                                                      123)))))
                                                             (MMAX M1))))
137
		       #+int64
138 139
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 215)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
140 141 142 143 144 145 146 147 148 149 150 151
                                                           (LET ((M1
                                                                  (MAKE-MARRAY
                                                                   '(UNSIGNED-BYTE
                                                                     64)
                                                                   :INITIAL-CONTENTS
                                                                   '((67 44
                                                                      189)
                                                                     (116 163
                                                                      140)
                                                                     (161 215
                                                                      98)))))
                                                             (MMAX M1)))))
152