# Testing the new generic indexsort routines based
# on Young tableaux.

A_{a b c d e f}::TableauSymmetry{6}{0,1,2,3,4,5}.
obj1: A_{c b q a s r};
@indexsort!(%);
tst1: A_{a b c q r s} - @(obj1);
@collect_terms!(%);
@assert(tst1);


# Backward compatibility

B_{?}::AntiSymmetric.
obj2: B_{c b q a s r};
@indexsort!(%);
tst2: B_{a b c q r s} - @(obj2);
@collect_terms!(%);
@assert(tst2);


# Column sorting only
q_{a b c d}::TableauSymmetry{1}{2,2}{0,2,1,3}.

obj1: q_{c d a b};
@indexsort!(%);
tst1: q_{a b c d} - @(obj1);
@collect_terms!(%);
@assert(tst1);
