diff --git a/ChangeLog b/ChangeLog
index 9de5550eacbdf86a43fd783def5a239c9b532fae..953ccd948491ea2ac7494944e4888c4f722b2684 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-01-09  Niels Möller  <nisse@harpo.hack.org>
 
+	* examples/rsa-encrypt-test: New testcase.
+
 	* examples/rsa-encrypt.c: Expanded the comment describing the file
 	format. 
 
diff --git a/examples/Makefile.am b/examples/Makefile.am
index 7c806506b39974bd8788ca246c6f9b69dba802af..a5b91263d96a617778f824daadb2d5bcfc441dec 100644
--- a/examples/Makefile.am
+++ b/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
diff --git a/examples/rsa-encrypt-test b/examples/rsa-encrypt-test
new file mode 100755
index 0000000000000000000000000000000000000000..5fcc4614be24d42edc8c0f0097d75b0684fa4a63
--- /dev/null
+++ b/examples/rsa-encrypt-test
@@ -0,0 +1,27 @@
+#! /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