wl_lib_0.1.3_1c94dc7c/tests/src/tests.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
with Ada.Text_IO;

with WL.Unit;
with WL.Json.Tests;

procedure Tests is
   Success, Failure, Error, Not_Run : Natural;
   Suite                            : WL.Unit.Test_Suite;
begin
   WL.Json.Tests.Load_Tests (Suite);
   Suite.Run_Tests (Success, Failure, Error, Not_Run);
   Ada.Text_IO.Put_Line ("Successes:" & Success'Image);
   Ada.Text_IO.Put_Line ("Failures: " & Failure'Image);
   Ada.Text_IO.Put_Line ("Errors:   " & Error'Image);
   Ada.Text_IO.Put_Line ("Not run:  " & Not_Run'Image);
end Tests;