* Here we test GiNaC's archiving system. */
/*
- * GiNaC Copyright (C) 1999-2008 Johannes Gutenberg University Mainz, Germany
+ * GiNaC Copyright (C) 1999-2015 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
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*/
-#include <iostream>
-#include <fstream>
#include "ginac.h"
-using namespace std;
using namespace GiNaC;
+#include <fstream>
+#include <iostream>
+using namespace std;
+
unsigned exam_archive()
{
unsigned result = 0;
}
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;