- checks adapted to new GCD behavior for partly-factored input polynomials

[ginac.git] / check / normalization.cpp

diff --git a/check/normalization.cpp b/check/normalization.cpp
index fa14496a85c38bcd184b220545633330b89ebd12..1c3ac9c7b9e7af337296fda7eb129bc6ee86090a 100644 (file)
--- a/check/normalization.cpp
+++ b/check/normalization.cpp
@@ -73,6 +73,16 @@ static unsigned normal1(void)
     e = (pow(x, -1) + x) / (pow(x , 2) * 2 + 2);
     d = pow(x * 2, -1);
     result += check_normal(e, d);
+
+       // Fraction cancellation with rational coefficients
+       e = (pow(x, 2) - pow(y, 2)) / pow(x/2 - y/2, 3);
+       d = (8 * x + 8 * y) / (pow(x, 2) + pow(y, 2) - x * y * 2);
+       result += check_normal(e, d);
+
+       // Fraction cancellation with rational coefficients
+       e = z/5 * (x/7 + y/10) / (x/14 + y/20);
+       d = 2*z/5;
+       result += check_normal(e, d);
     
     // Distribution of powers
     e = pow(x/y, 2);