- use initializers in exception class pole_error.
[ginac.git] / check / exam_clifford.cpp
index 287a600d10882700ac53a1e28098811f45327082..fc97ac02447fb81a89d6c71e500f4720d04a5ff9 100644 (file)
@@ -173,6 +173,17 @@ static unsigned clifford_check3(void)
        e = dirac_trace(e).simplify_indexed(sp);
        result += check_equal(e, 4*(2*ldotq*ldotq + q*q*ldotq - q*q*l*l + q*q*m*m).expand());
 
+       // stuff that had problems in the past
+       ex prop = dirac_slash(q, dim) - m * dirac_ONE();
+       e = dirac_slash(l, dim) * dirac_gamma5() * dirac_slash(l, dim) * prop;
+       e = dirac_trace(dirac_slash(q, dim) * e) - dirac_trace(m * e)
+         - dirac_trace(prop * e);
+       result += check_equal(e, 0);
+
+       e = (dirac_gamma5() + dirac_ONE()) * dirac_gamma5();
+       e = dirac_trace(e);
+       result += check_equal(e, 4);
+
        return result;
 }