Replace pgmcrater tests with pamcrater

git-svn-id: http://svn.code.sf.net/p/netpbm/code/trunk@2270 9d0c8265-081b-0410-96cb-a4ca84ce46f8

5 files changed, 62 insertions, 3 deletions

diff --git a/test/Test-Order b/test/Test-Order
index 9773caae..cc79570e 100644
--- a/test/Test-Order
+++ b/test/Test-Order
@@ -16,12 +16,12 @@ pgmramp.test
 ppmgauss.test
 ppmcie.test
 ppmwheel.test
+pamcrater.test
 
 # Generators with random components
 
 pgmnoise.test
 ppmpat.test
-pgmcrater.test
 ppmforge.test
 ppmrough.test
 
diff --git a/test/all-in-place.ok b/test/all-in-place.ok
index ca8ad8c3..d37fd561 100644
--- a/test/all-in-place.ok
+++ b/test/all-in-place.ok
@@ -161,7 +161,7 @@ pdbimgtopam: ok
 pfmtopam: ok
 pgmabel: ok
 pgmbentley: ok
-pgmcrater: ok
+pamcrater: ok
 pgmdeshadow: ok
 pgmedge: ok
 pgmenhance: ok
diff --git a/test/all-in-place.test b/test/all-in-place.test
index f93674eb..d6ccdb3c 100755
--- a/test/all-in-place.test
+++ b/test/all-in-place.test
@@ -200,7 +200,7 @@ ordinary_testprogs="\
   pfmtopam \
   pgmabel \
   pgmbentley \
-  pgmcrater \
+  pamcrater \
   pgmdeshadow \
   pgmedge \
   pgmenhance \
diff --git a/test/pamcrater.ok b/test/pamcrater.ok
new file mode 100644
index 00000000..cfb186a6
--- /dev/null
+++ b/test/pamcrater.ok
@@ -0,0 +1,6 @@
+4
+4
+4
+2
+2
+2
diff --git a/test/pamcrater.test b/test/pamcrater.test
new file mode 100755
index 00000000..1d182208
--- /dev/null
+++ b/test/pamcrater.test
@@ -0,0 +1,53 @@
+#! /bin/bash
+# This script tests: pamcrater pamshadedrelief
+# Also requires: pamslice pamvalidate
+
+  alias pamcrater="${PBM_TESTPREFIX}pamcrater"
+  alias pamslice="${PBM_TESTPREFIX}pamshadedrelief"
+  alias pamslice="${PBM_BINPREFIX}pamslice"
+  alias pamvalidate="${PBM_TESTPREFIX}pamvalidate"
+  shopt -s expand_aliases
+
+tmpdir=${tmpdir:-/tmp}
+
+test_pam=${tmpdir}/test.pam
+testshaded_pam=${tmpdir}/testshaded_pam
+test10_pam=${tmpdir}/test10.pam
+test50_pam=${tmpdir}/test50.pam
+test100_pam=${tmpdir}/test100.pam
+test150_pam=${tmpdir}/test150.pam
+
+# Test 1.  Should print 4 three times
+
+pamcrater --test --radius=10 > $test10_pam
+pamcrater --test --radius=50 > $test50_pam
+pamcrater --test --radius=100 > $test100_pam
+pamcrater --test --radius=150 > $test150_pam
+
+pamstack ${test10_pam} ${test50_pam} ${test100_pam} ${test150_pam} |
+  pamvalidate > ${test_pam} 
+
+for i in 1 10 70
+  do
+    ( pamslice -row=$((128 + $i))  ${test_pam} | cksum &&
+      pamslice -row=$((128 - $i))  ${test_pam} | cksum &&
+      pamslice -col=$((128 + $i))  ${test_pam} | cksum &&
+      pamslice -col=$((128 - $i))  ${test_pam} | cksum
+    ) | uniq -c | awk '{print $1}'
+  done
+
+rm ${test_pam} ${test10_pam} ${test50_pam}
+
+# Test 2.  Should print 2 three times
+
+pamshadedrelief ${test100_pam} > ${testshaded_pam}
+
+( pamslice -row=$((128 + 12))  ${testshaded_pam} | cksum &&
+  pamslice -row=$((128 - 12))  ${testshaded_pam} | cksum &&
+  pamslice -row=$((128 + 31))  ${testshaded_pam} | cksum &&
+  pamslice -row=$((128 - 31))  ${testshaded_pam} | cksum &&
+  pamslice -row=$((128 + 99))  ${testshaded_pam} | cksum &&
+  pamslice -row=$((128 - 99))  ${testshaded_pam} | cksum
+) | uniq -c | awk '{print $1}'
+
+rm ${testshaded_pam} ${test100_pam}