magicada_1.0.1_32af2d9a/regtests/src/magic-harness.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
-----------------------------------------------------------------------
--  magic-harness -- Unit tests
--  Written by Stephane Carrez (Stephane.Carrez@gmail.com)
--  SPDX-License-Identifier: Apache-2.0
-----------------------------------------------------------------------

with Ada.Environment_Variables;
with Util.Tests;
with Magic.Testsuite;

procedure Magic.Harness is

   procedure Harness is new Util.Tests.Harness (Magic.Testsuite.Suite);

begin
   --  Force the language to be English since some tests will verify some message.
   Ada.Environment_Variables.Set ("LANG", "en");
   Ada.Environment_Variables.Set ("LANGUAGE", "en");
   Harness ("magicada-tests.xml");
end Magic.Harness;