blabla

src/fq_default_poly/test/t-evaluate_fq_default.c

@@ -27,33 +27,60 @@ TEST_FUNCTION_START(fq_default_poly_evaluate, state)
         fq_default_t a, b, c;
         fq_default_poly_t f1, f2, f3;
 
+        flint_printf("i = %d\n", i);
+        fflush(stdout);
+
         /* Initalise a random fq_context */
         fq_default_ctx_init_randtest(ctx, state);
 
+        flint_printf("a\n");
+        fflush(stdout);
+
         /* Initalise fq_default elements */
         fq_default_init(a, ctx);
         fq_default_init(b, ctx);
         fq_default_init(c, ctx);
+        flint_printf("b\n");
+        fflush(stdout);
+
         fq_default_poly_init(f1, ctx);
         fq_default_poly_init(f2, ctx);
         fq_default_poly_init(f3, ctx);
 
+        flint_printf("c\n");
+        fflush(stdout);
+
         /* Set a to be a random element */
         fq_default_randtest(a, state, ctx);
 
+        flint_printf("d\n");
+        fflush(stdout);
+
         /* Set f1, f2 to be random polynomials and f3 their product */
         fq_default_poly_randtest(f1, state, n_randint(state, 10), ctx);
         fq_default_poly_randtest(f2, state, n_randint(state, 10), ctx);
         fq_default_poly_mul(f3, f1, f2, ctx);
 
+        flint_printf("e\n");
+        fflush(stdout);
+
         /* Evaluate the polynomials f1, f2, f3 = f1 * f2 on the element a */
         fq_default_poly_evaluate_fq_default(c, f3, a, ctx);
         fq_default_poly_evaluate_fq_default(b, f2, a, ctx);
         fq_default_poly_evaluate_fq_default(a, f1, a, ctx);
 
+        flint_printf("f\n");
+        fflush(stdout);
+
         /* Ensure that f1(a) * f2(a) = f3(a) = (f1 * f2)(a) */
         fq_default_mul(a, a, b, ctx); // a = f1(a) * f2(a)
+        flint_printf("g\n");
+        fflush(stdout);
+
         result = (fq_default_equal(a, c, ctx));
+        flint_printf("h\n");
+        fflush(stdout);
+
         if (!result)
         {
             flint_printf("FAIL:\n");
@@ -66,14 +93,26 @@ TEST_FUNCTION_START(fq_default_poly_evaluate, state)
             flint_abort();
         }
 
+        flint_printf("i\n");
+        fflush(stdout);
+
         /* Clear everything */
         fq_default_poly_clear(f1, ctx);
         fq_default_poly_clear(f2, ctx);
         fq_default_poly_clear(f3, ctx);
+        flint_printf("j\n");
+        fflush(stdout);
+
         fq_default_clear(a, ctx);
         fq_default_clear(b, ctx);
         fq_default_clear(c, ctx);
+        flint_printf("k\n");
+        fflush(stdout);
+
         fq_default_ctx_clear(ctx);
+        flint_printf("l\n");
+        fflush(stdout);
+
     }
 
     fmpz_clear(p);