Added Test for SIgn Error in unrad issue #8622

Added Test for issue #8622
assert unrad((root(x + 1, 5) - root(x, 3))) == (x**5 - x**3 - 3*x**2 - 3*x - 1, [], [])