* Series expansion test (Laurent and Taylor series). */
/*
- * GiNaC Copyright (C) 1999-2014 Johannes Gutenberg University Mainz, Germany
+ * GiNaC Copyright (C) 1999-2021 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
d = pow(a, b) + (pow(a, b)*b/a)*x + (pow(a, b)*b*b/a/a/2 - pow(a, b)*b/a/a/2)*pow(x, 2) + Order(pow(x, 3));
result += check_series(e, 0, d, 3);
+ e = a * (1 / (x * sin(x)) - sin(x) / x);
+ d = a * pow(x, -2) + Order(pow(x, -1));
+ result += check_series(e, 0, d, -1);
+
return result;
}