From: Ben Pfaff <blp@cs.stanford.edu>
Date: Sat, 6 Nov 2021 18:56:20 +0000 (-0700)
Subject: Test REREAD also.
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bbfeb4a435bd92c7b1aac3a689c00c87dd016b6d;p=pspp

Test REREAD also.
---

diff --git a/tests/language/stats/matrix.at b/tests/language/stats/matrix.at
index 8f1dba5d7f..87d9701a84 100644
--- 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
 ])
+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.
@@ -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 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
@@ -2599,6 +2613,13 @@ y
   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