projects / pspp / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
more tests
[pspp] / tests / language / expressions / evaluate.at
diff --git a/tests/language/expressions/evaluate.at b/tests/language/expressions/evaluate.at
index 1f38517c55552a3ef1e715a8783ba6b4909bca60..5a1282c827fa14bc780fde0986d4cbd885eebbcb 100644 (file)
--- a/tests/language/expressions/evaluate.at
+++ b/tests/language/expressions/evaluate.at
@@ -3382,6 +3382,11 @@ NUMBER(string, num_input_format) as number(string, format).
     7 | DEBUG EVALUATE /number("123", a8).
       |                 ^~~~~~~~~~~~~~~~~
 
+evaluate.sps:7.31-7.32: note: DEBUG EVALUATE: Numeric variables are not
+compatible with string format A8.
+    7 | DEBUG EVALUATE /number("123", a8).
+      |                               ^~
+
 number("123", a8) => error
 
 evaluate.sps:8.17-8.37: error: DEBUG EVALUATE: Type mismatch invoking
@@ -3389,6 +3394,11 @@ NUMBER(string, num_input_format) as number(string, format).
     8 | DEBUG EVALUATE /number("123", cca1.2).
       |                 ^~~~~~~~~~~~~~~~~~~~~
 
+evaluate.sps:8.31-8.36: note: DEBUG EVALUATE: Format CCA1.2 may not be used for
+input.
+    8 | DEBUG EVALUATE /number("123", cca1.2).
+      |                               ^~~~~~
+
 number("123", cca1.2) => error
 ])
 done
@@ -3783,6 +3793,35 @@ for opt in OPT NOOPT; do
     AS_BOX([$opt])
     sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
     AT_CHECK([pspp --testing-mode evaluate.sps], [1], [dnl
+string(123.56, f5.1) => "123.6"
+
+string($sysmis, f5.1) => "   . "
+
+evaluate.sps:5.17-5.33: error: DEBUG EVALUATE: Type mismatch invoking
+STRING(number, num_output_format) as string(string, format).
+    5 | DEBUG EVALUATE /string("abc", A5).
+      |                 ^~~~~~~~~~~~~~~~~
+
+evaluate.sps:5.31-5.32: note: DEBUG EVALUATE: Numeric variables are not
+compatible with string format A5.
+    5 | DEBUG EVALUATE /string("abc", A5).
+      |                               ^~
+
+string("abc", A5) => error
+
+evaluate.sps:6.17-6.31: error: DEBUG EVALUATE: Type mismatch invoking
+STRING(number, num_output_format) as string(number, format).
+    6 | DEBUG EVALUATE /string(123, e1).
+      |                 ^~~~~~~~~~~~~~~
+
+evaluate.sps:6.29-6.30: note: DEBUG EVALUATE: Output format E1.0 specifies
+width 1, but E requires a width between 6 and 40.
+    6 | DEBUG EVALUATE /string(123, e1).
+      |                             ^~
+
+string(123, e1) => error
+
+string(123, e6.0) => "1E+002"
 ])
 done
 AT_CLEANUP
@@ -3800,8 +3839,11 @@ DEBUG EVALUATE /strunc('a c   ', 3).
 DEBUG EVALUATE /strunc('a c   ', 2).
 DEBUG EVALUATE /strunc('a c   ', 1).
 DEBUG EVALUATE /strunc('a c   ', 0).
+
+DEBUG EVALUATE /strunc('a c   ', 0.75).
 DEBUG EVALUATE /strunc('a c   ', -1).
 DEBUG EVALUATE /strunc('a c   ', $sysmis).
+
 DEBUG EVALUATE /strunc('  abc  ', 9).
 DEBUG EVALUATE /strunc('  abc  ', 8).
 DEBUG EVALUATE /strunc('  abc  ', 7).
@@ -3811,6 +3853,8 @@ DEBUG EVALUATE /strunc('  abc  ', 4).
 DEBUG EVALUATE /strunc('  abc  ', 3).
 DEBUG EVALUATE /strunc('  abc  ', 2).
 DEBUG EVALUATE /strunc('  abc  ', 1).
+
+DEBUG EVALUATE /strunc('  abc  ', 1.5).
 DEBUG EVALUATE /strunc('  abc  ', -1).
 DEBUG EVALUATE /strunc('  abc  ', $sysmis).
 ])
