sciada_0.1.0_29e19539/regtests/src/sci-harness.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
-----------------------------------------------------------------------
--  sci-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 SCI.Testsuite;

procedure SCI.Harness is

   procedure Harness is new Util.Tests.Harness (SCI.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 ("sciada-tests.xml");
end SCI.Harness;