From d07979218ea80c58e64148d9638ed3e6195ff6ed Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 20 May 2020 01:21:51 +1000 Subject: Initial unit tests --- test/graph_tests-basic.ads | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 test/graph_tests-basic.ads (limited to 'test/graph_tests-basic.ads') diff --git a/test/graph_tests-basic.ads b/test/graph_tests-basic.ads new file mode 100644 index 0000000..80fb05d --- /dev/null +++ b/test/graph_tests-basic.ads @@ -0,0 +1,25 @@ + + +with Unit_Tests; +use Unit_Tests; + + +package Graph_Tests.Basic is + + + function To_Graph_Check return Test_Result; + function Is_Empty_Check return Test_Result; + function Clear_Check return Test_Result; + function Cursor_Element_Check return Test_Result; + + + Tests : Test_Array := + ((+"To_Graph", To_Graph_Check'Access), + (+"Is_Empty", Is_Empty_Check'Access), + (+"Clear", Clear_Check'Access), + (+"To_Cursor, Has_Element, Element", Cursor_Element_Check'Access)); + + +end Graph_Tests.Basic; + + -- cgit