Files
linguist/samples/Mathematica/UnitTest.wlt

18 lines
281 B
Mathematica

BeginTestSection["Untitled-5"]
VerificationTest[(* 1 *)
RotationMatrix[phi]
,
List[List[Cos[phi], Times[-1, Sin[phi]]], List[Sin[phi], Cos[phi]]]
]
VerificationTest[(* 2 *)
Times[1, Power[Plus[a, Times[-1, a]], -1]]
,
ComplexInfinity
,
{Power::infy}
]
EndTestSection[]