Changeset 8aa03b in git for Singular/test.cc

Timestamp:

Aug 25, 2011, 6:36:56 PM (13 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

ef6f951a70b932a931c74771bcc97ed20e73dad7

Parents:

96808051cc040577fa581782fb8007fbe635d585

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-08-25 18:36:56+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 16:12:28+01:00

Message:

ADD: improving tests

File:

• Singular/test.cc (modified) (1 diff)

Singular/test.cc

@@ -323 +323 @@
   feStringAppendResources(0);
   PrintS(StringAppendS("\n"));
+
+   
+   
+  // Libpolys tests:
+   
+  // construct the ring Z/32003[x,y,z]
+  // the variable names
+  char **n=(char**)omalloc(3*sizeof(char*));
+  n[0]=omStrDup("x");
+  n[1]=omStrDup("y");
+  n[2]=omStrDup("z2");
+
+  ring R=rDefault(32003,3,n);
+  // make R the default ring:
+  rChangeCurrRing(R);
+
+  // create the polynomial 1
+  poly p1=pISet(1);
+
+  // create tthe polynomial 2*x^3*z^2
+  poly p2=p_ISet(2,R);
+  pSetExp(p2,1,3);
+  pSetExp(p2,3,2);
+  pSetm(p2);
+
+  // print p1 + p2
+  pWrite(p1); printf(" + \n"); pWrite(p2); printf("\n");
+
+  // compute p1+p2
+  p1=p_Add_q(p1,p2,R); p2=NULL;
+  pWrite(p1); 
+
+  // clean up:
+  pDelete(&p1);
+   
+  rDelete(R);
+   
    
   return 0;