1 files changed, 25 insertions, 0 deletions
diff --git a/test/ppmdim.test b/test/ppmdim.test
new file mode 100755
index 00000000..848e2e9f
--- /dev/null
+++ b/test/ppmdim.test
@@ -0,0 +1,25 @@
+#! /bin/bash
+# This script tests: ppmdim
+# Also requires: pamfunc pamarith pamsumm
+
+
+tmpdir=${tmpdir:-/tmp}
+
+# Compare ppmdim and pamfunc with various dim factors
+# Due to the difference in rounding methods, pamfunc produces slightly
+# brighter images, by about 0.5 per pixel.
+# If the mean difference is between 0 and 0.75 we consider the output
+# normal.  This works for dim values up to 0.994 .
+dim1_ppm=${tmpdir}/dim1.ppm
+dim2_ppm=${tmpdir}/dim2.ppm
+
+for i in  0.125 0.25 0.5 0.75 0.1 0.0117 0.2 0.4 0.333 0.666 0.8 0.9 0.95
+  do
+  ppmdim $i testimg.ppm > ${dim1_ppm}
+  pamfunc -mult=$i testimg.ppm > ${dim2_ppm}
+  pamarith -diff ${dim1_ppm} ${dim2_ppm} | \
+    pamsumm -mean -brief | \
+    awk '{print ($1<0.75) ? "ok" : "fail"}'
+  done
+
+rm ${dim1_ppm} ${dim2_ppm}