From 82a42674ba64c6386152a5910fd7345a92b135e8 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 21 May 2020 21:24:25 +1000 Subject: Tests complete, minor bugs fixed --- test/graph_tests-search.ads | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 test/graph_tests-search.ads (limited to 'test/graph_tests-search.ads') 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; + + -- cgit