test also compiles.

This commit is contained in:
norayr 2016-12-29 20:14:24 +04:00
parent 28d02deeae
commit 0f58a5ac19

View file

@ -1,11 +1,13 @@
MODULE test.
MODULE test;
IMPORT Day;
IMPORT Days;
VAR today: Days.Day;
VAR today, yesterday, tomorrow: Days.Day;
BEGIN
today := Days.mon; (*init*)
yesterday := Days.Prev(today);
tomorrow := Days.Next(today);
END test.