Initial unit tests

1 files changed, 25 insertions, 0 deletions

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;
+
+