diff options
Diffstat (limited to 'test/graph_tests-inspection.ads')
| -rw-r--r-- | test/graph_tests-inspection.ads | 37 |
1 files changed, 37 insertions, 0 deletions
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; + + |