sys-file-reader: Tolerate duplicate document records.

[pspp] / tests / data / file.at

diff --git a/tests/data/file.at b/tests/data/file.at
index 6fcbe579aae3ece1afcdf29c9a2c105a5a56cd6d..d3013d7501ab2be6efc16698de34b96bc81b0a80 100644 (file)
--- a/tests/data/file.at
+++ b/tests/data/file.at
@@ -120,3 +120,21 @@ x,y
 ])
 
 AT_CLEANUP
+
+
+dnl This was seen to crash pspp
+AT_SETUP([Reusing inline file])
+
+AT_DATA([inline-reuse.sps], [dnl
+get data /type=txt /file=inline  /variables=A f7.2 .
+
+data list notable list /foo.
+begin data.
+end data.
+
+data list notable list /foo.
+])
+
+AT_CHECK([pspp inline-reuse.sps], [0], [ignore])
+
+AT_CLEANUP