From b7043847dfe95f7a0ce0652b5787a3bf30ff7c45 Mon Sep 17 00:00:00 2001
From: gtheler <jeremy@seamplex.com>
Date: Wed, 4 Sep 2024 19:14:21 -0300
Subject: [PATCH] raw TIME_PATH test

---
 Makefile.am           |  1 +
 tests/lag.fee         |  5 ++++-
 tests/lag.sh          | 25 +++++++++++++++++++++++++
 tests/lag_compact.fee |  6 +++++-
 4 files changed, 35 insertions(+), 2 deletions(-)
 create mode 100755 tests/lag.sh

diff --git a/Makefile.am b/Makefile.am
index 99f8d9f5..d6328b66 100644
--- a/Makefile.am
+++ b/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 \
diff --git a/tests/lag.fee b/tests/lag.fee
index 4a376edd..318d050e 100644
--- a/tests/lag.fee
+++ b/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
diff --git a/tests/lag.sh b/tests/lag.sh
new file mode 100755
index 00000000..46c83544
--- /dev/null
+++ b/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"
diff --git a/tests/lag_compact.fee b/tests/lag_compact.fee
index 087588dc..64d9e8fe 100644
--- a/tests/lag_compact.fee
+++ b/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