pintos-os.org Git - pspp/blob - tests/language/dictionary/sys-file-info.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
  17 AT_BANNER([SYSFILE INFO])
  18
  19 AT_SETUP([SYSFILE INFO])
  20 AT_DATA([sysfile-info.sps], [dnl
  21 DATA LIST LIST /x * name (a10) .
  22 BEGIN DATA
  23 1 one
  24 2 two
  25 3 three
  26 END DATA.
  27 SAVE OUTFILE='pro.sav'.
  28
  29 sysfile info file='pro.sav'.
  30 ])
  31 AT_CHECK([pspp -o pspp.csv sysfile-info.sps])
  32 AT_CHECK(
  33   [sed -e '/^Created:,/d' \
  34        -e '/^Endian:,/d' \
  35        -e '/^Integer Format:,/d' \
  36        -e '/^Real Format:,/d' \
  37        -e '/^Encoding:,/d' pspp.csv],
  38   [0], [dnl
  39 Table: Reading free-form data from INLINE.
  40 Variable,Format
  41 x,F8.0
  42 name,A10
  43
  44 File:,pro.sav
  45 Label:,No label.
  46 Variables:,2
  47 Cases:,3
  48 Type:,SPSS System File
  49 Weight:,Not weighted.
  50 Compression:,SAV
  51
  52 Variable,Description,Position
  53 x,"Format: F8.2
  54 Measure: Scale
  55 Role: Input
  56 Display Alignment: Right
  57 Display Width: 8",1
  58 name,"Format: A10
  59 Measure: Nominal
  60 Role: Input
  61 Display Alignment: Left
  62 Display Width: 10",2
  63 ])
  64 AT_CLEANUP
  65
  66 AT_BANNER([DISPLAY])
  67
  68 dnl DISPLAY DOCUMENTS is tested with commands for documents.
  69
  70 AT_SETUP([DISPLAY FILE LABEL])
  71 AT_DATA([display.sps], [dnl
  72 DATA LIST LIST NOTABLE /x * name (a10) .
  73
  74 DISPLAY FILE LABEL.
  75
  76 FILE LABEL 'foo bar baz quux'.
  77 DISPLAY FILE LABEL.
  78 ])
  79 AT_CHECK([pspp -O format=csv display.sps], [0], [dnl
  80 The active dataset does not have a file label.
  81
  82 File label: foo bar baz quux
  83 ])
  84 AT_CLEANUP
  85
  86 dnl DISPLAY VECTORS is tested with commands for vectors.
  87
  88 dnl DISPLAY ATTRIBUTES and @ATTRIBUTES are tested with commands for attributes.
  89
  90 AT_SETUP([DISPLAY SCRATCH])
  91 AT_DATA([sysfile-info.sps], [dnl
  92 DATA LIST LIST NOTABLE /x * name (a10) .
  93 DISPLAY SCRATCH.
  94 COMPUTE #x=0.
  95 DISPLAY SCRATCH.
  96 ])
  97 AT_CHECK([pspp -O format=csv sysfile-info.sps], [0], [dnl
  98 sysfile-info.sps:2: warning: DISPLAY: No variables to display.
  99
 100 Variable
 101 #x
 102 ])
 103 AT_CLEANUP
 104
 105 AT_SETUP([DISPLAY INDEX])
 106 AT_DATA([sysfile-info.sps], [dnl
 107 DATA LIST LIST NOTABLE /x * name (a10) .
 108 DISPLAY INDEX.
 109 ])
 110 AT_CHECK([pspp -O format=csv sysfile-info.sps], [0], [dnl
 111 Variable,Position
 112 x,1
 113 name,2
 114 ])
 115 AT_CLEANUP
 116
 117 AT_SETUP([DISPLAY NAMES])
 118 AT_DATA([sysfile-info.sps], [dnl
 119 DATA LIST LIST NOTABLE /x * name (a10) .
 120 DISPLAY NAMES.
 121 ])
 122 AT_CHECK([pspp -O format=csv sysfile-info.sps], [0], [dnl
 123 Variable
 124 x
 125 name
 126 ])
 127 AT_CLEANUP
 128
 129 AT_SETUP([DISPLAY LABELS])
 130 AT_DATA([sysfile-info.sps], [dnl
 131 DATA LIST LIST NOTABLE /x * name (a10) .
 132 VARIABLE LABEL x 'variable one' name 'variable two'.
 133 VALUE LABEL x 1 'asdf' 2 'jkl;'.
 134 DISPLAY LABELS.
 135 ])
 136 AT_CHECK([pspp -O format=csv sysfile-info.sps], [0], [dnl
 137 Variable,Label,Position
 138 x,variable one,1
 139 name,variable two,2
 140 ])
 141 AT_CLEANUP
 142
 143 dnl DISPLAY VARIABLES Is tested in multiple places.