pintos-os.org Git - pspp/blob - tests/language/data-io/dataset.at

   1 dnl PSPP - a program for statistical analysis.
   2 dnl Copyright (C) 2017 Free Software Foundation, Inc.
   3 dnl
   4 dnl This program is free software: you can redistribute it and/or modify
   5 dnl it under the terms of the GNU General Public License as published by
   6 dnl the Free Software Foundation, either version 3 of the License, or
   7 dnl (at your option) any later version.
   8 dnl
   9 dnl This program is distributed in the hope that it will be useful,
  10 dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 dnl GNU General Public License for more details.
  13 dnl
  14 dnl You should have received a copy of the GNU General Public License
  15 dnl along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16 dnl AT_BANNER([DATASET commands])
  17
  18 AT_SETUP([DATASET COPY])
  19 AT_DATA([dataset.pspp], [dnl
  20 DATASET NAME initial.
  21 DATA LIST NOTABLE /x 1.
  22 COMPUTE x = x + 1.
  23 DATASET COPY clone.
  24 BEGIN DATA.
  25 1
  26 2
  27 3
  28 4
  29 5
  30 END DATA.
  31
  32 NEW FILE.
  33 DATA LIST NOTABLE /y 1.
  34 BEGIN DATA.
  35 6
  36 7
  37 8
  38 END DATA.
  39 LIST.
  40 DATASET DISPLAY.
  41
  42 DATASET ACTIVATE clone.
  43 DATASET DISPLAY.
  44 LIST.
  45
  46 DATASET ACTIVATE initial.
  47 DATASET DISPLAY.
  48 LIST.
  49
  50 COMPUTE z=y.
  51 DATASET COPY clone.
  52
  53 DATASET ACTIVATE clone.
  54 LIST.
  55 DATASET COPY clone.
  56 DATASET DISPLAY.
  57
  58 DATASET CLOSE initial.
  59 DATASET DISPLAY.
  60 ])
  61 AT_CHECK([pspp -O format=csv dataset.pspp], [0], [dnl
  62 Table: Data List
  63 y
  64 6
  65 7
  66 8
  67
  68 Table: Open datasets.
  69 Dataset
  70 clone
  71 initial (active dataset)
  72
  73 Table: Open datasets.
  74 Dataset
  75 clone (active dataset)
  76 initial
  77
  78 Table: Data List
  79 x
  80 2
  81 3
  82 4
  83 5
  84 6
  85
  86 Table: Open datasets.
  87 Dataset
  88 clone
  89 initial (active dataset)
  90
  91 Table: Data List
  92 y
  93 6
  94 7
  95 8
  96
  97 Table: Data List
  98 y,z
  99 6,6.00
 100 7,7.00
 101 8,8.00
 102
 103 Table: Open datasets.
 104 Dataset
 105 unnamed dataset (active dataset)
 106 initial
 107
 108 Table: Open datasets.
 109 Dataset
 110 unnamed dataset (active dataset)
 111 ])
 112 AT_CLEANUP
 113
 114 AT_SETUP([DATASET DECLARE])
 115 AT_DATA([dataset.pspp], [dnl
 116 DATASET DECLARE second.
 117 DATASET DISPLAY.
 118 DATA LIST NOTABLE/x 1.
 119 BEGIN DATA.
 120 1
 121 END DATA.
 122 LIST.
 123 DATASET ACTIVATE second.
 124 DATASET DISPLAY.
 125 LIST.
 126 ])
 127 AT_CHECK([pspp -O format=csv dataset.pspp], [1], [dnl
 128 Table: Open datasets.
 129 Dataset
 130 unnamed dataset (active dataset)
 131 second
 132
 133 Table: Data List
 134 x
 135 1
 136
 137 Table: Open datasets.
 138 Dataset
 139 second (active dataset)
 140
 141 dataset.pspp:10: error: LIST: LIST is allowed only after the active dataset has been defined.
 142 ])
 143 AT_CLEANUP
 144
 145 AT_SETUP([DATASET NAME deletes duplicate name])
 146 AT_DATA([dataset.pspp], [dnl
 147 DATASET NAME a.
 148 DATASET DECLARE b.
 149 DATASET DECLARE c.
 150 DATASET DISPLAY.
 151
 152 DATASET NAME b.
 153 DATASET NAME c.
 154 DATASET DISPLAY.
 155 ])
 156 AT_CHECK([pspp -O format=csv dataset.pspp], [0], [dnl
 157 Table: Open datasets.
 158 Dataset
 159 a (active dataset)
 160 b
 161 c
 162
 163 Table: Open datasets.
 164 Dataset
 165 c (active dataset)
 166 ])
 167 AT_CLEANUP
 168
 169 AT_SETUP([DATASET ACTIVATE deletes unnamed dataset])
 170 AT_DATA([dataset.pspp], [dnl
 171 DATASET DECLARE x.
 172 DATASET DISPLAY.
 173
 174 DATASET ACTIVATE x.
 175 DATASET DISPLAY.
 176 ])
 177 AT_CHECK([pspp -O format=csv dataset.pspp], [0], [dnl
 178 Table: Open datasets.
 179 Dataset
 180 unnamed dataset (active dataset)
 181 x
 182
 183 Table: Open datasets.
 184 Dataset
 185 x (active dataset)
 186 ])
 187 AT_CLEANUP
 188
 189 AT_SETUP([DATASET ACTIVATE executes pending transformations])
 190 AT_DATA([dataset.pspp], [dnl
 191 DATASET NAME one.
 192 DATASET DECLARE another.
 193 DATASET DISPLAY.
 194
 195 DATA LIST NOTABLE /x 1.
 196 PRINT/x.
 197 DATASET ACTIVATE another.
 198 BEGIN DATA.
 199 1
 200 2
 201 3
 202 4
 203 5
 204 END DATA.
 205
 206 LIST.
 207
 208 DATASET ACTIVATE one.
 209 LIST.
 210 ])
 211 AT_CHECK([pspp -O format=csv dataset.pspp], [1], [dnl
 212 Table: Open datasets.
 213 Dataset
 214 another
 215 one (active dataset)
 216
 217 1 @&t@
 218
 219 2 @&t@
 220
 221 3 @&t@
 222
 223 4 @&t@
 224
 225 5 @&t@
 226
 227 dataset.pspp:16: error: LIST: LIST is allowed only after the active dataset has been defined.
 228
 229 Table: Data List
 230 x
 231 1
 232 2
 233 3
 234 4
 235 5
 236 ])
 237 AT_CLEANUP
 238
 239 AT_SETUP([DATASET CLOSE])
 240 AT_DATA([dataset.pspp], [dnl
 241 DATASET DISPLAY
 242 DATASET CLOSE *.
 243 DATASET DISPLAY.
 244
 245 DATASET NAME this.
 246 DATASET DISPLAY.
 247 DATASET CLOSE this.
 248 DATASET DISPLAY.
 249
 250 DATASET NAME this.
 251 DATASET DISPLAY.
 252 DATASET CLOSE *.
 253 DATASET DISPLAY.
 254
 255 DATASET DECLARE that.
 256 DATASET DECLARE theother.
 257 DATASET DECLARE yetanother.
 258 DATASET DISPLAY.
 259 DATASET CLOSE ALL.
 260 DATASET DISPLAY.
 261
 262 DATASET NAME this.
 263 DATASET DECLARE that.
 264 DATASET DECLARE theother.
 265 DATASET DECLARE yetanother.
 266 DATASET DISPLAY.
 267 DATASET CLOSE ALL.
 268 DATASET DISPLAY.
 269 ])
 270 AT_CHECK([pspp -O format=csv dataset.pspp], [0], [dnl
 271 Table: Open datasets.
 272 Dataset
 273 unnamed dataset (active dataset)
 274
 275 Table: Open datasets.
 276 Dataset
 277 unnamed dataset (active dataset)
 278
 279 Table: Open datasets.
 280 Dataset
 281 this (active dataset)
 282
 283 Table: Open datasets.
 284 Dataset
 285 unnamed dataset (active dataset)
 286
 287 Table: Open datasets.
 288 Dataset
 289 this (active dataset)
 290
 291 Table: Open datasets.
 292 Dataset
 293 unnamed dataset (active dataset)
 294
 295 Table: Open datasets.
 296 Dataset
 297 unnamed dataset (active dataset)
 298 that
 299 theother
 300 yetanother
 301
 302 Table: Open datasets.
 303 Dataset
 304 unnamed dataset (active dataset)
 305
 306 Table: Open datasets.
 307 Dataset
 308 that
 309 theother
 310 this (active dataset)
 311 yetanother
 312
 313 Table: Open datasets.
 314 Dataset
 315 unnamed dataset (active dataset)
 316 ])
 317 AT_CLEANUP