@@ -3819,13 +3863,70 @@ for opt in OPT NOOPT; do
     AS_BOX([$opt])
     sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
     AT_CHECK([pspp --testing-mode evaluate.sps], [1], [dnl
+strunc('a c   ', 9) => "a c"
+
+strunc('a c   ', 7) => "a c"
+
+strunc('a c   ', 6) => "a c"
+
+strunc('a c   ', 5) => "a c"
+
+strunc('a c   ', 4) => "a c"
+
+strunc('a c   ', 3) => "a c"
+
+strunc('a c   ', 2) => "a"
+
+strunc('a c   ', 1) => "a"
+
+strunc('a c   ', 0) => ""
+
+evaluate.sps:13.34-13.37: error: DEBUG EVALUATE: Treating unexpected non-
+integer value 0.75 as missing.
+   13 | DEBUG EVALUATE /strunc('a c   ', 0.75).
+      |                                  ^~~~
+
+strunc('a c   ', 0.75) => "a c   "
+
+strunc('a c   ', -1) => ""
+
+strunc('a c   ', $sysmis) => "a c   "
+
+strunc('  abc  ', 9) => "  abc"
+
+strunc('  abc  ', 8) => "  abc"
+
+strunc('  abc  ', 7) => "  abc"
+
+strunc('  abc  ', 6) => "  abc"
+
+strunc('  abc  ', 5) => "  abc"
+
+strunc('  abc  ', 4) => "  ab"
+
+strunc('  abc  ', 3) => "  a"
+
+strunc('  abc  ', 2) => ""
+
+strunc('  abc  ', 1) => ""
+
+evaluate.sps:27.35-27.37: error: DEBUG EVALUATE: Treating unexpected non-
+integer value 1.5 as missing.
+   27 | DEBUG EVALUATE /strunc('  abc  ', 1.5).
+      |                                   ^~~
+
+strunc('  abc  ', 1.5) => "  abc  "
+
+strunc('  abc  ', -1) => ""
+
+strunc('  abc  ', $sysmis) => "  abc  "
 ])
 done
 AT_CLEANUP
 
 AT_SETUP([expressions - SUBSTR])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /substr('abcdefgh', -5).
 DEBUG EVALUATE /substr('abcdefgh', 0).
@@ -3883,7 +3984,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - UPCASE])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /upcase('abcdefghijklmnopqrstuvwxyz!@%&*089').
 DEBUG EVALUATE /upcase('').
@@ -3900,7 +4001,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - TIME.DAYS])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /time.days(1).
 DEBUG EVALUATE /time.days(-1).
@@ -3919,7 +4020,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - TIME.HMS])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /time.hms(4,50,38).
 DEBUG EVALUATE /time.hms(12,31,35).
@@ -3960,7 +4061,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - CTIME.*])
 AT_KEYWORDS([expression expressions evaluate ctime])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /ctime.days(106272).
 DEBUG EVALUATE /ctime.hours(106272).
@@ -4012,7 +4113,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - DATE.DMY])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /date.dmy('a',1,2).
 DEBUG EVALUATE /date.dmy(1,'a',2).
@@ -4029,7 +4130,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - YRMOD])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 dnl FIXME: check out-of-range and nearly out-of-range values
 DEBUG EVALUATE /yrmoda(1582,10,15).
@@ -4068,7 +4169,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - DATE.MDY])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 ])
 
@@ -4129,7 +4230,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - DATE.MOYR])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /ctime.days(date.moyr(1,2000)).
 DEBUG EVALUATE /ctime.days(date.moyr(2,2000)).
@@ -4156,7 +4257,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - DATE.QYR])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /ctime.days(date.qyr(1,2000)).
 DEBUG EVALUATE /ctime.days(date.qyr(2,2000)).
@@ -4180,7 +4281,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - DATE.WKYR])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /ctime.days(date.wkyr(1,2000)).
 DEBUG EVALUATE /ctime.days(date.wkyr(15,1999)).
@@ -4204,7 +4305,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - DATE.YRDAY])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /ctime.days(date.yrday(2000,1)).
 DEBUG EVALUATE /ctime.days(date.yrday(2000,100)).
@@ -4229,7 +4330,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - XDATE.DATE])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /xdate.date(date.mdy(6,10,1648) + time.hms(0,0,0)) / 86400.
 DEBUG EVALUATE /xdate.date(date.mdy(6,30,1680) + time.hms(4,50,38)) / 86400.
@@ -4265,7 +4366,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - XDATE.HOUR])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /xdate.hour(date.mdy(6,10,1648) + time.hms(0,0,0)).
 DEBUG EVALUATE /xdate.hour(date.mdy(6,30,1680) + time.hms(4,50,38)).
@@ -4303,7 +4404,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - XDATE.JDAY])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /xdate.jday(date.mdy(6,10,1648) + time.hms(0,0,0)).
 DEBUG EVALUATE /xdate.jday(date.mdy(6,30,1680) + time.hms(4,50,38)).
@@ -4340,7 +4441,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - XDATE.MDAY])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /xdate.mday(date.mdy(6,10,1648) + time.hms(0,0,0)).
 DEBUG EVALUATE /xdate.mday(date.mdy(6,30,1680) + time.hms(4,50,38)).
@@ -4374,7 +4475,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - XDATE.MINUTE])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /xdate.minute(date.mdy(6,10,1648) + time.hms(0,0,0)).
 DEBUG EVALUATE /xdate.minute(date.mdy(6,30,1680) + time.hms(4,50,38)).
