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-context.ads | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 test/graph_tests-context.ads (limited to 'test/graph_tests-context.ads') 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; + + -- cgit