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