diff --git a/testsuite/testutils.c b/testsuite/testutils.c
index 4b676f555173df57c14d1db6f9063d295ab69a67..1b3e23c0e14b203ec9bfc583a5bbd4f77207cc10 100644
--- a/testsuite/testutils.c
+++ b/testsuite/testutils.c
@@ -314,6 +314,101 @@ mpz_togglebit (mpz_t x, unsigned long int bit)
   rsa_##hash##_verify(key, &hash, signature)	\
 )
 
+void
+test_rsa_set_key_1(struct rsa_public_key *pub,
+		   struct rsa_private_key *key)
+{
+  /* Initialize key pair for test programs */
+  /* 1000-bit key, generated by
+   *
+   *   lsh-keygen -a rsa -l 1000 -f advanced-hex
+   *
+   * (private-key (rsa-pkcs1 
+   *        (n #69abd505285af665 36ddc7c8f027e6f0 ed435d6748b16088
+   *            4fd60842b3a8d7fb bd8a3c98f0cc50ae 4f6a9f7dd73122cc
+   *            ec8afa3f77134406 f53721973115fc2d 8cfbba23b145f28d
+   *            84f81d3b6ae8ce1e 2850580c026e809b cfbb52566ea3a3b3
+   *            df7edf52971872a7 e35c1451b8636d22 279a8fb299368238
+   *            e545fbb4cf#)
+   *        (e #0db2ad57#)
+   *        (d #3240a56f4cd0dcc2 4a413eb4ea545259 5c83d771a1c2ba7b
+   *            ec47c5b43eb4b374 09bd2aa1e236dd86 481eb1768811412f
+   *            f8d91be3545912af b55c014cb55ceac6 54216af3b85d5c4f
+   *            4a32894e3b5dfcde 5b2875aa4dc8d9a8 6afd0ca92ef50d35
+   *            bd09f1c47efb4c8d c631e07698d362aa 4a83fd304e66d6c5
+   *            468863c307#)
+   *        (p #0a66399919be4b4d e5a78c5ea5c85bf9 aba8c013cb4a8732
+   *            14557a12bd67711e bb4073fd39ad9a86 f4e80253ad809e5b
+   *            f2fad3bc37f6f013 273c9552c9f489#)
+   *        (q #0a294f069f118625 f5eae2538db9338c 776a298eae953329
+   *            9fd1eed4eba04e82 b2593bc98ba8db27 de034da7daaea795
+   *            2d55b07b5f9a5875 d1ca5f6dcab897#)
+   *        (a #011b6c48eb592eee e85d1bb35cfb6e07 344ea0b5e5f03a28
+   *            5b405396cbc78c5c 868e961db160ba8d 4b984250930cf79a
+   *            1bf8a9f28963de53 128aa7d690eb87#)
+   *        (b #0409ecf3d2557c88 214f1af5e1f17853 d8b2d63782fa5628
+   *            60cf579b0833b7ff 5c0529f2a97c6452 2fa1a8878a9635ab
+   *            ce56debf431bdec2 70b308fa5bf387#)
+   *        (c #04e103ee925cb5e6 6653949fa5e1a462 c9e65e1adcd60058
+   *            e2df9607cee95fa8 daec7a389a7d9afc 8dd21fef9d83805a
+   *            40d46f49676a2f6b 2926f70c572c00#)))
+   */
+  
+  mpz_set_str(pub->n,
+	      "69abd505285af665" "36ddc7c8f027e6f0" "ed435d6748b16088"
+	      "4fd60842b3a8d7fb" "bd8a3c98f0cc50ae" "4f6a9f7dd73122cc"
+	      "ec8afa3f77134406" "f53721973115fc2d" "8cfbba23b145f28d"
+	      "84f81d3b6ae8ce1e" "2850580c026e809b" "cfbb52566ea3a3b3"
+	      "df7edf52971872a7" "e35c1451b8636d22" "279a8fb299368238"
+	      "e545fbb4cf", 16);
+  mpz_set_str(pub->e, "0db2ad57", 16);
+
+  if (!rsa_public_key_prepare(pub))
+    FAIL();
+  
+  /* d is not used */
+#if 0  
+  mpz_set_str(key->d,
+	      "3240a56f4cd0dcc2" "4a413eb4ea545259" "5c83d771a1c2ba7b"
+	      "ec47c5b43eb4b374" "09bd2aa1e236dd86" "481eb1768811412f"
+	      "f8d91be3545912af" "b55c014cb55ceac6" "54216af3b85d5c4f"
+	      "4a32894e3b5dfcde" "5b2875aa4dc8d9a8" "6afd0ca92ef50d35"
+	      "bd09f1c47efb4c8d" "c631e07698d362aa" "4a83fd304e66d6c5"
+	      "468863c307", 16);
+#endif
+  
+  mpz_set_str(key->p,
+	      "0a66399919be4b4d" "e5a78c5ea5c85bf9" "aba8c013cb4a8732"
+	      "14557a12bd67711e" "bb4073fd39ad9a86" "f4e80253ad809e5b"
+	      "f2fad3bc37f6f013" "273c9552c9f489", 16);
+
+  mpz_set_str(key->q,
+	      "0a294f069f118625" "f5eae2538db9338c" "776a298eae953329"
+	      "9fd1eed4eba04e82" "b2593bc98ba8db27" "de034da7daaea795"
+	      "2d55b07b5f9a5875" "d1ca5f6dcab897", 16);
+  
+  mpz_set_str(key->a,
+	      "011b6c48eb592eee" "e85d1bb35cfb6e07" "344ea0b5e5f03a28"
+	      "5b405396cbc78c5c" "868e961db160ba8d" "4b984250930cf79a"
+	      "1bf8a9f28963de53" "128aa7d690eb87", 16);
+  
+  mpz_set_str(key->b,
+	      "0409ecf3d2557c88" "214f1af5e1f17853" "d8b2d63782fa5628"
+	      "60cf579b0833b7ff" "5c0529f2a97c6452" "2fa1a8878a9635ab"
+	      "ce56debf431bdec2" "70b308fa5bf387", 16);
+  
+  mpz_set_str(key->c,
+	      "04e103ee925cb5e6" "6653949fa5e1a462" "c9e65e1adcd60058"
+	      "e2df9607cee95fa8" "daec7a389a7d9afc" "8dd21fef9d83805a"
+	      "40d46f49676a2f6b" "2926f70c572c00", 16);
+
+  if (!rsa_private_key_prepare(key))
+    FAIL();
+
+  if (pub->size != key->size)
+    FAIL();
+}
+
 void
 test_rsa_md5(struct rsa_public_key *pub,
 	     struct rsa_private_key *key,
diff --git a/testsuite/testutils.h b/testsuite/testutils.h
index edc17d51db08ede25d6367ccccab963e5b821c8f..ae2f8b79ace1554a40b4a39a74e1bfde26f05566 100644
--- a/testsuite/testutils.h
+++ b/testsuite/testutils.h
@@ -73,6 +73,10 @@ test_armor(const struct nettle_armor *armor,
            const uint8_t *ascii);
 
 #if WITH_PUBLIC_KEY
+void
+test_rsa_set_key_1(struct rsa_public_key *pub,
+		   struct rsa_private_key *key);
+
 void
 test_rsa_md5(struct rsa_public_key *pub,
 	     struct rsa_private_key *key,