-----------------------------------------------------------------------
-- Keystore-test -- Unit tests
-- Copyright (C) 2019 Stephane Carrez
-- Written by Stephane Carrez (Stephane.Carrez@gmail.com)
--
-- Licensed under the Apache License, Version 2.0 (the "License");
-- you may not use this file except in compliance with the License.
-- You may obtain a copy of the License at
--
-- http://www.apache.org/licenses/LICENSE-2.0
--
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-- See the License for the specific language governing permissions and
-- limitations under the License.
-----------------------------------------------------------------------
with Ada.Environment_Variables;
with Util.Tests;
with Keystore.Testsuite;
procedure Keystore_Harness is
procedure Harness is new Util.Tests.Harness (Keystore.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 ("keystore-tests.xml");
end Keystore_Harness;