paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 11:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Changed test so it provides different exit codes depending on the failed assertion.

Browse Source 
git-svn-id: trunk@26280 -
This commit is contained in:
sergei 2013-12-25 10:33:16 +00:00
parent 03fb83cc01
commit c3c682fe3f
1 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tests/test/units/math/tsincos.pp
View File

@ -9,16 +9,34 @@ begin
sincos(0,s1,s2);
sincos(0,d1,d2);
sincos(0,e1,e2);
if not(SameValue(s1,0)) or not(SameValue(s2,1)) or not(SameValue(d1,0)) or
not(SameValue(d2,1)) or not(SameValue(e1,0)) or not(SameValue(e2,1)) then
if not(SameValue(s1,0)) then
halt(1);
if not(SameValue(s2,1)) then
halt(2);
if not(SameValue(d1,0)) then
halt(3);
if not(SameValue(d2,1)) then
halt(4);
if not(SameValue(e1,0)) then
halt(5);
if not(SameValue(e2,1)) then
halt(6);
sincos(pi,s1,s2);
sincos(pi,d1,d2);
sincos(pi,e1,e2);
if not(SameValue(s1,0)) or not(SameValue(s2,-1)) or not(SameValue(d1,0)) or
not(SameValue(d2,-1)) or not(SameValue(e1,0)) or not(SameValue(e2,-1)) then
halt(1);
if not(SameValue(s1,0)) then
halt(7);
if not(SameValue(s2,-1)) then
halt(8);
if not(SameValue(d1,0)) then
halt(9);
if not(SameValue(d2,-1)) then
halt(10);
if not(SameValue(e1,0)) then
halt(11);
if not(SameValue(e2,-1)) then
halt(12);
writeln('ok');
end.