diff options
Diffstat (limited to 'test/graph_tests-curses.adb')
-rw-r--r-- | test/graph_tests-curses.adb | 13 |
1 files changed, 0 insertions, 13 deletions
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 |