Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
G
gsll
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
3
Issues
3
List
Boards
Labels
Service Desk
Milestones
Merge Requests
4
Merge Requests
4
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
antik
gsll
Commits
37f446c7
Commit
37f446c7
authored
Jan 10, 2011
by
Liam M. Healy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Single-float tests have explicit single-float numbers (continued)
parent
80544fee
Changes
13
Hide whitespace changes
Inline
Side-by-side
Showing
13 changed files
with
1613 additions
and
1659 deletions
+1613
-1659
tests/blas-copy.lisp
tests/blas-copy.lisp
+5
-5
tests/blas-swap.lisp
tests/blas-swap.lisp
+8
-8
tests/matrix-add.lisp
tests/matrix-add.lisp
+148
-148
tests/matrix-div.lisp
tests/matrix-div.lisp
+150
-150
tests/matrix-max-index.lisp
tests/matrix-max-index.lisp
+137
-147
tests/matrix-max.lisp
tests/matrix-max.lisp
+137
-147
tests/matrix-mean.lisp
tests/matrix-mean.lisp
+120
-120
tests/matrix-min-index.lisp
tests/matrix-min-index.lisp
+137
-147
tests/matrix-min.lisp
tests/matrix-min.lisp
+137
-147
tests/matrix-minmax-index.lisp
tests/matrix-minmax-index.lisp
+152
-157
tests/matrix-minmax.lisp
tests/matrix-minmax.lisp
+137
-140
tests/matrix-mult.lisp
tests/matrix-mult.lisp
+168
-166
tests/matrix-product.lisp
tests/matrix-product.lisp
+177
-177
No files found.
tests/blas-copy.lisp
View file @
37f446c7
;; Regression test BLAS-COPY for GSLL, automatically generated
;;
;; Copyright 2009, 2010 Liam M. Healy
;; Copyright 2009, 2010
, 2011
Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
...
...
@@ -20,11 +20,11 @@
(
LISP-UNIT:DEFINE-TEST
BLAS-COPY
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#(
-34.5
8.24
3.29
))
(
LIST
#(
-34.5
f0
8.24f0
3.29f0
))
(
MULTIPLE-VALUE-LIST
(
LET
((
V1
(
GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'
(
-34.5
8.24
3.29
)))
'SINGLE-FLOAT
:INITIAL-CONTENTS
'
(
-34.5
f0
8.24f0
3.29f0
)))
(
V2
(
GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:DIMENSIONS
'3
)))
(
BLAS-COPY
V1
V2
)
(
GRID:COPY-TO
V2
))))
...
...
@@ -38,13 +38,13 @@
(
BLAS-COPY
V1
V2
)
(
GRID:COPY-TO
V2
))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#(
#C
(
-34.5
8.24
)
#C
(
3.29
-8.93
)
#C
(
34.12
-6.15
)))
(
LIST
#(
#C
(
-34.5
f0
8.24f0
)
#C
(
3.29f0
-8.93f0
)
#C
(
34.12f0
-6.15f0
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
V1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
COMPLEX
SINGLE-FLOAT
)
:INITIAL-CONTENTS
'
(
#C
(
-34.5
8.24
)
#C
(
3.29
-8.93
)
#C
(
34.12
-6.15
))))
'
(
#C
(
-34.5
f0
8.24f0
)
#C
(
3.29f0
-8.93f0
)
#C
(
34.12f0
-6.15f0
))))
(
V2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
COMPLEX
SINGLE-FLOAT
)
:DIMENSIONS
'3
)))
...
...
tests/blas-swap.lisp
View file @
37f446c7
;; Regression test BLAS-SWAP for GSLL, automatically generated
;;
;; Copyright 2009, 2010 Liam M. Healy
;; Copyright 2009, 2010
, 2011
Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
...
...
@@ -20,16 +20,16 @@
(
LISP-UNIT:DEFINE-TEST
BLAS-SWAP
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
(
LIST
#(
-8.93
34.12
-6.15
)
#(
-34.5
8.24
3.29
)))
(
LIST
(
LIST
#(
-8.93
f0
34.12f0
-6.15f0
)
#(
-34.5f0
8.24f0
3.29f0
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
V1
(
GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'
(
-34.5
8.24
3.29
)))
'
(
-34.5
f0
8.24f0
3.29f0
)))
(
V2
(
GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'
(
-8.93
34.12
-6.15
))))
'
(
-8.93
f0
34.12f0
-6.15f0
))))
(
BLAS-SWAP
V2
V1
)
(
LIST
(
GRID:COPY-TO
V1
)
(
GRID:COPY-TO
V2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
...
...
@@ -50,19 +50,19 @@
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
(
LIST
#(
#C
(
-8.93
34.12
)
#C
(
-6.15
49.27
)
#C
(
-13.49
32.5
))
#(
#C
(
-34.5
8.24
)
#C
(
3.29
-8.93
)
#C
(
34.12
-6.15
))))
#(
#C
(
-8.93
f0
34.12f0
)
#C
(
-6.15f0
49.27f0
)
#C
(
-13.49f0
32.5f0
))
#(
#C
(
-34.5
f0
8.24f0
)
#C
(
3.29f0
-8.93f0
)
#C
(
34.12f0
-6.15f0
))))
(
MULTIPLE-VALUE-LIST
(
LET
((
V1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
COMPLEX
SINGLE-FLOAT
)
:INITIAL-CONTENTS
'
(
#C
(
-34.5
8.24
)
#C
(
3.29
-8.93
)
#C
(
34.12
-6.15
))))
'
(
#C
(
-34.5
f0
8.24f0
)
#C
(
3.29f0
-8.93f0
)
#C
(
34.12f0
-6.15f0
))))
(
V2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
COMPLEX
SINGLE-FLOAT
)
:INITIAL-CONTENTS
'
(
#C
(
-8.93
34.12
)
#C
(
-6.15
49.27
)
#C
(
-13.49
32.5
)))))
'
(
#C
(
-8.93
f0
34.12f0
)
#C
(
-6.15f0
49.27f0
)
#C
(
-13.49f0
32.5f0
)))))
(
BLAS-SWAP
V2
V1
)
(
LIST
(
GRID:COPY-TO
V1
)
(
GRID:COPY-TO
V2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
...
...
tests/matrix-add.lisp
View file @
37f446c7
;; Regression test MATRIX-ADD for GSLL, automatically generated
;;
;; Copyright 2009 Liam M. Healy
;; Copyright 2009
, 2011
Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
...
...
@@ -19,151 +19,151 @@
(
in-package
:gsl
)
(
LISP-UNIT:DEFINE-TEST
MATRIX-ADD
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
8.23
-9.0
46.600002
)
(
-25.050001
25.869999
15.290001
)
(
0.18999863
-53.15
-16.96
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'
((
-34.5
8.24
3.29
)
(
-8.93
34.12
-6.15
)
(
49.27
-13.49
32.5
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'
((
42.73
-17.24
43.31
)
(
-16.12
-8.25
21.44
)
(
-49.08
-39.66
-49.46
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
8.229999999999997d0
-8.999999999999998d0
46.6d0
)
(
-25.05d0
25.869999999999997d0
15.290000000000001d0
)
(
0.19000000000000483d0
-53.15d0
-16.96d0
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'DOUBLE-FLOAT
:INITIAL-CONTENTS
'
((
-34.5d0
8.24d0
3.29d0
)
(
-8.93d0
34.12d0
-6.15d0
)
(
49.27d0
-13.49d0
32.5d0
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'DOUBLE-FLOAT
:INITIAL-CONTENTS
'
((
42.73d0
-17.24d0
43.31d0
)
(
-16.12d0
-8.25d0
21.44d0
)
(
-49.08d0
-39.66d0
-49.46d0
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-32
-40
101
)
(
-54
-21
-18
)
(
58
-27
-65
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
8
)
:INITIAL-CONTENTS
'
((
-64
-68
71
)
(
-91
52
-10
)
(
73
-5
123
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
8
)
:INITIAL-CONTENTS
'
((
32
28
30
)
(
37
-73
-8
)
(
-15
-22
68
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
95
54
208
)
(
144
85
101
)
(
197
68
64
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
8
)
:INITIAL-CONTENTS
'
((
67
44
189
)
(
116
163
140
)
(
161
215
98
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
8
)
:INITIAL-CONTENTS
'
((
28
10
19
)
(
28
178
217
)
(
36
109
222
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-32
-40
101
)
(
-54
-21
-18
)
(
58
-27
191
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
16
)
:INITIAL-CONTENTS
'
((
-64
-68
71
)
(
-91
52
-10
)
(
73
-5
123
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
16
)
:INITIAL-CONTENTS
'
((
32
28
30
)
(
37
-73
-8
)
(
-15
-22
68
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
95
54
208
)
(
144
341
357
)
(
197
324
320
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
16
)
:INITIAL-CONTENTS
'
((
67
44
189
)
(
116
163
140
)
(
161
215
98
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
16
)
:INITIAL-CONTENTS
'
((
28
10
19
)
(
28
178
217
)
(
36
109
222
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-32
-40
101
)
(
-54
-21
-18
)
(
58
-27
191
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
32
)
:INITIAL-CONTENTS
'
((
-64
-68
71
)
(
-91
52
-10
)
(
73
-5
123
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
32
)
:INITIAL-CONTENTS
'
((
32
28
30
)
(
37
-73
-8
)
(
-15
-22
68
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
95
54
208
)
(
144
341
357
)
(
197
324
320
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
32
)
:INITIAL-CONTENTS
'
((
67
44
189
)
(
116
163
140
)
(
161
215
98
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
32
)
:INITIAL-CONTENTS
'
((
28
10
19
)
(
28
178
217
)
(
36
109
222
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
#+
int64
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-32
-40
101
)
(
-54
-21
-18
)
(
58
-27
191
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
64
)
:INITIAL-CONTENTS
'
((
-64
-68
71
)
(
-91
52
-10
)
(
73
-5
123
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
64
)
:INITIAL-CONTENTS
'
((
32
28
30
)
(
37
-73
-8
)
(
-15
-22
68
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
#+
int64
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
95
54
208
)
(
144
341
357
)
(
197
324
320
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
64
)
:INITIAL-CONTENTS
'
((
67
44
189
)
(
116
163
140
)
(
161
215
98
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
64
)
:INITIAL-CONTENTS
'
((
28
10
19
)
(
28
178
217
)
(
36
109
222
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
))))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
8.23f0
-9.0f0
46.600002f0
)
(
-25.050001f0
25.869999f0
15.290001f0
)
(
0.18999863f0
-53.15f0
-16.96f0
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'
((
-34.5f0
8.24f0
3.29f0
)
(
-8.93f0
34.12f0
-6.15f0
)
(
49.27f0
-13.49f0
32.5f0
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'
((
42.73f0
-17.24f0
43.31f0
)
(
-16.12f0
-8.25f0
21.44f0
)
(
-49.08f0
-39.66f0
-49.46f0
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
8.229999999999997d0
-8.999999999999998d0
46.6d0
)
(
-25.05d0
25.869999999999997d0
15.290000000000001d0
)
(
0.19000000000000483d0
-53.15d0
-16.96d0
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'DOUBLE-FLOAT
:INITIAL-CONTENTS
'
((
-34.5d0
8.24d0
3.29d0
)
(
-8.93d0
34.12d0
-6.15d0
)
(
49.27d0
-13.49d0
32.5d0
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'DOUBLE-FLOAT
:INITIAL-CONTENTS
'
((
42.73d0
-17.24d0
43.31d0
)
(
-16.12d0
-8.25d0
21.44d0
)
(
-49.08d0
-39.66d0
-49.46d0
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-32
-40
101
)
(
-54
-21
-18
)
(
58
-27
-65
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
8
)
:INITIAL-CONTENTS
'
((
-64
-68
71
)
(
-91
52
-10
)
(
73
-5
123
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
8
)
:INITIAL-CONTENTS
'
((
32
28
30
)
(
37
-73
-8
)
(
-15
-22
68
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
95
54
208
)
(
144
85
101
)
(
197
68
64
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
8
)
:INITIAL-CONTENTS
'
((
67
44
189
)
(
116
163
140
)
(
161
215
98
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
8
)
:INITIAL-CONTENTS
'
((
28
10
19
)
(
28
178
217
)
(
36
109
222
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-32
-40
101
)
(
-54
-21
-18
)
(
58
-27
191
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
16
)
:INITIAL-CONTENTS
'
((
-64
-68
71
)
(
-91
52
-10
)
(
73
-5
123
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
16
)
:INITIAL-CONTENTS
'
((
32
28
30
)
(
37
-73
-8
)
(
-15
-22
68
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
95
54
208
)
(
144
341
357
)
(
197
324
320
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
16
)
:INITIAL-CONTENTS
'
((
67
44
189
)
(
116
163
140
)
(
161
215
98
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
16
)
:INITIAL-CONTENTS
'
((
28
10
19
)
(
28
178
217
)
(
36
109
222
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-32
-40
101
)
(
-54
-21
-18
)
(
58
-27
191
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
32
)
:INITIAL-CONTENTS
'
((
-64
-68
71
)
(
-91
52
-10
)
(
73
-5
123
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
32
)
:INITIAL-CONTENTS
'
((
32
28
30
)
(
37
-73
-8
)
(
-15
-22
68
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
95
54
208
)
(
144
341
357
)
(
197
324
320
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
32
)
:INITIAL-CONTENTS
'
((
67
44
189
)
(
116
163
140
)
(
161
215
98
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
32
)
:INITIAL-CONTENTS
'
((
28
10
19
)
(
28
178
217
)
(
36
109
222
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
#+
int64
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-32
-40
101
)
(
-54
-21
-18
)
(
58
-27
191
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
64
)
:INITIAL-CONTENTS
'
((
-64
-68
71
)
(
-91
52
-10
)
(
73
-5
123
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
64
)
:INITIAL-CONTENTS
'
((
32
28
30
)
(
37
-73
-8
)
(
-15
-22
68
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
)))))
#+
int64
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
95
54
208
)
(
144
341
357
)
(
197
324
320
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
64
)
:INITIAL-CONTENTS
'
((
67
44
189
)
(
116
163
140
)
(
161
215
98
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
64
)
:INITIAL-CONTENTS
'
((
28
10
19
)
(
28
178
217
)
(
36
109
222
)))))
(
GRID:COPY-TO
(
ELT+
M1
M2
))))))
tests/matrix-div.lisp
View file @
37f446c7
;; Regression test MATRIX-DIV for GSLL, automatically generated
;;
;; Copyright 2009 Liam M. Healy
;; Copyright 2009
, 2011
Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
...
...
@@ -19,153 +19,153 @@
(
in-package
:gsl
)
(
LISP-UNIT:DEFINE-TEST
MATRIX-DIV
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-0.8073953
-0.47795823
0.075963974
)
(
0.5539702
-4.1357574
-0.28684703
)
(
-1.0038712
0.3401412
-0.6570967
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'
((
-34.5
8.24
3.29
)
(
-8.93
34.12
-6.15
)
(
49.27
-13.49
32.5
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'
((
42.73
-17.24
43.31
)
(
-16.12
-8.25
21.44
)
(
-49.08
-39.66
-49.46
)))))
(
GRID:COPY-TO
(
ELT/
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-0.8073952726421718d0
-0.4779582366589328d0
0.07596398060494113d0
)
(
0.553970223325062d0
-4.135757575757576d0
-0.2868470149253731d0
)
(
-1.0038712306438469d0
0.3401412002017146d0
-0.6570966437525273d0
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'DOUBLE-FLOAT
:INITIAL-CONTENTS
'
((
-34.5d0
8.24d0
3.29d0
)
(
-8.93d0
34.12d0
-6.15d0
)
(
49.27d0
-13.49d0
32.5d0
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'DOUBLE-FLOAT
:INITIAL-CONTENTS
'
((
42.73d0
-17.24d0
43.31d0
)
(
-16.12d0
-8.25d0
21.44d0
)
(
-49.08d0
-39.66d0
-49.46d0
)))))
(
GRID:COPY-TO
(
ELT/
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-2
-2
2
)
(
-2
0
1
)
(
-4
0
1
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
8
)
:INITIAL-CONTENTS
'
((
-64
-68
71
)
(
-91
52
-10
)
(
73
-5
123
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
8
)
:INITIAL-CONTENTS
'
((
32
28
30
)
(
37
-73
-8
)
(
-15
-22
68
)))))
(
GRID:COPY-TO
(
ELT/
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
2
4
9
)
(
4
0
0
)
(
4
1
0
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
8
)
:INITIAL-CONTENTS
'
((
67
44
189
)
(
116
163
140
)
(
161
215
98
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
8
)
:INITIAL-CONTENTS
'
((
28
10
19
)
(
28
178
217
)
(
36
109
222
)))))
(
GRID:COPY-TO
(
ELT/
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-2
-2
2
)
(
-2
0
1
)
(
-4
0
1
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
16
)
:INITIAL-CONTENTS
'
((
-64
-68
71
)
(
-91
52
-10
)
(
73
-5
123
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
16
)
:INITIAL-CONTENTS
'
((
32
28
30
)
(
37
-73
-8
)
(
-15
-22
68
)))))
(
GRID:COPY-TO
(
ELT/
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
2
4
9
)
(
4
0
0
)
(
4
1
0
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
16
)
:INITIAL-CONTENTS
'
((
67
44
189
)
(
116
163
140
)
(
161
215
98
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
16
)
:INITIAL-CONTENTS
'
((
28
10
19
)
(
28
178
217
)
(
36
109
222
)))))
(
GRID:COPY-TO
(
ELT/
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-2
-2
2
)
(
-2
0
1
)
(
-4
0
1
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
32
)
:INITIAL-CONTENTS
'
((
-64
-68
71
)
(
-91
52
-10
)
(
73
-5
123
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
32
)
:INITIAL-CONTENTS
'
((
32
28
30
)
(
37
-73
-8
)
(
-15
-22
68
)))))
(
GRID:COPY-TO
(
ELT/
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
2
4
9
)
(
4
0
0
)
(
4
1
0
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
32
)
:INITIAL-CONTENTS
'
((
67
44
189
)
(
116
163
140
)
(
161
215
98
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
32
)
:INITIAL-CONTENTS
'
((
28
10
19
)
(
28
178
217
)
(
36
109
222
)))))
(
GRID:COPY-TO
(
ELT/
M1
M2
)))))
#+
int64
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-2
-2
2
)
(
-2
0
1
)
(
-4
0
1
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
64
)
:INITIAL-CONTENTS
'
((
-64
-68
71
)
(
-91
52
-10
)
(
73
-5
123
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
64
)
:INITIAL-CONTENTS
'
((
32
28
30
)
(
37
-73
-8
)
(
-15
-22
68
)))))
(
GRID:COPY-TO
(
ELT/
M1
M2
)))))
#+
int64
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
2
4
9
)
(
4
0
0
)
(
4
1
0
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
64
)
:INITIAL-CONTENTS
'
((
67
44
189
)
(
116
163
140
)
(
161
215
98
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
UNSIGNED-BYTE
64
)
:INITIAL-CONTENTS
'
((
28
10
19
)
(
28
178
217
)
(
36
109
222
)))))
(
GRID:COPY-TO
(
ELT/
M1
M2
))))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-0.8073953f0
-0.47795823f0
0.075963974f0
)
(
0.5539702f0
-4.1357574f0
-0.28684703f0
)
(
-1.0038712f0
0.3401412f0
-0.6570967f0
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'
((
-34.5f0
8.24f0
3.29f0
)
(
-8.93f0
34.12f0
-6.15f0
)
(
49.27f0
-13.49f0
32.5f0
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'
((
42.73f0
-17.24f0
43.31f0
)
(
-16.12f0
-8.25f0
21.44f0
)
(
-49.08f0
-39.66f0
-49.46f0
)))))
(
GRID:COPY-TO
(
ELT/
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-0.8073952726421718d0
-0.4779582366589328d0
0.07596398060494113d0
)
(
0.553970223325062d0
-4.135757575757576d0
-0.2868470149253731d0
)
(
-1.0038712306438469d0
0.3401412002017146d0
-0.6570966437525273d0
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'DOUBLE-FLOAT
:INITIAL-CONTENTS
'
((
-34.5d0
8.24d0
3.29d0
)
(
-8.93d0
34.12d0
-6.15d0
)
(
49.27d0
-13.49d0
32.5d0
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'DOUBLE-FLOAT
:INITIAL-CONTENTS
'
((
42.73d0
-17.24d0
43.31d0
)
(
-16.12d0
-8.25d0
21.44d0
)
(
-49.08d0
-39.66d0
-49.46d0
)))))
(
GRID:COPY-TO
(
ELT/
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
-2
-2
2
)
(
-2
0
1
)
(
-4
0
1
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
8
)
:INITIAL-CONTENTS
'
((
-64
-68
71
)
(
-91
52
-10
)
(
73
-5
123
))))
(
M2
(
GRID:MAKE-FOREIGN-ARRAY
'
(
SIGNED-BYTE
8
)
:INITIAL-CONTENTS
'
((
32
28
30
)
(
37
-73
-8
)
(
-15
-22
68
)))))
(
GRID:COPY-TO
(
ELT/
M1
M2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL