source: git/Tst/Short/factorizeQ_s.tst @ 051432

jengelh-datetimespielwiese
Last change on this file since 051432 was 051432, checked in by Martin Lee <martinlee84@…>, 10 years ago
chg: added tests for tr. 439,440,441
  • Property mode set to 100644
File size: 280 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4proc testfactors (list l, poly f)
5{
6  poly g= 1;
7  for (int i= 1; i <= size (l[1]); i++)
8  {
9    g= g*(l[1][i]^l[2][i]);
10  }
11  g == f;
12  l;
13}
14
15//tr. 439
16ring rQ=0,(u,v),dp;
17poly f = u*(3v+1)^2;
18list l= factorize(f);
19testfactors (l,f);
20
21tst_status(1);$
Note: See TracBrowser for help on using the repository browser.