* tests on these numbers like is_integer() etc... */
/*
- * GiNaC Copyright (C) 1999-2000 Johannes Gutenberg University Mainz, Germany
+ * GiNaC Copyright (C) 1999-2001 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
#include "checks.h"
-#ifndef NO_NAMESPACE_GINAC
-using namespace GiNaC;
-#endif // ndef NO_NAMESPACE_GINAC
-
/* Simple and maybe somewhat pointless consistency tests of assorted tests and
* conversions. */
static unsigned check_numeric1(void)
numeric res = p/q;
if (res != z) {
clog << z << " erroneously transformed into "
- << p << "/" << q << " by numer() and denom()" << endl;
+ << p << "/" << q << " by numer() and denom()" << endl;
errorflag = true;
}
}
ex radical = pow(ex(num)/ex(den),ex(nm));
numeric floating = pow(num/den,nm);
// test the result:
- if (is_ex_of_type(radical,numeric)) {
+ if (is_a<numeric>(radical)) {
clog << "(" << num << "/" << den << ")^(" << nm
- << ") should have been a product, instead it's "
- << radical << endl;
+ << ") should have been a product, instead it's "
+ << radical << endl;
errorflag = true;
}
- numeric ratio = ex_to_numeric(evalf(radical))/floating;
+ numeric ratio = ex_to<numeric>(evalf(radical))/floating;
if (ratio>1.0001 && ratio<0.9999) {
clog << "(" << num << "/" << den << ")^(" << nm
- << ") erroneously evaluated to " << radical;
+ << ") erroneously evaluated to " << radical;
errorflag = true;
}
}