Changeset a866f1 in git for Tst/Short/factorizeQ_s.tst

Timestamp:

Oct 10, 2013, 11:02:50 AM (10 years ago)

Author:

Martin Lee <martinlee84@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

d97184a9242b4705bedbd989aaeff554b5cf61e3

Parents:

fdcaa13d8248d1d9b9ae9d4e7e9ffa6c2e1cb22b

git-author:

Martin Lee <martinlee84@web.de>2013-10-10 11:02:50+02:00

git-committer:

Martin Lee <martinlee84@web.de>2013-10-10 11:15:57+02:00

Message:

chg: added test for possible seg fault in factorization

File:

• Tst/Short/factorizeQ_s.tst (modified) (1 diff)

Tst/Short/factorizeQ_s.tst

@@ -25 +25 @@
 testfactors (l,p);
 
+kill r;
+
+ring r=0,(a,b,c,d,e,f),dp;
+poly g=(-4*c*d + 8*d^2 + 12*f^2 + 8*a)*(8*b*c - 12*c + 4*f)*(3*a*c + 3*b*c - 
+ 3*a*d + 33*d^2 - 3*f)*(-4*a*b - 4*b*d + 140*d^2 - 4*d*f - 4*a)*(4*a*b - 
+ 8*b*d - 12*d^2 - 12*c*f - 8)*(-21*b*c - 3*b*d - 222*d^2 - 6*d*f - 
+ 39*f)*(16*a*d + 128*b*d - 2)*(8*b*c + 4*c^2 - 4*b*f + 12*f)*(4*a*b + 4*b*c 
+ - 2*a*f + 6*f^2 - 2*b)*(-48*b^2 + 8*c*d + 144*c)*(-3*b^2 + 4*c^2 - b*d + 
+ f^2 + 3*a)*(4*c^2 + 4*b*d - 4*d^2 + 12*a*f);
+
+system ("--random",12345643);
+list l=factorize (g);
+testfactors (l, g);
+
 tst_status(1);$