* functions. */
/*
- * GiNaC Copyright (C) 1999-2010 Johannes Gutenberg University Mainz, Germany
+ * GiNaC Copyright (C) 1999-2011 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
return result;
}
+static unsigned check_G_y_one_bug()
+{
+ exvector exprs;
+ exprs.push_back(G(lst(-1,-1, 1,-1, 0), 1));
+ exprs.push_back(G(lst(-1, 0, 1,-1, 0), 1));
+ exprs.push_back(G(lst(-1, 1,-1,-1, 0), 1));
+ exprs.push_back(G(lst(-1, 1,-1, 0, 0), 1));
+ exprs.push_back(G(lst(-1, 1,-1, 1, 0), 1));
+ exprs.push_back(G(lst(-1, 1, 0,-1, 0), 1));
+ exprs.push_back(G(lst(-1, 1, 1,-1, 0), 1));
+ exprs.push_back(G(lst( 0,-1, 1,-1, 0), 1));
+ exprs.push_back(G(lst( 0, 1, 1,-1, 0), 1));
+ unsigned err = 0;
+ for (exvector::const_iterator ep = exprs.begin(); ep != exprs.end(); ++ep) {
+ try {
+ ex val = ep->evalf();
+ if (!is_a<numeric>(val)) {
+ clog << "evalf(" << *ep << ") is not a number: " << val << endl;
+ ++err;
+ }
+ } catch (std::exception& oops) {
+ clog << "evalf(" << *ep << "): got an exception" << oops.what() << endl;
+ ++err;
+ }
+ }
+ return err;
+}
unsigned exam_inifcns_nstdsums(void)
{
result += inifcns_test_HLi();
result += inifcns_test_LiG();
result += inifcns_test_legacy();
+ result += check_G_y_one_bug();
return result;
}