-- testdat.ada
-- test the "professional version"
-- Debora Weber-Wulff 7.6.93

with Ada.text_io, datum_paket; use Ada.text_io, datum_paket;

procedure test_datum_paket is
 PACKAGE iio IS NEW Ada.Text_IO.Integer_IO (integer);

 d1, d2  : datum_paket.datum;
 t, m, j : integer;
 w       : weekday;

begin
 -- Deutsche Texte
 datum_paket.language := datum_paket.german;
 put_line ("Bitte geben Sie drei ganze Zahlen an fuer Tag, Monat und Jahr!");
 iio.get (t);
 iio.get (m);
 iio.get (j);

 d1 := datum_paket.set_day (t, m, j);
 put ("Wochentag von ");
 datum_paket.put (d1); put (" ist ");
 datum_paket.put (datum_paket.weekday_of (d1));
 new_line;

 put ("Bitte geben Sie ein anderen Tag ein! ");
 datum_paket.get (d2);
 datum_paket.put (datum_paket.weekday_of (d2));
 put (", den ");
 datum_paket.put (d2);
 put (" ist ein feiner Tag, ");

 iio.put (d2 - d1,0);
 put_line (" Tage spaeter!");

 put ("Der Tag nach dem ");
 datum_paket.put (d1);
 put (" ist ");
 d1 := datum_paket.next_day(d1);
 datum_paket.put (datum_paket.weekday_of (d1));
 put (", den ");
 datum_paket.put (d1);
 new_line;

 put_line("Eine Woche spaeter ist ");
 d1 := d1 + 7;
 datum_paket.put (datum_paket.weekday_of (d1));
 put (", den ");
 datum_paket.put (d1);
 new_line;

 put ("Gib eine Wochentag ein: ");
 datum_paket.get (w);
 datum_paket.language := datum_paket.Icelandic;
 put ("Auf Islaendisch ist das ");
 datum_paket.put (w);
 new_line;

end test_datum_paket;