From 5be62bbcd2b5f4b6ccb2ca5240e1e4e37a60ce06 Mon Sep 17 00:00:00 2001
From: Shahram Najm <masn@ecmwf.int>
Date: Mon, 23 Oct 2023 16:04:01 +0100
Subject: [PATCH] Testing: string_compare

---
 tests/grib_filter.sh | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/tests/grib_filter.sh b/tests/grib_filter.sh
index 6a7ebb38f..22a0158ac 100755
--- a/tests/grib_filter.sh
+++ b/tests/grib_filter.sh
@@ -383,9 +383,20 @@ cat >$tempFilt <<EOF
  print "[scaleFactorOfSecondFixedSurface:s]";
 EOF
 ${tools_dir}/grib_filter $tempFilt $ECCODES_SAMPLES_PATH/GRIB2.tmpl > $tempOut
-cat $tempOut
 grep "MISSING" $tempOut
 
+# Test string_compare
+cat >$tempFilt <<EOF
+ if (rubbish is "ppp") { print "yes"; } else { print "rubbish must fail"; }
+ if ("ppp" is garbage) { print "yes"; } else { print "garbage must fail"; }
+EOF
+${tools_dir}/grib_filter $tempFilt $ECCODES_SAMPLES_PATH/GRIB2.tmpl > $tempOut 2>&1
+cat $tempOut
+grep "rubbish must fail" $tempOut
+grep "garbage must fail" $tempOut
+grep "unable to get rubbish as string" $tempOut
+grep "unable to get garbage as string" $tempOut
+
 
 # Clean up
 rm -f $tempGrib $tempFilt $tempOut $tempRef