raw TIME_PATH test

Makefile.am

@@ -53,6 +53,7 @@ TESTS = \
         tests/function_vectors.sh \
         tests/hello_mpi.sh \
         tests/integral.sh \
+        tests/lag.sh \
         tests/laplace2d.sh \
         tests/lebesgue.sh \
         tests/los-alamos.sh \

tests/lag.fee

@@ -16,7 +16,10 @@ r = heaviside(t-a)-heaviside(t-b)
 # of characteristic time tau
 y = lag(r, tau)
 
-PRINT t r y
+# PRINT t r y
+IF done
+ PRINT %.2f y
+ENDIF
 
 # exercise: investigate how the result of the lag
 # depends on the time step

tests/lag.sh

@@ -0,0 +1,25 @@
+#!/bin/sh
+for i in . tests; do
+  if [ -e ${i}/functions.sh ]; then
+    . ${i}/functions.sh 
+  fi
+done
+if [ -z "${functions_found}" ]; then
+  echo "could not find functions.sh"
+  exit 1;
+fi
+
+answer lag.fee "0.16"
+exitifwrong $?
+
+answer lag_compact.fee "0.16"
+exitifwrong $?
+
+# check TIME_PATH
+echo -n "time_path_raw.fee ... "
+
+if [ "x$(${feenox} ${dir}/time_path_sundials.fee | wc -l)" != "x5" ]; then
+  echo "failed"
+  return 1
+fi
+echo "ok"

tests/lag_compact.fee

@@ -2,4 +2,8 @@
 # lines as follows (although the SPOT rule is broken)
 end_time = 5
 dt = 1/20
-PRINT t heaviside(t-1)-heaviside(t-3) lag(heaviside(t-1)-heaviside(t-3),1.234)
+# PRNT t heaviside(t-1)-heaviside(t-3) lag(heaviside(t-1)-heaviside(t-3),1.234)
+y = lag(heaviside(t-1)-heaviside(t-3),1.234)
+IF done
+ PRINT %.2f y
+ENDIF