From d2e0ac57682c0b4ab291bd138174881da5c7f7d7 Mon Sep 17 00:00:00 2001
From: Shahram Najm <masn@ecmwf.int>
Date: Thu, 15 Feb 2024 15:02:51 +0000
Subject: [PATCH] Testing: Accessors 'sum' and 'suppressed'

---
 tests/grib_filter.sh     | 13 +++++++++++++
 tests/grib_suppressed.sh | 23 +++++++++++++++++++++++
 2 files changed, 36 insertions(+)

diff --git a/tests/grib_filter.sh b/tests/grib_filter.sh
index 9a836a898..951ea9433 100755
--- a/tests/grib_filter.sh
+++ b/tests/grib_filter.sh
@@ -237,6 +237,19 @@ grib_check_key_equals $tempGrib scaleFactorOfFirstFixedSurface MISSING
 grib_check_key_equals $tempGrib scaledValueOfFirstFixedSurface MISSING
 
 
+echo "Test for the sum accessor"
+# -------------------------------
+input="${samp_dir}/reduced_gg_pl_32_grib2.tmpl"
+cat >$tempFilt <<EOF
+  meta sum_of_pl_array sum(pl);
+  # Default is double
+  print "sum_of_pl_array =[sum_of_pl_array]";
+  print "sum_of_pl_array as ints=[sum_of_pl_array:i]";
+  print "sum_of_pl_array as strs=[sum_of_pl_array:s]";
+EOF
+${tools_dir}/grib_filter $tempFilt $input > $tempOut
+
+
 echo "Test from_scale_factor_scaled_value"
 # -----------------------------------------
 input="${samp_dir}/reduced_gg_pl_32_grib2.tmpl"
diff --git a/tests/grib_suppressed.sh b/tests/grib_suppressed.sh
index 2b8477064..39a42dbe4 100755
--- a/tests/grib_suppressed.sh
+++ b/tests/grib_suppressed.sh
@@ -39,6 +39,29 @@ EOF
 
 diff $tempRef $tempErr
 
+# Try decoding as int and double too
+cat > $tempFilt <<EOF
+  meta a_deprecated_key suppressed(typeOfOriginalFieldValues);
+  print "[a_deprecated_key:i]";
+EOF
+set +e
+${tools_dir}/grib_filter $tempFilt $sample2 2>$tempErr
+status=$?
+set -e
+[ $status -ne 0 ]
+grep -q "is unavailable" $tempErr
+
+
+cat > $tempFilt <<EOF
+  meta a_deprecated_key suppressed(typeOfOriginalFieldValues);
+  print "[a_deprecated_key:d]";
+EOF
+set +e
+${tools_dir}/grib_filter $tempFilt $sample2 2>$tempErr
+status=$?
+set -e
+[ $status -ne 0 ]
+grep -q "is unavailable" $tempErr
 
 # Clean up
 rm -f $tempFilt $tempErr $tempRef