Skip to content

Commit

Permalink
Add Test_Tool_Info_Error procedure and register it for execution to t…
Browse files Browse the repository at this point in the history
…est the akt info command on invalid files
  • Loading branch information
stcarrez committed Feb 2, 2020
1 parent 13e29b2 commit 168af6d
Showing 1 changed file with 10 additions and 1 deletion.
11 changes: 10 additions & 1 deletion regtests/keystore-tests.adb
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
-----------------------------------------------------------------------
-- keystore-tests -- Tests for akt command
-- Copyright (C) 2019 Stephane Carrez
-- Copyright (C) 2019, 2020 Stephane Carrez
-- Written by Stephane Carrez (Stephane.Carrez@gmail.com)
--
-- Licensed under the Apache License, Version 2.0 (the "License");
Expand Down Expand Up @@ -151,6 +151,8 @@ package body Keystore.Tests is
Test_Tool_Extract_Error'Access);
Caller.Add_Test (Suite, "Test AKT.Commands.Info",
Test_Tool_Info'Access);
Caller.Add_Test (Suite, "Test AKT.Commands.Info (Error)",
Test_Tool_Info_Error'Access);
Caller.Add_Test (Suite, "Test AKT.Commands.Create (Wallet_Key)",
Test_Tool_With_Wallet_Key_File'Access);
end Add_Tests;
Expand Down Expand Up @@ -826,6 +828,13 @@ package body Keystore.Tests is
end;
end Test_Tool_Info;

procedure Test_Tool_Info_Error (T : in out Test) is
Result : Ada.Strings.Unbounded.Unbounded_String;
begin
T.Execute (Tool & " info Makefile", Result, 1);
T.Execute (Tool & " info some-missing-file", Result, 1);
end Test_Tool_Info_Error;

-- ------------------------------
-- Test the akt commands with --wallet-key-file
-- ------------------------------
Expand Down

0 comments on commit 168af6d

Please sign in to comment.