Tests complete, minor bugs fixed

1 files changed, 39 insertions, 0 deletions

diff --git a/test/graph_tests-context.ads b/test/graph_tests-context.ads
new file mode 100644
index 0000000..2065040
--- /dev/null
+++ b/test/graph_tests-context.ads
@@ -0,0 +1,39 @@
+
+
+with Unit_Tests;
+use Unit_Tests;
+
+
+package Graph_Tests.Context is
+
+
+    function Neighbors_Check return Test_Result;
+    function Parents_Check return Test_Result;
+    function Children_Check return Test_Result;
+    function Outbound_Check return Test_Result;
+    function Inbound_Check return Test_Result;
+    function Between_Check return Test_Result;
+    function Outdegree_Check return Test_Result;
+    function Indegree_Check return Test_Result;
+    function Degree_Check return Test_Result;
+    function Has_Edge_Check return Test_Result;
+    function Has_Neighbor_Check return Test_Result;
+
+
+    Tests : Test_Array :=
+       ((+"Neighbors", Neighbors_Check'Access),
+        (+"Parents", Parents_Check'Access),
+        (+"Children", Children_Check'Access),
+        (+"Outbound", Outbound_Check'Access),
+        (+"Inbound", Inbound_Check'Access),
+        (+"Between", Between_Check'Access),
+        (+"Outdegree", Outdegree_Check'Access),
+        (+"Indegree", Indegree_Check'Access),
+        (+"Degree", Degree_Check'Access),
+        (+"Has_Edge", Has_Edge_Check'Access),
+        (+"Has_Neighbor", Has_Neighbor_Check'Access));
+
+
+end Graph_Tests.Context;
+
+