Tests complete, minor bugs fixed

1 files changed, 37 insertions, 0 deletions

diff --git a/test/graph_tests-inspection.ads b/test/graph_tests-inspection.ads
new file mode 100644
index 0000000..ed2d116
--- /dev/null
+++ b/test/graph_tests-inspection.ads
@@ -0,0 +1,37 @@
+
+
+with Unit_Tests;
+use Unit_Tests;
+
+
+package Graph_Tests.Inspection is
+
+
+    function Node_Count_Check return Test_Result;
+    function Node_Count_Subgraph_Check return Test_Result;
+    function Edge_Count_Check return Test_Result;
+    function Edge_Count_Subgraph_Check return Test_Result;
+    function Nodes_Check return Test_Result;
+    function Nodes_Subgraph_Check return Test_Result;
+    function Edges_Check return Test_Result;
+    function Edges_Subgraph_Check return Test_Result;
+    function Node_Range_Check return Test_Result;
+    function Unused_Check return Test_Result;
+
+
+    Tests : Test_Array :=
+       ((+"Node_Count", Node_Count_Check'Access),
+        (+"Node_Count_In_Subgraph", Node_Count_Subgraph_Check'Access),
+        (+"Edge_Count", Edge_Count_Check'Access),
+        (+"Edge_Count_In_Subgraph", Edge_Count_Subgraph_Check'Access),
+        (+"Nodes", Nodes_Check'Access),
+        (+"Nodes_In_Subgraph", Nodes_Subgraph_Check'Access),
+        (+"Edges", Edges_Check'Access),
+        (+"Edges_In_Subgraph", Edges_Subgraph_Check'Access),
+        (+"Node_Range", Node_Range_Check'Access),
+        (+"Unused", Unused_Check'Access));
+
+
+end Graph_Tests.Inspection;
+
+