crypto/bn/bntest.c

35  *    The word 'cryptographic' can be left out if the rouines from the library
130 static void message(BIO *out, char *m)
133 	BIO_puts(out, "print \"test ");
134 	BIO_puts(out, m);
135 	BIO_puts(out, "\\n\"\n");
141 	BIO *out;
154 		else if (strcmp(*argv,"-out") == 0)
167 	out=BIO_new(BIO_s_file());
168 	if (out == NULL) EXIT(1);
171 		BIO_set_fp(out,stdout,BIO_NOCLOSE);
175 		if (!BIO_write_filename(out,outfile))
183 		BIO_puts(out,"obase=16\nibase=16\n");
185 	message(out,"BN_add");
186 	if (!test_add(out)) goto err;
187 	BIO_flush(out);
189 	message(out,"BN_sub");
190 	if (!test_sub(out)) goto err;
191 	BIO_flush(out);
193 	message(out,"BN_lshift1");
194 	if (!test_lshift1(out)) goto err;
195 	BIO_flush(out);
197 	message(out,"BN_lshift (fixed)");
198 	if (!test_lshift(out,ctx,BN_bin2bn(lst,sizeof(lst)-1,NULL)))
200 	BIO_flush(out);
202 	message(out,"BN_lshift");
203 	if (!test_lshift(out,ctx,NULL)) goto err;
204 	BIO_flush(out);
206 	message(out,"BN_rshift1");
207 	if (!test_rshift1(out)) goto err;
208 	BIO_flush(out);
210 	message(out,"BN_rshift");
211 	if (!test_rshift(out,ctx)) goto err;
212 	BIO_flush(out);
214 	message(out,"BN_sqr");
215 	if (!test_sqr(out,ctx)) goto err;
216 	BIO_flush(out);
218 	message(out,"BN_mul");
219 	if (!test_mul(out)) goto err;
220 	BIO_flush(out);
222 	message(out,"BN_div");
223 	if (!test_div(out,ctx)) goto err;
224 	BIO_flush(out);
226 	message(out,"BN_div_word");
227 	if (!test_div_word(out)) goto err;
228 	BIO_flush(out);
230 	message(out,"BN_div_recp");
231 	if (!test_div_recp(out,ctx)) goto err;
232 	BIO_flush(out);
234 	message(out,"BN_mod");
235 	if (!test_mod(out,ctx)) goto err;
236 	BIO_flush(out);
238 	message(out,"BN_mod_mul");
239 	if (!test_mod_mul(out,ctx)) goto err;
240 	BIO_flush(out);
242 	message(out,"BN_mont");
243 	if (!test_mont(out,ctx)) goto err;
244 	BIO_flush(out);
246 	message(out,"BN_mod_exp");
247 	if (!test_mod_exp(out,ctx)) goto err;
248 	BIO_flush(out);
250 	message(out,"BN_mod_exp_mont_consttime");
251 	if (!test_mod_exp_mont_consttime(out,ctx)) goto err;
252 	BIO_flush(out);
254 	message(out,"BN_exp");
255 	if (!test_exp(out,ctx)) goto err;
256 	BIO_flush(out);
258 	message(out,"BN_kronecker");
259 	if (!test_kron(out,ctx)) goto err;
260 	BIO_flush(out);
262 	message(out,"BN_mod_sqrt");
263 	if (!test_sqrt(out,ctx)) goto err;
264 	BIO_flush(out);
266 	message(out,"BN_GF2m_add");
267 	if (!test_gf2m_add(out)) goto err;
268 	BIO_flush(out);
270 	message(out,"BN_GF2m_mod");
271 	if (!test_gf2m_mod(out)) goto err;
272 	BIO_flush(out);
274 	message(out,"BN_GF2m_mod_mul");
275 	if (!test_gf2m_mod_mul(out,ctx)) goto err;
276 	BIO_flush(out);
278 	message(out,"BN_GF2m_mod_sqr");
279 	if (!test_gf2m_mod_sqr(out,ctx)) goto err;
280 	BIO_flush(out);
282 	message(out,"BN_GF2m_mod_inv");
283 	if (!test_gf2m_mod_inv(out,ctx)) goto err;
284 	BIO_flush(out);
286 	message(out,"BN_GF2m_mod_div");
287 	if (!test_gf2m_mod_div(out,ctx)) goto err;
288 	BIO_flush(out);
290 	message(out,"BN_GF2m_mod_exp");
291 	if (!test_gf2m_mod_exp(out,ctx)) goto err;
292 	BIO_flush(out);
294 	message(out,"BN_GF2m_mod_sqrt");
295 	if (!test_gf2m_mod_sqrt(out,ctx)) goto err;
296 	BIO_flush(out);
298 	message(out,"BN_GF2m_mod_solve_quad");
299 	if (!test_gf2m_mod_solve_quad(out,ctx)) goto err;
300 	BIO_flush(out);
303 	BIO_free(out);
308 	BIO_puts(out,"1\n"); /* make sure the Perl script fed by bc notices
310 	BIO_flush(out);