From: Alexander Frink <Alexander.Frink@uni-mainz.de>
Date: Mon, 21 Feb 2000 23:02:43 +0000 (+0000)
Subject: added a normal() to compare the output from lsolve with what is expected
X-Git-Tag: release_0-5-3~12
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=commitdiff_plain;h=0cc840f49d87e01b31ad5a848a8bf5470ea43275

added a normal() to compare the output from lsolve with what is expected
---

diff --git a/check/linear_solve.cpp b/check/linear_solve.cpp
index 0faabb0b..1a5a0bd3 100644
--- a/check/linear_solve.cpp
+++ b/check/linear_solve.cpp
@@ -61,8 +61,8 @@ static unsigned lsolve2a(void)
     ex sol_y = sol.op(1).rhs();  // rhs of solution for second variable (y)
     
     // It should have returned [x==(3+b^2)/(a+b),y==(3-a*b)/(a+b)]
-    if (!(sol_x - (3+pow(b,2))/(a+b)).is_zero() ||
-        !(sol_y - (3-a*b)/(a+b)).is_zero()) {
+    if (!normal(sol_x - (3+pow(b,2))/(a+b)).is_zero() ||
+        !normal(sol_y - (3-a*b)/(a+b)).is_zero()) {
         result++;
         clog << "solution of the system " << eqns << " for " << vars
              << " erroneously returned " << sol << endl;