From 56947ad5bbf0df7d35111010d0d5b7b3c19329cf Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Wed, 27 May 2020 17:51:42 +1000
Subject: Removed Follow, Path; Added LNode, LEdge, Node_Path, Edge_Path,
 Contains functions for Paths

---
 test/graph_tests-curses.adb | 13 -------------
 1 file changed, 13 deletions(-)

(limited to 'test/graph_tests-curses.adb')

diff --git a/test/graph_tests-curses.adb b/test/graph_tests-curses.adb
index 3667825..4d32ec1 100644
--- a/test/graph_tests-curses.adb
+++ b/test/graph_tests-curses.adb
@@ -59,19 +59,6 @@ package body Graph_Tests.Curses is
     end Previous_Check;
 
 
-    function Follow_Check
-        return Test_Result
-    is
-        use type Graphs.Cursor;
-        Start : Graphs.Cursor := My_Complex_Graph.To_Cursor (1);
-    begin
-        if Graphs.Follow (Start, (1, 1, 2)) /= My_Complex_Graph.To_Cursor (2) then
-            return Fail;
-        end if;
-        return Pass;
-    end Follow_Check;
-
-
     function Cursor_To_Check
         return Test_Result
     is
-- 
cgit