From 6f767eb4b27c4e15ca6c3be3b93ca187caf95bd9 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 8 Jan 2019 00:00:09 +1100 Subject: Basic test framework and initial tests for Packrat.Util predicates --- test/ratnest.adb | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 test/ratnest.adb (limited to 'test/ratnest.adb') diff --git a/test/ratnest.adb b/test/ratnest.adb new file mode 100644 index 0000000..8d1493c --- /dev/null +++ b/test/ratnest.adb @@ -0,0 +1,34 @@ + + +with + + Ada.Text_IO; + +use + + Ada.Text_IO; + + +package body Ratnest is + + + procedure Run_Tests + (To_Run : in Test_Array) + is + Total_Count : Natural := To_Run'Length; + Failed_Count : Natural := 0; + begin + for T of To_Run loop + if T.Func.all = Failure then + Put_Line ("Failed test " & (-T.Name)); + Failed_Count := Failed_Count + 1; + end if; + end loop; + Put_Line ("Test results" & Integer'Image (Total_Count - Failed_Count) & + " out of" & Integer'Image (Total_Count)); + end Run_Tests; + + +end Ratnest; + + -- cgit