Add Dhrystone test script

The script calculates median absolute deviation (MAD) and filters out
outliers.

Usage:
  tests/dhrystone.sh

Reference output:
Running Dhrystone benchmark - Run 1
Running Dhrystone benchmark - Run 2
Running Dhrystone benchmark - Run 3
Running Dhrystone benchmark - Run 4
Running Dhrystone benchmark - Run 5
Running Dhrystone benchmark - Run 6
Running Dhrystone benchmark - Run 7
Running Dhrystone benchmark - Run 8
Running Dhrystone benchmark - Run 9
Running Dhrystone benchmark - Run 10
---------------------
Average DMIPS (Excluding Outliers): 693.50
---------------------

Author: jserv

tests/cc-selfhost.sh

@@ -1,19 +1,8 @@
 #!/usr/bin/env bash
 
-function fail()
-{
-    echo "*** Fail"
-    exit 1
-}
+source tests/common.sh
 
-O=build
 S=tests/cc
-RUN=$O/rv32emu
-
-if [ ! -f $RUN ]; then
-    echo "No build/rv32emu found!"
-    exit 1
-fi
 
 echo "Generating cross compiler..."
 cat $S/stdlib.c $S/emit.c $S/cc.c | cc -o $O/cc-native -x c - || fail

tests/common.sh

@@ -0,0 +1,13 @@
+function fail()                                                                                                                                               
+{
+    echo "*** Fail"
+    exit 1
+}
+
+O=build
+RUN=$O/rv32emu
+
+if [ ! -f $RUN ]; then
+    echo "No build/rv32emu found!"
+    exit 1
+fi

tests/dhrystone.sh

@@ -0,0 +1,54 @@
+#!/usr/bin/env bash
+
+source tests/common.sh
+
+num_runs=10
+
+function run_dhrystone()
+{
+    # Run Dhrystone and extract the DMIPS value
+#    output=$($RUN $O/dhrystone.elf)
+#    dmips=$(echo "$output" | grep -oE '[0-9]+' | awk 'NR==5{print}')
+#    echo "$dmips"
+    output=$($RUN $O/dhrystone.elf 2>&1)
+    local exit_code=$?
+    [ $exit_code -ne 0 ] && fail
+    dmips=$(echo "$output" | grep -oE '[0-9]+' | awk 'NR==5{print}')
+    echo "$dmips"
+}
+
+# Run Dhrystone benchmark and collect DMIPS values
+dmips_values=()
+for ((i=1; i<=$num_runs; i++))
+do
+    echo "Running Dhrystone benchmark - Run $i"
+    dmips=$(run_dhrystone)
+    exit_code=$?
+    [ $exit_code -ne 0 ] && fail
+    dmips_values+=("$dmips")
+done
+
+# Filter out non-numeric values
+filtered_dmips=()
+for dmips in "${dmips_values[@]}"
+do
+    if [[ $dmips =~ ^[0-9]+$ ]]; then
+        filtered_dmips+=("$dmips")
+    fi
+done
+
+# Calculate average DMIPS excluding outliers
+num_filtered=${#filtered_dmips[@]}
+if ((num_filtered > 0)); then
+    total_filtered_dmips=0
+    for dmips in "${filtered_dmips[@]}"
+    do
+        total_filtered_dmips=$(echo "$total_filtered_dmips + $dmips" | bc -l)
+    done
+    average_filtered_dmips=$(echo "scale=2; $total_filtered_dmips / $num_filtered" | bc -l)
+    echo "---------------------"
+    echo "Average DMIPS (Excluding Outliers): $average_filtered_dmips"
+    echo "---------------------"
+else
+    fail
+fi