ParentPackage.ChildPackage is not a dependency of the spec file - so …

…only 4 dependencies minimally
TNO · Sep 23, 2022 · b4bd6b6 · b4bd6b6
1 parent bf8685d
commit b4bd6b6
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/workshop/tests/src/test_examples.adb b/workshop/tests/src/test_examples.adb
@@ -323,10 +323,12 @@ package body Test_Examples is
          for UD of SCompilationUnit.P_Unit_Dependencies loop
             Put_Line ("   " & Image (UD.P_Decl.P_Defining_Name.Text));
          end loop;
+         --  Dependencies include at least:
+         --  Ada, Ada.Assertions, Ada.Text_IO, and ParentPackage
          Assert
-           (Condition => SCompilationUnit.P_Unit_Dependencies'Length >= 5,
+           (Condition => SCompilationUnit.P_Unit_Dependencies'Length >= 4,
             Message   =>
-              "Length of Unit Dependencies is unexpectedly not at least 5 but "
+              "Length of Unit Dependencies is unexpectedly not at least 4 but "
             & SCompilationUnit.P_Unit_Dependencies'Length'Image);
          declare
             BUnit : constant Analysis_Unit :=