summaryrefslogtreecommitdiff
path: root/test/test_main.adb
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2020-05-21 21:24:25 +1000
committerJed Barber <jjbarber@y7mail.com>2020-05-21 21:24:25 +1000
commit82a42674ba64c6386152a5910fd7345a92b135e8 (patch)
treebe453540ca12e0679f9ea741f99c592696ce3b96 /test/test_main.adb
parentd07979218ea80c58e64148d9638ed3e6195ff6ed (diff)
Tests complete, minor bugs fixed
Diffstat (limited to 'test/test_main.adb')
-rw-r--r--test/test_main.adb36
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;