Hosted by
 |
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;
|