X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=check%2Fexam_clifford.cpp;h=2dae18fafdf1520c4df471351841ad73b10f43c7;hp=287a600d10882700ac53a1e28098811f45327082;hb=ee1af48a44dbe1e3b743c3683cd3601deb7ce0ed;hpb=504b90fcaeafe013a6f1b32edcc0d6a51561fc35

diff --git a/check/exam_clifford.cpp b/check/exam_clifford.cpp
index 287a600d..2dae18fa 100644
--- a/check/exam_clifford.cpp
+++ b/check/exam_clifford.cpp
@@ -3,7 +3,7 @@
  *  Here we test GiNaC's Clifford algebra objects. */
 
 /*
- *  GiNaC Copyright (C) 1999-2001 Johannes Gutenberg University Mainz, Germany
+ *  GiNaC Copyright (C) 1999-2002 Johannes Gutenberg University Mainz, Germany
  *
  *  This program is free software; you can redistribute it and/or modify
  *  it under the terms of the GNU General Public License as published by
@@ -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;
 }