Initial unit tests

1 files changed, 10 insertions, 7 deletions

diff --git a/src/directed_graphs.ads b/src/directed_graphs.ads
index 925948d..d89b647 100644
--- a/src/directed_graphs.ads
+++ b/src/directed_graphs.ads
@@ -795,8 +795,6 @@ private
 
     type Graph_Access is access all Graph;
 
-    Empty_Graph : constant Graph := (Ada.Finalization.Controlled with others => <>);
-
 
 
 
@@ -816,11 +814,6 @@ private
             Position :    out          Cursor);
     for Cursor'Read use Read;
 
-    No_Element : constant Cursor :=
-           (Container => null,
-            Place     => Node_Maps.No_Element,
-            Sub_Index => Node_Vectors.Extended_Index'First);
-
 
 
 
@@ -897,6 +890,16 @@ private
 
 
 
+    Empty_Graph : constant Graph := (Ada.Finalization.Controlled with others => <>);
+
+    No_Element : constant Cursor :=
+           (Container => null,
+            Place     => Node_Maps.No_Element,
+            Sub_Index => Node_Vectors.Extended_Index'First);
+
+
+
+
     type Iterator is new Ada.Finalization.Limited_Controlled and
         Graph_Iterator_Interfaces.Reversible_Iterator with
     record