diff options
| -rw-r--r-- | test/src/cm/test_p1363.c | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/test/src/cm/test_p1363.c b/test/src/cm/test_p1363.c index 7bdc6be..6df19db 100644 --- a/test/src/cm/test_p1363.c +++ b/test/src/cm/test_p1363.c @@ -6,8 +6,19 @@ #include <criterion/criterion.h> #include "cm/p1363.h" #include "test/default.h" +#include "test/output.h" -TestSuite(p1363, .init = default_setup, .fini = default_teardown); +void p1363_setup() { + default_setup(); + output_setup(); +} + +void p1363_teardown() { + default_teardown(); + output_teardown(); +} + +TestSuite(p1363, .init = p1363_setup, .fini = p1363_teardown); Test(p1363, test_p1363_forms) { GEN D = stoi(71); @@ -25,6 +36,7 @@ Test(p1363, test_p1363_forms) { cr_assert(equalii(forms[i]->B, expected[i].B), ); cr_assert(equalii(forms[i]->C, expected[i].C), ); } + p1363_free(&forms, nforms); } Test(p1363, test_p1363_poly) { @@ -32,5 +44,10 @@ Test(p1363, test_p1363_poly) { p1363_form_t **forms; size_t nforms = p1363_forms(D, &forms); GEN WD = p1363_poly(D, forms, nforms); - pari_printf("%Ps\n", WD); + GEN coeffs = gtovec(WD); + + GEN expected = + mkvecn(8, gen_1, gen_m2, gen_m1, gen_1, gen_1, gen_1, gen_m1, gen_m1); + cr_assert(gequal(coeffs, expected), ); + p1363_free(&forms, nforms); }
\ No newline at end of file |