more checks (more, MORE, BWAHAHHAAA!... uhm, ...) for noncommutative classes

[ginac.git] / check / exam_archive.cpp

diff --git a/check/exam_archive.cpp b/check/exam_archive.cpp
index 2b8862ccf480a8decd89fc7e295b7796049378e3..7385727c8b0b997aebde17b65bf3e385006c460c 100644 (file)
--- a/check/exam_archive.cpp
+++ b/check/exam_archive.cpp
@@ -31,7 +31,7 @@ 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
@@ -40,7 +40,7 @@ unsigned exam_archive(void)
            * 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()
-               * metric_tensor(varidx(0, 5), varidx(2, 4)), zeta(3)),
+               * metric_tensor(spinidx(0, 5, false, true), varidx(2, 4)), zeta(3)),
              varidx(diag_matrix(lst(-1, Euler, atan(x/y==-15*I/17)))
                * delta_tensor(idx(x, 2), idx(y, 3)), log(cos(128.0/(x*y))), true),
              true