New testcase.

Rev: src/nettle/ChangeLog:1.221
Rev: src/nettle/examples/Makefile.am:1.20
Rev: src/nettle/examples/rsa-encrypt-test:1.1

ChangeLog

 2004-01-09  Niels Mller  <nisse@harpo.hack.org>
 
+	* examples/rsa-encrypt-test: New testcase.
+
 	* examples/rsa-encrypt.c: Expanded the comment describing the file
 	format. 
 

examples/Makefile.am

@@ -19,7 +19,7 @@ LDADD = io.o -lnettle ../libnettle.a
 
 nettle_benchmark_LDADD = -lnettle ../libnettle.a $(OPENSSL_LIBFLAGS)
 
-TS_PROGS = rsa-sign-test rsa-verify-test
+TS_PROGS = rsa-sign-test rsa-verify-test rsa-encrypt-test
 EXTRA_DIST = io.h rsa-session.h run-tests setup-env teardown-env $(TS_PROGS)
 
 .PHONY: run-tests

examples/rsa-encrypt-test

+#! /bin/sh
+
+if [ -z "$srcdir" ] ; then
+  srcdir=`pwd`
+fi
+
+data="$srcdir/nettle-benchmark.c"
+
+if [ -x rsa-encrypt ] ; then
+  if ./rsa-encrypt testkey.pub < "$data" > testciphertext ; then
+    :
+  else
+    exit 1
+  fi
+  if ./rsa-decrypt testkey < testciphertext > testcleartext ; then
+    :
+  else
+    exit 1
+  fi
+  if cmp "$data" testcleartext ; then
+    exit 0
+  else
+    exit 1
+  fi
+else
+  exit 77
+fi