@@ -4408,7 +4509,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - XDATE.MONTH])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /xdate.month(date.mdy(6,10,1648) + time.hms(0,0,0)).
 DEBUG EVALUATE /xdate.month(date.mdy(6,30,1680) + time.hms(4,50,38)).
@@ -4442,7 +4543,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - XDATE.QUARTER])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /xdate.quarter(date.mdy(6,10,1648) + time.hms(0,0,0)).
 DEBUG EVALUATE /xdate.quarter(date.mdy(6,30,1680) + time.hms(4,50,38)).
@@ -4476,7 +4577,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - XDATE.SECOND])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /xdate.second(date.mdy(6,10,1648) + time.hms(0,0,0)).
 DEBUG EVALUATE /xdate.second(date.mdy(6,30,1680) + time.hms(4,50,38)).
@@ -4510,7 +4611,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - XDATE.TDAY])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /xdate.tday(date.mdy(6,10,1648) + time.hms(0,0,0)).
 DEBUG EVALUATE /xdate.tday(date.mdy(6,30,1680) + time.hms(4,50,38)).
@@ -4544,7 +4645,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - XDATE.TIME])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /xdate.time(date.mdy(6,10,1648) + time.hms(0,0,0)).
 DEBUG EVALUATE /xdate.time(date.mdy(6,30,1680) + time.hms(4,50,38)).
@@ -4578,7 +4679,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - XDATE.WEEK])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /xdate.week(date.mdy(6,10,1648) + time.hms(0,0,0)).
 DEBUG EVALUATE /xdate.week(date.mdy(6,30,1680) + time.hms(4,50,38)).
@@ -4612,7 +4713,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - XDATE.WKDAY])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /xdate.wkday(date.mdy(6,10,1648)).
 DEBUG EVALUATE /xdate.wkday(date.mdy(6,30,1680)).
@@ -4646,7 +4747,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - XDATE.YEAR])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /xdate.year(date.mdy(6,10,1648) + time.hms(0,0,0)).
 DEBUG EVALUATE /xdate.year(date.mdy(6,30,1680) + time.hms(4,50,38)).
@@ -4680,7 +4781,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - DATEDIFF])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /datediff(date.mdy(6,10,1648), date.mdy(6,30,1680), 'years').
 DEBUG EVALUATE /datediff(date.mdy(6,30,1680), date.mdy(7,24,1716), 'years').
@@ -4896,7 +4997,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - DATESUM with non-leap year])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /ctime.days(datesum(date.mdy(1,31,1900), 1, 'months') - date.mdy(1,1,1900)).
 DEBUG EVALUATE /ctime.days(datesum(date.mdy(1,31,1900), 2, 'months') - date.mdy(1,1,1900)).
@@ -4936,7 +5037,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - DATESUM with leap year])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 ])
 
@@ -4976,7 +5077,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - DATESUM])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /ctime.days(datesum(date.mdy(6,10,1648), 1, 'weeks') - date.mdy(6,10,1648)).
 DEBUG EVALUATE /ctime.days(datesum(date.mdy(6,30,1680), 2.5, 'weeks') - date.mdy(6,30,1680)).
@@ -5005,7 +5106,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - DATESUM preserves time of day for units of days and longer])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /ctime.days(datesum(date.mdy(8,2,1819) + time.hms(1,2,3), 5, 'days') - (date.mdy(8,2,1819) + time.hms(1,2,3))).
 DEBUG EVALUATE /ctime.days(datesum(date.mdy(8,2,1819) + time.hms(1,2,3), 5, 'weeks') - (date.mdy(8,2,1819) + time.hms(1,2,3))).
@@ -5024,7 +5125,7 @@ AT_CLEANUP
 dnl These test values are from Applied Statistics, Algorithm AS 310.
 AT_SETUP([expressions - NCDF.BETA])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /1000 * ncdf.beta(.868,10,20,150).
 DEBUG EVALUATE /1000 * ncdf.beta(.9,10,10,120).
@@ -5053,7 +5154,7 @@ dnl
 dnl Tests correctness of generic optimizations in optimize_tree().
 AT_SETUP([expressions - generic tree optimizations])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE (x=10) /x + 0.
 DEBUG EVALUATE (x=-3) /x - 0.
@@ -5079,7 +5180,7 @@ AT_CLEANUP
 
 AT_SETUP([expressions - negative checks])
 AT_KEYWORDS([expression expressions evaluate])
-AT_DATA([evaluate-base.sps], [
+AT_DATA([evaluate-base.sps], [dnl
 DEBUG EVALUATE SET opt.
 DEBUG EVALUATE /$nonexistent.
 DEBUG EVALUATE /RANGE(1, 2).
Unnamed repository; edit this file to name it for gitweb.