diff options
author | Jed Barber <jjbarber@y7mail.com> | 2020-05-21 21:24:25 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2020-05-21 21:24:25 +1000 |
commit | 82a42674ba64c6386152a5910fd7345a92b135e8 (patch) | |
tree | be453540ca12e0679f9ea741f99c592696ce3b96 /test/test_main.adb | |
parent | d07979218ea80c58e64148d9638ed3e6195ff6ed (diff) |
Tests complete, minor bugs fixed
Diffstat (limited to 'test/test_main.adb')
-rw-r--r-- | test/test_main.adb | 36 |
1 files changed, 32 insertions, 4 deletions
diff --git a/test/test_main.adb b/test/test_main.adb index e116720..fc77c15 100644 --- a/test/test_main.adb +++ b/test/test_main.adb @@ -6,7 +6,13 @@ with Ada.Command_Line, Ada.Characters.Latin_1, Unit_Tests, - Graph_Tests.Basic; + Graph_Tests.Basic, + Graph_Tests.Inspection, + Graph_Tests.Context, + Graph_Tests.Curses, + Graph_Tests.Labels, + Graph_Tests.Modify, + Graph_Tests.Search; use @@ -45,7 +51,6 @@ begin end if; end loop; - for N in 1 .. Ada.Command_Line.Argument_Count loop if Ada.Command_Line.Argument (N) = "--verbose" then How_Verbose := Strong; @@ -54,9 +59,32 @@ begin end loop; - Put_Line ("Running basic construction and inspection tests..."); + Put_Line ("Running basic tests..."); Run_Tests (Graph_Tests.Basic.Tests, How_Verbose); - -- New_Line; + New_Line; + + Put_Line ("Running inspection tests..."); + Run_Tests (Graph_Tests.Inspection.Tests, How_Verbose); + New_Line; + + Put_Line ("Running context tests..."); + Run_Tests (Graph_Tests.Context.Tests, How_Verbose); + New_Line; + + Put_Line ("Running cursor tests..."); + Run_Tests (Graph_Tests.Curses.Tests, How_Verbose); + New_Line; + + Put_Line ("Running label tests..."); + Run_Tests (Graph_Tests.Labels.Tests, How_Verbose); + New_Line; + + Put_Line ("Running modify tests..."); + Run_Tests (Graph_Tests.Modify.Tests, How_Verbose); + New_Line; + + Put_Line ("Running search tests..."); + Run_Tests (Graph_Tests.Search.Tests, How_Verbose); end Test_Main; |