From: Ben Pfaff 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