vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 04:02:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add tests for ENTIER.

Browse source
This commit is contained in:
David Brown 2016-09-13 19:44:01 +01:00
parent 516e261242
commit 68c105b48c
2 changed files with 31 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/test/confidence/language/TestLanguage.mod
View file

@ -2,6 +2,8 @@ MODULE TestLanguage;
IMPORT SYSTEM, Console;
VAR gz: LONGREAL;
PROCEDURE TestShiftResult(of, by, actual, expected: LONGINT; msg: ARRAY OF CHAR);
BEGIN
IF actual # expected THEN
@ -236,6 +238,26 @@ END Abs;
(* LR does nothing numerically, but is enough to stop the C compiler
optimizing away the LR assignment and ENTIER implementation. *)
PROCEDURE LR(lr: LONGREAL): LONGREAL; BEGIN RETURN lr + gz; END LR;
PROCEDURE Entier;
VAR lr: LONGREAL;
BEGIN
gz := 0.0;
lr := LR(-0.01); TestValue(ENTIER(lr), -1, "ENTIER(-0.01");
lr := LR( 0.00); TestValue(ENTIER(lr), 0, "ENTIER(0.00");
lr := LR( 5.00); TestValue(ENTIER(lr), 5, "ENTIER(5.00");
lr := LR( 5.50); TestValue(ENTIER(lr), 5, "ENTIER(5.50");
lr := LR( 5.99); TestValue(ENTIER(lr), 5, "ENTIER(5.99");
lr := LR(-5.00); TestValue(ENTIER(lr), -5, "ENTIER(-5.00");
lr := LR(-5.50); TestValue(ENTIER(lr), -6, "ENTIER(-5.50");
lr := LR(-5.99); TestValue(ENTIER(lr), -6, "ENTIER(-5.99");
END Entier;
PROCEDURE IntSize;
VAR l: LONGINT;
@ -271,5 +293,6 @@ BEGIN
DivMod;
IntSize;
Abs;
Entier;
Console.String("Language tests successful."); Console.Ln;
END TestLanguage.