* Here we test GiNaC's archiving system. */
/*
- * GiNaC Copyright (C) 1999-2007 Johannes Gutenberg University Mainz, Germany
+ * GiNaC Copyright (C) 1999-2008 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
}
f = ar.unarchive_ex(lst(x, y, mu, dim), "expr 1");
- if (!f.is_equal(e)) {
+ ex difference = (f - e).expand();
+ if (!difference.is_zero()) {
clog << "archiving/unarchiving " << e << endl
<< "erroneously returned " << f << endl;
++result;