From: Ben Pfaff <blp@cs.stanford.edu>
Date: Wed, 22 Dec 2021 00:49:41 +0000 (-0800)
Subject: start working on evaluation testing
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e375b159f8a59a063f783a0519272c1712ac5985;p=pspp

start working on evaluation testing
---

diff --git a/tests/language/expressions/evaluate.at b/tests/language/expressions/evaluate.at
index cd574eb10f..2d3f361f67 100644
--- 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]],