From 7f56d08907ffdd192f4b4898bfb22c1dce8f1cd0 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 23 May 2020 15:31:27 +1000 Subject: Added Iterate_By function for custom iteration --- test/graph_tests-search.ads | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'test/graph_tests-search.ads') diff --git a/test/graph_tests-search.ads b/test/graph_tests-search.ads index d0ea2bb..63602e7 100644 --- a/test/graph_tests-search.ads +++ b/test/graph_tests-search.ads @@ -15,6 +15,7 @@ package Graph_Tests.Search is function Contains_Label_Subgraph_Check return Test_Result; function Iterate_Check return Test_Result; function Iterate_Subgraph_Check return Test_Result; + function Iterate_By_Check return Test_Result; Tests : Test_Array := @@ -25,7 +26,8 @@ package Graph_Tests.Search is (+"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)); + (+"Iterate_Subgraph", Iterate_Subgraph_Check'Access), + (+"Iterate_By", Iterate_By_Check'Access)); end Graph_Tests.Search; -- cgit