r14544 - gnucash/trunk/src/engine/test-core - Fix test of numerics in random splits, because multiplications might also turn out zero.

[Christian Stimming]

Author: cstim
Date: 2006-07-19 12:03:05 -0400 (Wed, 19 Jul 2006)
New Revision: 14544
Trac: http://svn.gnucash.org/trac/changeset/14544

Modified:
   gnucash/trunk/src/engine/test-core/test-engine-stuff.c
Log:
Fix test of numerics in random splits, because multiplications might also turn out zero.

Modified: gnucash/trunk/src/engine/test-core/test-engine-stuff.c
===================================================================
--- gnucash/trunk/src/engine/test-core/test-engine-stuff.c	2006-07-19 14:13:37 UTC (rev 14543)
+++ gnucash/trunk/src/engine/test-core/test-engine-stuff.c	2006-07-19 16:03:05 UTC (rev 14544)
@@ -1334,8 +1334,14 @@
         } while (gnc_numeric_check(amt) != GNC_ERROR_OK);
     }
     xaccSplitSetAmount(ret, amt);
+
+    /* Make sure val and amt have the same sign. Note that amt is
+       also allowed to be zero, because that is caused by a small
+       rate. */
     if (gnc_numeric_positive_p(val))
-        g_assert(gnc_numeric_positive_p(amt));
+        g_assert(!gnc_numeric_negative_p(amt)); /* non-negative amt */
+    else
+        g_assert(!gnc_numeric_positive_p(amt)); /* non-positive amt */
     
     xaccSplitSetSlots_nc(ret, get_random_kvp_frame());
     xaccTransCommitEdit(trn);