sp/cln_mirror - cln_mirror - Gitea: Git with a cup of tea

15 lines

352 B

Raw Permalink Normal View History

Initial revision

25 years ago

* All Files have been modified for inclusion of namespace cln; I am too lazy for a detailed discussion of all the changes. Many identifiers got their `cl_' stripped off. Ok, this is a clumpsy CVS log-entry. Promise: more will soon go into the file ChangeLog. I apologize for the inconvenience. :-(

25 years ago

Initial revision

25 years ago

#include "test_MI.h"

int test_MI_canonhom (int iterations)
{
	int error = 0;
	int i;
	// Check canonhom followed by retract.
	for (i = iterations; i > 0; i--) {
		cl_I m = testrandom_I();
		cl_modint_ring R = find_modint_ring(m);
		cl_I a = testrandom_I();
		ASSERT2(R->retract(R->canonhom(a)) == (m==0 ? a : mod(a,abs(m))), m,a);
	}
	return error;
}