Changeset 8aa03b in git

Timestamp:

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

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'f6c3dc58b0df4bd712574325fe76d0626174ad97')

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

Files:

• Singular/test.cc (modified) (1 diff)
• kernel/makefile (modified) (1 diff)
• kernel/test.cc (modified) (3 diffs)

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;

kernel/makefile

@@ -310 +310 @@
 # My headers test
 check: all test testg
-        ./test
-        ./test
+        SINGULAR_ROOT_DIR=`pwd/../` SINGULARPATH="$SINGULAR_ROOT_DIR/libpolys/polys/.libs" ./test
+        SINGULAR_ROOT_DIR=`pwd/../` SINGULARPATH="$SINGULAR_ROOT_DIR/libpolys/polys/.libs" ./testg

kernel/test.cc

@@ -57 +57 @@
 
 #include <coeffs/numbers.h>
-#include <kernel/polys.h>
 
 #include "mod2.h"
@@ -316 +315 @@
 
 
+#include "polys.h"
 
 int main( int, char *argv[] ) 
@@ -324 +324 @@
   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;