X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Flanguage%2Fdata-io%2Fdataset.at;h=ea3bcc6f095d98c1c0c442a52fe8b9f4866db90c;hb=afbfc96669bd1fe36ca1b08b59c9c137938049c1;hp=5af6b5d96f9e8852a6d03f5c731b1bd4a4fe62a7;hpb=691a034d7f2139076fa012739dffd40ef5db4a9b;p=pspp diff --git a/tests/language/data-io/dataset.at b/tests/language/data-io/dataset.at index 5af6b5d96f..ea3bcc6f09 100644 --- a/tests/language/data-io/dataset.at +++ b/tests/language/data-io/dataset.at @@ -1,19 +1,20 @@ dnl PSPP - a program for statistical analysis. dnl Copyright (C) 2017 Free Software Foundation, Inc. -dnl +dnl dnl This program is free software: you can redistribute it and/or modify dnl it under the terms of the GNU General Public License as published by dnl the Free Software Foundation, either version 3 of the License, or dnl (at your option) any later version. -dnl +dnl dnl This program is distributed in the hope that it will be useful, dnl but WITHOUT ANY WARRANTY; without even the implied warranty of dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the dnl GNU General Public License for more details. -dnl +dnl dnl You should have received a copy of the GNU General Public License dnl along with this program. If not, see . -dnl AT_BANNER([DATASET commands]) +dnl +AT_BANNER([DATASET commands]) AT_SETUP([DATASET COPY]) AT_DATA([dataset.pspp], [dnl @@ -65,13 +66,11 @@ y 7 8 -Table: Open datasets. -Dataset +Table: Datasets clone initial (active dataset) -Table: Open datasets. -Dataset +Table: Datasets clone (active dataset) initial @@ -83,8 +82,7 @@ x 5 6 -Table: Open datasets. -Dataset +Table: Datasets clone initial (active dataset) @@ -100,13 +98,11 @@ y,z 7,7.00 8,8.00 -Table: Open datasets. -Dataset +Table: Datasets unnamed dataset (active dataset) initial -Table: Open datasets. -Dataset +Table: Datasets unnamed dataset (active dataset) ]) AT_CLEANUP @@ -125,8 +121,7 @@ DATASET DISPLAY. LIST. ]) AT_CHECK([pspp -O format=csv dataset.pspp], [1], [dnl -Table: Open datasets. -Dataset +Table: Datasets unnamed dataset (active dataset) second @@ -134,8 +129,7 @@ Table: Data List x 1 -Table: Open datasets. -Dataset +Table: Datasets second (active dataset) dataset.pspp:10: error: LIST: LIST is allowed only after the active dataset has been defined. @@ -154,14 +148,12 @@ DATASET NAME c. DATASET DISPLAY. ]) AT_CHECK([pspp -O format=csv dataset.pspp], [0], [dnl -Table: Open datasets. -Dataset +Table: Datasets a (active dataset) b c -Table: Open datasets. -Dataset +Table: Datasets c (active dataset) ]) AT_CLEANUP @@ -175,13 +167,11 @@ DATASET ACTIVATE x. DATASET DISPLAY. ]) AT_CHECK([pspp -O format=csv dataset.pspp], [0], [dnl -Table: Open datasets. -Dataset +Table: Datasets unnamed dataset (active dataset) x -Table: Open datasets. -Dataset +Table: Datasets x (active dataset) ]) AT_CLEANUP @@ -209,8 +199,7 @@ DATASET ACTIVATE one. LIST. ]) AT_CHECK([pspp -O format=csv dataset.pspp], [1], [dnl -Table: Open datasets. -Dataset +Table: Datasets another one (active dataset) @@ -268,50 +257,73 @@ DATASET CLOSE ALL. DATASET DISPLAY. ]) AT_CHECK([pspp -O format=csv dataset.pspp], [0], [dnl -Table: Open datasets. -Dataset +Table: Datasets unnamed dataset (active dataset) -Table: Open datasets. -Dataset +Table: Datasets unnamed dataset (active dataset) -Table: Open datasets. -Dataset +Table: Datasets this (active dataset) -Table: Open datasets. -Dataset +Table: Datasets unnamed dataset (active dataset) -Table: Open datasets. -Dataset +Table: Datasets this (active dataset) -Table: Open datasets. -Dataset +Table: Datasets unnamed dataset (active dataset) -Table: Open datasets. -Dataset +Table: Datasets unnamed dataset (active dataset) that theother yetanother -Table: Open datasets. -Dataset +Table: Datasets unnamed dataset (active dataset) -Table: Open datasets. -Dataset +Table: Datasets that theother this (active dataset) yetanother -Table: Open datasets. -Dataset +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