+++ /dev/null
-/* Poor-man's template. Macros used:\r
- TESTNAME name of the test (like test_long_api_inner)\r
- TYPENAME the signed type (like long)\r
- F_S_TO_PY convert signed to pylong; TYPENAME -> PyObject*\r
- F_PY_TO_S convert pylong to signed; PyObject* -> TYPENAME\r
- F_U_TO_PY convert unsigned to pylong; unsigned TYPENAME -> PyObject*\r
- F_PY_TO_U convert pylong to unsigned; PyObject* -> unsigned TYPENAME\r
-*/\r
-\r
-static PyObject *\r
-TESTNAME(PyObject *error(const char*))\r
-{\r
- const int NBITS = sizeof(TYPENAME) * 8;\r
- unsigned TYPENAME base;\r
- PyObject *pyresult;\r
- int i;\r
-\r
- /* Note: This test lets PyObjects leak if an error is raised. Since\r
- an error should never be raised, leaks are impossible <wink>. */\r
-\r
- /* Test native -> PyLong -> native roundtrip identity.\r
- * Generate all powers of 2, and test them and their negations,\r
- * plus the numbers +-1 off from them.\r
- */\r
- base = 1;\r
- for (i = 0;\r
- i < NBITS + 1; /* on last, base overflows to 0 */\r
- ++i, base <<= 1)\r
- {\r
- int j;\r
- for (j = 0; j < 6; ++j) {\r
- TYPENAME in, out;\r
- unsigned TYPENAME uin, uout;\r
-\r
- /* For 0, 1, 2 use base; for 3, 4, 5 use -base */\r
- uin = j < 3 ? base\r
- : (unsigned TYPENAME)(-(TYPENAME)base);\r
-\r
- /* For 0 & 3, subtract 1.\r
- * For 1 & 4, leave alone.\r
- * For 2 & 5, add 1.\r
- */\r
- uin += (unsigned TYPENAME)(TYPENAME)(j % 3 - 1);\r
-\r
- pyresult = F_U_TO_PY(uin);\r
- if (pyresult == NULL)\r
- return error(\r
- "unsigned unexpected null result");\r
-\r
- uout = F_PY_TO_U(pyresult);\r
- if (uout == (unsigned TYPENAME)-1 && PyErr_Occurred())\r
- return error(\r
- "unsigned unexpected -1 result");\r
- if (uout != uin)\r
- return error(\r
- "unsigned output != input");\r
- UNBIND(pyresult);\r
-\r
- in = (TYPENAME)uin;\r
- pyresult = F_S_TO_PY(in);\r
- if (pyresult == NULL)\r
- return error(\r
- "signed unexpected null result");\r
-\r
- out = F_PY_TO_S(pyresult);\r
- if (out == (TYPENAME)-1 && PyErr_Occurred())\r
- return error(\r
- "signed unexpected -1 result");\r
- if (out != in)\r
- return error(\r
- "signed output != input");\r
- UNBIND(pyresult);\r
- }\r
- }\r
-\r
- /* Overflow tests. The loop above ensured that all limit cases that\r
- * should not overflow don't overflow, so all we need to do here is\r
- * provoke one-over-the-limit cases (not exhaustive, but sharp).\r
- */\r
- {\r
- PyObject *one, *x, *y;\r
- TYPENAME out;\r
- unsigned TYPENAME uout;\r
-\r
- one = PyLong_FromLong(1);\r
- if (one == NULL)\r
- return error(\r
- "unexpected NULL from PyLong_FromLong");\r
-\r
- /* Unsigned complains about -1? */\r
- x = PyNumber_Negative(one);\r
- if (x == NULL)\r
- return error(\r
- "unexpected NULL from PyNumber_Negative");\r
-\r
- uout = F_PY_TO_U(x);\r
- if (uout != (unsigned TYPENAME)-1 || !PyErr_Occurred())\r
- return error(\r
- "PyLong_AsUnsignedXXX(-1) didn't complain");\r
- if (!PyErr_ExceptionMatches(PyExc_OverflowError))\r
- return error(\r
- "PyLong_AsUnsignedXXX(-1) raised "\r
- "something other than OverflowError");\r
- PyErr_Clear();\r
- UNBIND(x);\r
-\r
- /* Unsigned complains about 2**NBITS? */\r
- y = PyLong_FromLong((long)NBITS);\r
- if (y == NULL)\r
- return error(\r
- "unexpected NULL from PyLong_FromLong");\r
-\r
- x = PyNumber_Lshift(one, y); /* 1L << NBITS, == 2**NBITS */\r
- UNBIND(y);\r
- if (x == NULL)\r
- return error(\r
- "unexpected NULL from PyNumber_Lshift");\r
-\r
- uout = F_PY_TO_U(x);\r
- if (uout != (unsigned TYPENAME)-1 || !PyErr_Occurred())\r
- return error(\r
- "PyLong_AsUnsignedXXX(2**NBITS) didn't "\r
- "complain");\r
- if (!PyErr_ExceptionMatches(PyExc_OverflowError))\r
- return error(\r
- "PyLong_AsUnsignedXXX(2**NBITS) raised "\r
- "something other than OverflowError");\r
- PyErr_Clear();\r
-\r
- /* Signed complains about 2**(NBITS-1)?\r
- x still has 2**NBITS. */\r
- y = PyNumber_Rshift(x, one); /* 2**(NBITS-1) */\r
- UNBIND(x);\r
- if (y == NULL)\r
- return error(\r
- "unexpected NULL from PyNumber_Rshift");\r
-\r
- out = F_PY_TO_S(y);\r
- if (out != (TYPENAME)-1 || !PyErr_Occurred())\r
- return error(\r
- "PyLong_AsXXX(2**(NBITS-1)) didn't "\r
- "complain");\r
- if (!PyErr_ExceptionMatches(PyExc_OverflowError))\r
- return error(\r
- "PyLong_AsXXX(2**(NBITS-1)) raised "\r
- "something other than OverflowError");\r
- PyErr_Clear();\r
-\r
- /* Signed complains about -2**(NBITS-1)-1?;\r
- y still has 2**(NBITS-1). */\r
- x = PyNumber_Negative(y); /* -(2**(NBITS-1)) */\r
- UNBIND(y);\r
- if (x == NULL)\r
- return error(\r
- "unexpected NULL from PyNumber_Negative");\r
-\r
- y = PyNumber_Subtract(x, one); /* -(2**(NBITS-1))-1 */\r
- UNBIND(x);\r
- if (y == NULL)\r
- return error(\r
- "unexpected NULL from PyNumber_Subtract");\r
-\r
- out = F_PY_TO_S(y);\r
- if (out != (TYPENAME)-1 || !PyErr_Occurred())\r
- return error(\r
- "PyLong_AsXXX(-2**(NBITS-1)-1) didn't "\r
- "complain");\r
- if (!PyErr_ExceptionMatches(PyExc_OverflowError))\r
- return error(\r
- "PyLong_AsXXX(-2**(NBITS-1)-1) raised "\r
- "something other than OverflowError");\r
- PyErr_Clear();\r
- UNBIND(y);\r
-\r
- Py_XDECREF(x);\r
- Py_XDECREF(y);\r
- Py_DECREF(one);\r
- }\r
-\r
- Py_INCREF(Py_None);\r
- return Py_None;\r
-}\r