Changeset 2e6a06 in git

Timestamp:

Aug 26, 2010, 6:03:02 PM (13 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

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

Children:

7c362e1976f05707294718bf3936097282ed4e31

Parents:

03901613ac5a5b40f44fd7758528af836672e4e2

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2010-08-26 18:03:02+02:00

git-committer:

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

Message:

More tests.
Problem: global variables are needed for long_R/C :(
New TODOs :)

File:

• coeffs/test.cc (modified) (4 diffs)

coeffs/test.cc

@@ -70 +70 @@
   n_Delete(&a, r);
   n_Delete(&two, r);
+
+
+  a = n_Sub( aa, aa1, r );
+  
+  StringSetS("a = aa - aa1: ");
+  n_Test(a,r); n_Write(a, r);
+  PrintS(StringAppend("\n"));
+
+  if( !n_IsZero(a, r) )
+    WarnS("ERROR: a != 0 !!!\n");
+
+  n_Delete(&a, r);
+
+
+
+  a = n_Sub( aa, aa2, r );
+
+  StringSetS("a = aa - aa2: ");
+  n_Test(a,r); n_Write(a, r);
+  PrintS(StringAppend("\n"));
+
+  if( !n_IsZero(a, r) )
+    WarnS("ERROR: a != 0 !!!\n");
+
+  n_Delete(&a, r);
+
+
+  a = n_Sub( aa1, aa2, r );
+
+  StringSetS("a = aa1 - aa2: ");
+  n_Test(a,r); n_Write(a, r);
+  PrintS(StringAppend("\n"));
+
+  if( !n_IsZero(a, r) )
+    WarnS("ERROR: a != 0 !!!\n");
+
+  n_Delete(&a, r);
+
 
   
@@ -118 +156 @@
 #undef CASE
     return o;
-  };
-};
+  }
+}
   
 
@@ -238 +276 @@
 
 
-
-
-  // the following leads to the error: "multiple definition of `fePathSep'"
-  // TODO: Oleksandr/Martin
    type = nRegister( n_GF, nfInitChar); assume( type == n_GF );
+
    GFInfo param;
 
@@ -248 +283 @@
    param.GFSize= 25;
    param.GFPar_name= "Z";
+
    if( Test(type, (void*) &param) )
      c ++;
   
 
-  // BUG: in n_Equal!
-  // TODO: Oleksandr/Christian
-//   type = nRegister( n_long_R, ngfInitChar); assume( type == n_long_R );
-//   if( Test(type) )
-//     c ++;
-//
-//   type = nRegister( n_long_C, ngcInitChar); assume( type == n_long_C );
-//   if( Test(type) )
-//     c ++;
-  
-  
-
-
-
+ 
+  TODO(Somebody, floating arithmetics via GMP rely on two global variables (see setGMPFloatDigits). Fix it!);
+  
+  setGMPFloatDigits( 10, 5 ); // Init global variables in mpr_complex.cc for gmp_float's...
+      
+  type = nRegister( n_long_C, ngcInitChar); assume( type == n_long_C );
+  if( Test(type) )
+    c ++;
+
+  type = nRegister( n_long_R, ngfInitChar); assume( type == n_long_R );
+  if( Test(type) )
+    c ++;
+  
+
+  type = nRegister( n_GF, nfInitChar); assume( type == n_GF );
+  if( Test(type) )
+    c ++;
+  
 #ifdef HAVE_RINGS
   type = nRegister( n_Zn, nrnInitChar); assume( type == n_Zn );
 
-  // trivial BUG here: the parameter 'm' is ignored now in nrnSetExp!!!
-  // TODO: Frank
+  TODO(Frank, this seems to be a trivial BUG: the parameter 'm' is ignored now in nrnSetExp. Please fix someday!!!)
   if( Test(type, (void*) 3) )
     c ++;