X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Flanguage%2Fdata-io%2Fdataset.at;h=885520ed09b68021cff5a5410eb6178bf432044c;hb=60c816f21021ce094a6ecd16c5c49ba8aaef7436;hp=f901410d98c52678ab1a2acb2069e7030c7c94fc;hpb=facb4a1ad3c9e8b2cdf55824680eed2afb91aebe;p=pspp

diff --git a/tests/language/data-io/dataset.at b/tests/language/data-io/dataset.at
index f901410d98..885520ed09 100644
--- a/tests/language/data-io/dataset.at
+++ b/tests/language/data-io/dataset.at
@@ -294,3 +294,36 @@ Table: Datasets
 unnamed dataset (active dataset)
 ])
 AT_CLEANUP
+
+
+
+dnl The bug for which the following test checks, is apparent only
+dnl when compiled with -fsanitize=address or run under valgrind
+AT_SETUP([DATASET heap overflow])
+AT_DATA([dataset.pspp], [dnl
+DATASET DECLARE initial.
+DATA LIST /x 1.
+
+DATASET COPY subsq.
+
+DATA LIST /y 2-4.
+BEGIN DATA.
+7
+END DATA.
+
+DATASET ACTIVATE subsq.
+
+LIST.
+])
+
+AT_CHECK([pspp -O format=csv dataset.pspp], [0], [dnl
+Table: Reading 1 record from INLINE.
+Variable,Record,Columns,Format
+x,1,1-  1,F1.0
+
+Table: Reading 1 record from INLINE.
+Variable,Record,Columns,Format
+y,1,2-  4,F3.0
+])
+
+AT_CLEANUP
\ No newline at end of file