RationalExpressionQ

RationalExpressionQ[expr, x]

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

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