Changeset a1417c in git for Tst/Long/primitiv_l.tst

Timestamp:

Apr 14, 1999, 8:32:06 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

f82470cd59711fa9be6dec30bf3b65ca1e6b067b

Parents:

81fb58d69996f43b36f242e32fa561907b220757

Message:

* hannes: polys1.cc: optimized pPower of binoms
          minor corrections to test files: Long/primitiv_l, Short/primitiv_s,..


git-svn-id: file:///usr/local/Singular/svn/trunk@2980 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Tst/Long/primitiv_l.tst (modified) (4 diffs)

Tst/Long/primitiv_l.tst

@@ -4 +4 @@
 tst_init();
 LIB "primitiv.lib";
-// ------------ test of primitive: -------------------
+// ------------ test of primitive and primitive_extra: -------------------
+printlevel=3;
 ring r=0,x,dp;
 primitive(ideal(x2+1));
@@ -23 +24 @@
 // as it should be
 setring r;
+primitive_extra(i);
 i=x2-3,y2-x;
 primitive(i);
+primitive_extra(i);
 kill r;
 ring r=0,(x(0..3)),lp;
@@ -40 +43 @@
 tst_ignore(kmemory(),"memory");
 "size of the result :",size(string(o)),"characters";
+zeit=timer;
+o=primitive_extra(ideal(f1,f2));
+tst_ignore(timer-zeit,"time");
+tst_ignore(kmemory(),"memory");
+"size of the result :",size(string(o)),"characters";
 kill r;
 ring r=3,(x,y,z),dp;
 ideal i=x2+1,y3-y-1,z2+yz-1;
 primitive(i);
+primitive_extra(i);
+primitive_extra(ideal(i[1],i[2]));
 kill r;
 // ------------ test of splitring: -------------------
@@ -74 +84 @@
 // ------------ test of randomLast: ------------------
 example randomLast;
-tst_status(1);$
+$