pintos-os.org Git - pspp/blob - tests/time-date.stat

   1 title 'Test time and date input and output formats'.
   2
   3 data list fixed
   4         /a(date20)/b(adate20)/c(jdate20)/d(qyr20)/e(moyr20)/f(wkyr20)/g(wkday20)
   5         /h(month20)/i(time20.2)/j(dtime20.2)/k(datetime24.2).
   6 begin data.
   7 01-oct-78
   8 10/1/78
   9 78101
  10 3q96
  11 nov 52
  12 38wk23
  13 saturday
  14 xi
  15 10:01
  16 4 5:12.9
  17 01-feb-1903 04:05:06.07
  18 end data.
  19 print /a to e.
  20 print /f to k.
  21 execute.
  22
  23 data list /x 1.
  24 begin data.
  25 1
  26 1
  27 1
  28 1
  29 1
  30 1
  31 1
  32 1
  33 1
  34 1
  35 1
  36 1
  37 1
  38 1
  39 1
  40 1
  41 1
  42 1
  43 1
  44 1
  45 1
  46 1
  47 1
  48 1
  49 1
  50 1
  51 1
  52 1
  53 1
  54 1
  55 1
  56 1
  57 1
  58 1
  59 1
  60 1
  61 1
  62 1
  63 1
  64 1
  65 1
  66 1
  67 end data.
  68 compute y=$time.
  69 formats y(datetime25).
  70 list.
  71 compute z=$time.
  72 formats z(datetime25).
  73 list.
  74 compute p=$time.
  75 formats p(datetime25).
  76 list.
  77