Added test for var(Truncated(Normal(), a, b))

Uses the Mathematica result as a reference