start working on evaluation testing

diff --git a/tests/language/expressions/evaluate.at b/tests/language/expressions/evaluate.at
index cd574eb10f79eb8cea949a754d6b20ffc2947355..2d3f361f67d3070530c35f86f1ea8b3f0c35aa54 100644 (file)
--- a/tests/language/expressions/evaluate.at
+++ b/tests/language/expressions/evaluate.at
@@ -58,11 +58,28 @@ s/""/"/g
 
 AT_BANNER([expressions])
 
-CHECK_EXPR_EVAL([numeric syntax],
-  [[1e2], [100.00]],
-  [[1e+2], [100.00]],
-  [[1e-2], [0.01]],
-  [[1e-99], [0.00]])
+AT_SETUP([expressions - numeric syntax])
+AT_KEYWORDS([expression expressions evaluate])
+AT_DATA([evaluate-base.sps], [
+DEBUG EVALUATE opt/1e2.
+DEBUG EVALUATE opt/1e+2.
+DEBUG EVALUATE opt/1e-2.
+DEBUG EVALUATE opt/1e-99.
+])
+
+for opt in '' 'NOOPT '; do
+    sed "s/opt/$opt/" < evaluate-base.sps > evaluate.sps
+    AT_CHECK([pspp --testing-mode evaluate.sps], [0], [dnl
+1e2 => 100.00
+
+1e+2 => 100.00
+
+1e-2 => 0.01
+
+1e-99 => 0.00
+])
+done
+AT_CLEANUP
 
 CHECK_EXPR_EVAL([coercion to/from Boolean],
   [[0 AND 1], [false]],