-- part of Comfignat's testsuite
-- Copyright 2014 B. Persson, Bjorn@Rombobeorn.se
--
-- This material is provided as is, with absolutely no warranty expressed
-- or implied. Any use is at your own risk.
--
-- Permission is hereby granted to use or copy this testsuite
-- for any purpose, provided the above notices are retained on all copies.
-- Permission to modify the code and to distribute modified code is granted,
-- provided the above notices are retained, and a notice that the code was
-- modified is included with the above copyright notice.


with Ada.Calendar; use Ada.Calendar;
with Ada.Text_IO; use Ada.Text_IO;

package body Testcase is

   function Year return String is
   begin
      return Year(Clock)'Img;
   end Year;

end Testcase;