pintos-os.org Git - pspp/blob - tests/language/data-io/get-data-psql.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([GET DATA /TYPE=PSQL])
  18
  19 m4_define([INIT_PSQL],
  20   [AT_SKIP_IF([test "$PSQL_SUPPORT" = no])
  21    PGDATA=`pwd`/cluster
  22    export PGDATA
  23    PGPORT=$PG_PORT
  24    export PGPORT
  25    socket_dir=`mktemp -d`
  26    PGHOST="$socket_dir"
  27    export PGHOST
  28    AT_CHECK([PATH=$PG_PATH:$PATH initdb -A trust], [0], [ignore])
  29    AT_CHECK([PATH=$PG_PATH:$PATH pg_ctl start -w -o "-k $socket_dir -h ''"], [0], [ignore])
  30    trap 'CLEANUP_PSQL' 0
  31    AT_CHECK([PATH=$PG_PATH:$PATH createdb -h "$socket_dir" -p $PG_PORT $PG_DBASE],
  32       [0], [ignore], [ignore])
  33    AT_DATA([populate.sql],
  34      [CREATE TABLE empty (a int, b date, c numeric(23, 4));
  35
  36       -- a largeish table to check big queries work ok.
  37       CREATE TABLE large (x int);
  38       INSERT INTO large  (select * from generate_series(1, 1000));
  39
  40
  41       CREATE TABLE thing (
  42        bool    bool                      ,
  43        bytea   bytea                     ,
  44        char    char                      ,
  45        int8    int8                      ,
  46        int2    int2                      ,
  47        int4    int4                      ,
  48        numeric       numeric(50,6)       ,
  49        text    text                      ,
  50        oid     oid                       ,
  51        float4  float4                    ,
  52        float8  float8                    ,
  53        money   money                     ,
  54        pbchar  bpchar                    ,
  55        varchar varchar                   ,
  56        date    date                      ,
  57        time    time                      ,
  58        timestamp     timestamp           ,
  59        timestamptz   timestamptz         ,
  60        interval      interval            ,
  61        timetz        timetz
  62       );
  63
  64       INSERT INTO thing VALUES (
  65        false,
  66        '0',
  67        'a',
  68        '0',
  69        0,
  70        0,
  71        -256.098,
  72        'this-long-text',
  73        0,
  74        0,
  75        0,
  76        '0.01',
  77        'a',
  78        'A',
  79        '1-Jan-2000',
  80        '00:00',
  81        'January 8 04:05:06 1999',
  82        'January 8 04:05:06 1999 PST',
  83        '1 minutes',
  84        '10:09 UTC+4'
  85       );
  86
  87       INSERT INTO thing VALUES (
  88        null,
  89        null,
  90        null,
  91        null,
  92        null,
  93        null,
  94        null,
  95        null,
  96        null,
  97        null,
  98        null,
  99        null,
 100        null,
 101        null,
 102        null,
 103        null,
 104        null,
 105        null,
 106        null,
 107        null
 108       );
 109
 110       INSERT INTO thing VALUES (
 111        true,
 112        '1',
 113        'b',
 114        '1',
 115        1,
 116        1,
 117        65535.00001,
 118        'that-long-text',
 119        1,
 120        1,
 121        1,
 122        '1.23',
 123        'b',
 124        'B',
 125        '10-Jan-1963',
 126        '01:05:02',
 127        '10-Jan-1963 23:58:00',
 128        '10-Jan-1963 23:58:00 CET',
 129        '2 year 1 month 12 days 1 hours 3 minutes 4 seconds',
 130        '01:05:02 UTC-7'
 131       );
 132 ])
 133
 134    # On Debian, the psql binary in the postgres bindir won't work because
 135    # it needs libreadline to be LD_PRELOADed into it.  The psql in the
 136    # normal $PATH works fine though.
 137    if (PATH=$PG_PATH:$PATH psql -V) >/dev/null 2>&1; then
 138        psql () {
 139            PATH=$PG_PATH:$PATH command psql "$@"
 140        }
 141    fi
 142    AT_CHECK([psql -h "$socket_dir" -p $PG_PORT $PG_DBASE < populate.sql],
 143       [0], [ignore])])
 144
 145 m4_define([CLEANUP_PSQL], [PATH=$PG_PATH:$PATH pg_ctl stop -W -o "-k $socket_dir -h ''"])
 146
 147 AT_SETUP([GET DATA /TYPE=PSQL])
 148 INIT_PSQL
 149
 150 dnl Test with an ordinary query.
 151 AT_CHECK([cat > ordinary-query.sps <<EOF
 152 GET DATA /TYPE=psql
 153         /CONNECT="host=$socket_dir port=$PGPORT dbname=$PG_DBASE"
 154         /UNENCRYPTED
 155         /SQL="select * from thing".
 156
 157 DISPLAY DICTIONARY.
 158
 159 LIST.
 160 EOF
 161 ])
 162 AT_CHECK([pspp -o pspp.csv ordinary-query.sps])
 163 AT_CHECK([cat pspp.csv], [0], [dnl
 164 Variable,Description,Position
 165 bool,Format: F8.2,1
 166 bytea,Format: AHEX2,2
 167 char,Format: A8,3
 168 int8,Format: F8.2,4
 169 int2,Format: F8.2,5
 170 int4,Format: F8.2,6
 171 numeric,Format: E40.6,7
 172 text,Format: A16,8
 173 oid,Format: F8.2,9
 174 float4,Format: F8.2,10
 175 float8,Format: F8.2,11
 176 money,Format: DOLLAR8.2,12
 177 pbchar,Format: A8,13
 178 varchar,Format: A8,14
 179 date,Format: DATE11,15
 180 time,Format: TIME11.0,16
 181 timestamp,Format: DATETIME22.0,17
 182 timestamptz,Format: DATETIME22.0,18
 183 interval,Format: DTIME13.0,19
 184 interval_months,Format: F3.0,20
 185 timetz,Format: TIME11.0,21
 186 timetz_zone,Format: F8.2,22
 187
 188 Table: Data List
 189 bool,bytea,char,int8,int2,int4,numeric,text,oid,float4,float8,money,pbchar,varchar,date,time,timestamp,timestamptz,interval,interval_months,timetz,timetz_zone
 190 .00,30,a       ,.00,.00,.00,-2.560980E+002,this-long-text  ,.00,.00,.00,$.01,a       ,A       ,01-JAN-2000,0:00:00,08-JAN-1999 04:05:06,08-JAN-1999 12:05:06,0 00:01:00,0,10:09:00,4.00
 191 .  ,20,,.  ,.  ,.  ,.          ,,.  ,.  ,.  ,.  ,,,.,.,.,.,.,.,.,.  @&t@
 192 1.00,31,b       ,1.00,1.00,1.00,6.553500E+004,that-long-text  ,.00,1.00,1.00,$1.23,b       ,B       ,10-JAN-1963,1:05:02,10-JAN-1963 23:58:00,10-JAN-1963 22:58:00,12 01:03:04,25,1:05:02,-7.00
 193 ])
 194
 195 dnl Test query with empty result set.
 196 AT_CHECK([cat > empty-result.sps <<EOF
 197 GET DATA /TYPE=psql
 198         /CONNECT="host=$socket_dir port=$PGPORT dbname=$PG_DBASE"
 199         /UNENCRYPTED
 200         /SQL="select * from empty".
 201
 202 DISPLAY DICTIONARY.
 203
 204 LIST.
 205 EOF
 206 ])
 207 AT_CHECK([pspp -o pspp.csv empty-result.sps])
 208 AT_CHECK([cat pspp.csv], [0], [dnl
 209 Variable,Description,Position
 210 a,Format: F8.2,1
 211 b,Format: DATE11,2
 212 c,Format: E40.2,3
 213 ])
 214
 215 dnl Test query with large result set.
 216 AT_CHECK([cat > large-result.sps <<EOF
 217 GET DATA /TYPE=psql
 218         /CONNECT="host=$socket_dir port=$PGPORT dbname=$PG_DBASE"
 219         /UNENCRYPTED
 220         /SQL="select * from large".
 221
 222 NUMERIC diff.
 223 COMPUTE diff = x - lag (x).
 224
 225 TEMPORARY.
 226 SELECT IF (diff <> 1).
 227 LIST.
 228
 229 TEMPORARY.
 230 N OF CASES 6.
 231 LIST.
 232
 233 SORT CASES BY x (D).
 234
 235 TEMPORARY.
 236 N OF CASES 6.
 237 LIST.
 238 EOF
 239 ])
 240 AT_CHECK([pspp -o pspp.csv large-result.sps])
 241 AT_CHECK([cat pspp.csv], [0], [dnl
 242 Table: Data List
 243 x,diff
 244 1.00,.  @&t@
 245 2.00,1.00
 246 3.00,1.00
 247 4.00,1.00
 248 5.00,1.00
 249 6.00,1.00
 250
 251 Table: Data List
 252 x,diff
 253 1000.00,1.00
 254 999.00,1.00
 255 998.00,1.00
 256 997.00,1.00
 257 996.00,1.00
 258 995.00,1.00
 259 ])
 260
 261 dnl Check for a bug caused by having string variables in the database,
 262 dnl all of which are null.
 263 AT_DATA([all-null-string.sql],
 264   [-- a table which has a text field containing only null, or zero
 265    -- length entries.
 266
 267    CREATE TABLE foo (int4  int4, text text);
 268
 269    INSERT INTO foo VALUES ('12', '');
 270
 271    INSERT INTO foo VALUES (null, '');
 272 ])
 273 AT_CHECK([psql -h "$socket_dir" -p $PG_PORT $PG_DBASE < all-null-string.sql],
 274   [0], [ignore])
 275 AT_CAPTURE_FILE([get-data.sps])
 276 AT_CHECK([cat > get-data.sps <<EOF
 277 GET DATA /TYPE=psql
 278         /CONNECT="host=$socket_dir port=$PGPORT dbname=$PG_DBASE"
 279         /UNENCRYPTED
 280         /SQL="select * from foo".
 281
 282 DISPLAY DICTIONARY.
 283
 284 LIST.
 285 EOF
 286 ])
 287 AT_CHECK([pspp -o pspp.csv get-data.sps])
 288 AT_CAPTURE_FILE([pspp.csv])
 289 rm -rf "$socket_dir"
 290 AT_CLEANUP