WITH Ada.Text_IO;
WITH Employees;
WITH Employees.IO;
PROCEDURE Test_Employees IS
------------------------------------------------------------------------
--| Simple Test of Employee Table
--| Author: Michael B. Feldman, The George Washington University
--| Last Modified: July 1995
------------------------------------------------------------------------

  OneEmployee: Employees.Employee;

BEGIN -- Test_Employees

  FOR Count IN 1..3 LOOP

    Employees.IO.Get(Item => OneEmployee);
    Ada.Text_IO.Put(Item => "--------------------");
    Ada.Text_IO.New_Line;
    Ada.Text_IO.Put(Item => "You entered ");
    Ada.Text_IO.New_Line;
    Employees.IO.Put(Item => OneEmployee);
    Ada.Text_IO.Put(Item => "--------------------");
    Ada.Text_IO.New_Line;

  END LOOP;

END Test_Employees;