-- $Date: 2003/12/22 13:52:26 $
-- $Revision: 1.6 $
-- $Author: jcrocholl $

with Ada.Text_IO;

with Parts;
with Scores;

procedure Test_Suite is
   S : Scores.Score;
   P : Parts.Part;
begin
   S := Scores.Create("Score_Title", "Movement_Name", "Movement_Title");
   P := Parts.Create("Part_Name");
   Scores.Add_Part(S, P);
   pragma Debug(Ada.Text_IO.Put_Line("all tests succeeded"));
end Test_Suite;