- more clifford checks

[ginac.git] / check / exam_archive.cpp

diff --git a/check/exam_archive.cpp b/check/exam_archive.cpp
index af8f49051b1e3ff60a3f20ca581aebe27d7a3433..4911a76ac78e962c66002d0b8838828269e96e64 100644 (file)
--- a/check/exam_archive.cpp
+++ b/check/exam_archive.cpp
@@ -31,12 +31,12 @@ unsigned exam_archive(void)
        cout << "examining archiving system" << flush;
        clog << "----------archiving system:" << endl;
 
-       symbol x("x"), y("y"), mu("mu"), dim("dim");
+       symbol x("x"), y("y"), mu("mu"), dim("dim", "\\Delta");
        ex e, f;
 
        // This expression is complete nonsense but it contains every type of
        // GiNaC object
-       e = -42 * x * pow(y, sin(y*Catalan)) * dirac_one()
+       e = -42 * x * pow(y, sin(y*Catalan)) * dirac_ONE()
            * epsilon_tensor(idx(fail(), 3), idx(0, 3), idx(y/2, 3))
          + lorentz_g(
              varidx(lst(x, -11*y, acos(2*x).series(x==3-5*I, 3)) * color_ONE()