-module(mathservertests). -export([main/0]). -import(mathserver,[start/0]). -import(mathclient,[compute/3]). -import(testing,[startTesting/1,run_tests/1,eqTest/3]). main() -> startTesting("mathservertests $Revision: 1.1 $"), P = mathserver:start(), run_tests(makeTests(P)). -spec makeTests(pid()) -> [testing:testCase(float())]. makeTests(P) -> [eqTest(compute(P,[],0.0),"==",0.0), eqTest(compute(P,[sin],0.0),"==",0.0), eqTest(compute(P,[cos,sin],0.0),"==",math:cos(math:sin(0.0))), eqTest(compute(P,[exp,cos,cos],1.0),"==",math:exp(math:cos(math:cos(1.0)))), eqTest(compute(P,[log,cos,cos,log],10.5), "==", math:log(math:cos(math:cos(math:log(10.5))))) ].