projects
/
pspp
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a293df4
)
Test REREAD also.
author
Ben Pfaff
<blp@cs.stanford.edu>
Sat, 6 Nov 2021 18:56:20 +0000
(11:56 -0700)
committer
Ben Pfaff
<blp@cs.stanford.edu>
Sat, 6 Nov 2021 18:56:20 +0000
(11:56 -0700)
tests/language/stats/matrix.at
patch
|
blob
|
history
diff --git
a/tests/language/stats/matrix.at
b/tests/language/stats/matrix.at
index 8f1dba5d7f7d950958091a4e5a5229a6d9f1240a..87d9701a84a6aef19cbd8e53495f90caa1e8f65e 100644
(file)
--- a/
tests/language/stats/matrix.at
+++ b/
tests/language/stats/matrix.at
@@
-2542,6
+2542,13
@@
AT_DATA([matrix2.txt], [dnl
23, 29, 31, 37
41, 43, 47, 53
])
23, 29, 31, 37
41, 43, 47, 53
])
+AT_DATA([matrix3.txt], [dnl
+1 5
+3 1 2 3
+5 6 -1 2 5 1
+2 8 9
+3 1 3 2
+])
AT_DATA([matrix.sps], [dnl
MATRIX.
READ x/FILE='matrix.txt'/SIZE=4/FIELD=1 TO 1.
AT_DATA([matrix.sps], [dnl
MATRIX.
READ x/FILE='matrix.txt'/SIZE=4/FIELD=1 TO 1.
@@
-2564,6
+2571,13
@@
READ x/FILE='matrix2.txt'/SIZE={1,4}/FIELD=1 TO 80.
COMPUTE y={y; x}.
END LOOP.
PRINT y.
COMPUTE y={y; x}.
END LOOP.
PRINT y.
+
+COMPUTE m = MAKE(5, 5, 0).
+LOOP i = 1 TO 5.
+READ count /FILE='matrix3.txt' /FIELD=1 TO 1 /SIZE=1.
+READ m(i, 1:count) /FIELD=3 TO 100 /REREAD.
+END LOOP.
+PRINT m.
END MATRIX.
])
AT_CHECK([pspp matrix.sps], [0], [dnl
END MATRIX.
])
AT_CHECK([pspp matrix.sps], [0], [dnl
@@
-2599,6
+2613,13
@@
y
11 13 17 19
23 29 31 37
41 43 47 53
11 13 17 19
23 29 31 37
41 43 47 53
+
+m
+ 5 0 0 0 0
+ 1 2 3 0 0
+ 6 -1 2 5 1
+ 8 9 0 0 0
+ 1 3 2 0 0
])
AT_CLEANUP
])
AT_CLEANUP