diff options
Diffstat (limited to 'test/src/cm/test_p1363.c')
| -rw-r--r-- | test/src/cm/test_p1363.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/src/cm/test_p1363.c b/test/src/cm/test_p1363.c index 6df19db..6ff3c10 100644 --- a/test/src/cm/test_p1363.c +++ b/test/src/cm/test_p1363.c @@ -50,4 +50,14 @@ Test(p1363, test_p1363_poly) { 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); +} + +Test(p1363, test_p1363_polclass) { + GEN WD = p1363_polclass(stoi(71)); + + 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), ); }
\ No newline at end of file |