From 61d4cc9a42778ebe241ea63aa03c865aacde3aff Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Wed, 9 Jun 2021 12:01:13 -0700
Subject: [PATCH] TESTS: add MD4 test

---
 TESTS/MD4TEST.txt | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 TESTS/MD4TEST.txt

diff --git a/TESTS/MD4TEST.txt b/TESTS/MD4TEST.txt
new file mode 100644
index 00000000..63105710
--- /dev/null
+++ b/TESTS/MD4TEST.txt
@@ -0,0 +1,38 @@
+NEW
+  PREFIX
+AUTO 4,1
+#!/BIN/SH
+#
+#  This script tests the MD4 command to make sure
+#  it is properly generating and returning correct
+#  MD4 values.
+#
+#  This test uses the SET var = `command` directive, 
+#  testing that facility as well.
+#
+SET TestPhrase = "Hello World"
+SET CorrectValue = "77A781B995CF1CFAF39D9E2F5910C2CF"
+ECHO "\f\n          MD4 Test"
+ECHO "\n\nThis script tests the MD4 command to make sure"
+ECHO "it is properly generating and returning correct"
+ECHO "MD4 values.\n\n"
+SET Result = `MD4 -D "$TestPhrase"`
+IF [ $Result = $CorrectValue ]
+  ECHO "This Test Passed"
+  IF [ -N $Log ]
+    SET T = $T + 1
+    SET P = $P + 1
+    ECHO "MD4 Test Passed" >> ${Log}
+  FI
+ELSE
+  ECHO "This Test Failed"
+  ECHO "The returned result was: $Result"
+  IF [ -N $Log ]
+    SET T = $T + 1
+    SET F = $F + 1
+    ECHO "MD4 Test Failed" >> ${Log}
+  FI
+FI
+echo \n\n
+MAN
+TEXT /MAKE/USR/SHARE/TESTS/MD4TEST