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-labels.ads | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 test/graph_tests-labels.ads (limited to 'test/graph_tests-labels.ads') diff --git a/test/graph_tests-labels.ads b/test/graph_tests-labels.ads new file mode 100644 index 0000000..2702896 --- /dev/null +++ b/test/graph_tests-labels.ads @@ -0,0 +1,31 @@ + + +with Unit_Tests; +use Unit_Tests; + + +package Graph_Tests.Labels is + + + function Getter_Setter_Check return Test_Result; + function Replace_Label_Check return Test_Result; + function Delete_Label_Check return Test_Result; + function Const_Ref_Check return Test_Result; + function Ref_Check return Test_Result; + function Has_Labeled_Edge_Check return Test_Result; + function Clear_Labels_Check return Test_Result; + + + Tests : Test_Array := + ((+"Append_Label, Has_Label, Label", Getter_Setter_Check'Access), + (+"Replace_Label", Replace_Label_Check'Access), + (+"Delete_Label", Delete_Label_Check'Access), + (+"Constant_Label_Reference", Const_Ref_Check'Access), + (+"Label_Reference", Ref_Check'Access), + (+"Has_Labeled_Edge", Has_Labeled_Edge_Check'Access), + (+"Clear_Labels", Clear_Labels_Check'Access)); + + +end Graph_Tests.Labels; + + -- cgit