]> www.ginac.de Git - cln.git/blobdiff - tests/test_MI_minus.cc
Replace CL_REQUIRE/CL_PROVIDE(cl_GV_I) with portable code.
[cln.git] / tests / test_MI_minus.cc
index 7694f0f8c680f125d0950b9cf177966e59831163..08ae038f43b8516d792adf2ec931fc7789f18b84 100644 (file)
@@ -7,7 +7,7 @@ int test_MI_minus (int iterations)
        // Check anti-commutativity.
        for (i = iterations; i > 0; i--) {
                cl_I m = testrandom_I();
-               cl_modint_ring R = cl_find_modint_ring(m);
+               cl_modint_ring R = find_modint_ring(m);
                cl_MI a = R->canonhom(testrandom_I());
                cl_MI b = R->canonhom(testrandom_I());
                cl_MI z = R->zero();
@@ -16,7 +16,7 @@ int test_MI_minus (int iterations)
        // Check associativity.
        for (i = iterations; i > 0; i--) {
                cl_I m = testrandom_I();
-               cl_modint_ring R = cl_find_modint_ring(m);
+               cl_modint_ring R = find_modint_ring(m);
                cl_MI a = R->canonhom(testrandom_I());
                cl_MI b = R->canonhom(testrandom_I());
                cl_MI c = R->canonhom(testrandom_I());
@@ -25,7 +25,7 @@ int test_MI_minus (int iterations)
        // Check special case 0.
        for (i = iterations; i > 0; i--) {
                cl_I m = testrandom_I();
-               cl_modint_ring R = cl_find_modint_ring(m);
+               cl_modint_ring R = find_modint_ring(m);
                cl_MI a = R->canonhom(testrandom_I());
                cl_MI z = R->zero();
                ASSERT2(a-z == a, m,a);