PolynomialExpressionQ

PolynomialExpressionQ[expr, x]

PolynomialExpressionQ[expr, {x, y, …}]

PolynomialExpressionQ[expr, {x, y, …}, test]