Tests complete, minor bugs fixed

1 files changed, 33 insertions, 0 deletions

diff --git a/test/graph_tests-search.ads b/test/graph_tests-search.ads
new file mode 100644
index 0000000..d0ea2bb
--- /dev/null
+++ b/test/graph_tests-search.ads
@@ -0,0 +1,33 @@
+
+
+with Unit_Tests;
+use Unit_Tests;
+
+
+package Graph_Tests.Search is
+
+
+    function Find_Check return Test_Result;
+    function Find_Subgraph_Check return Test_Result;
+    function Contains_Check return Test_Result;
+    function Contains_Label_Check return Test_Result;
+    function Contains_Subgraph_Check return Test_Result;
+    function Contains_Label_Subgraph_Check return Test_Result;
+    function Iterate_Check return Test_Result;
+    function Iterate_Subgraph_Check return Test_Result;
+
+
+    Tests : Test_Array :=
+       ((+"Find", Find_Check'Access),
+        (+"Find_In_Subgraph", Find_Subgraph_Check'Access),
+        (+"Contains", Contains_Check'Access),
+        (+"Contains_Label", Contains_Label_Check'Access),
+        (+"Contains_In_Subgraph", Contains_Subgraph_Check'Access),
+        (+"Contains_Label_In_Subgraph", Contains_Label_Subgraph_Check'Access),
+        (+"Iterate", Iterate_Check'Access),
+        (+"Iterate_Subgraph", Iterate_Subgraph_Check'Access));
+
+
+end Graph_Tests.Search;
+
+