RosettaCodeData/Task/Assertions/DWScript/assertions-2.dw
2013-04-11 11:14:19 -07:00

8 lines
108 B
Text

procedure UniversalAnswer(var a : Integer);
require
a = 42;
begin
// code here
ensure
a = 42;
end;