No-op the tests for Mozzoni.Commands.Keys for the moment

This commit is contained in:
R. Tyler Croy 2019-01-06 12:33:51 -08:00
parent 96b9a9a458
commit d73bb4d269
No known key found for this signature in database
GPG Key ID: E5C92681BEF6CEA2
4 changed files with 34 additions and 15 deletions

View File

@ -147,7 +147,7 @@ package body Mozzoni.Client.Client_Type_Test_Data.Client_Type_Tests is
procedure Test_Client_For_bc4703 (Gnattest_T : in out Test_Client_Type) renames Test_1_Client_For;
-- id:2.2/bc4703174166b521/Client_For/1/0/
procedure Test_1_Client_For (Gnattest_T : in out Test_Client_Type) is
-- mozzoni-client.ads:85:4:Client_For
-- mozzoni-client.ads:86:4:Client_For
-- end read only
pragma Unreferenced (Gnattest_T);
@ -166,7 +166,7 @@ package body Mozzoni.Client.Client_Type_Test_Data.Client_Type_Tests is
procedure Test_Client_For_280f2c (Gnattest_T : in out Test_Client_Type) renames Test_2_Client_For;
-- id:2.2/280f2c7eee8955be/Client_For/0/0/
procedure Test_2_Client_For (Gnattest_T : in out Test_Client_Type) is
-- mozzoni-client.ads:91:4:Client_For
-- mozzoni-client.ads:93:4:Client_For
-- end read only
pragma Unreferenced (Gnattest_T);

View File

@ -77,7 +77,7 @@ package body Mozzoni.Client.Test_Data.Tests is
procedure Test_Deregister_Client_cc045f (Gnattest_T : in out Test) renames Test_Deregister_Client;
-- id:2.2/cc045f6ce0713995/Deregister_Client/1/0/
procedure Test_Deregister_Client (Gnattest_T : in out Test) is
-- mozzoni-client.ads:73:4:Deregister_Client
-- mozzoni-client.ads:74:4:Deregister_Client
-- end read only
pragma Unreferenced (Gnattest_T);
@ -101,7 +101,7 @@ package body Mozzoni.Client.Test_Data.Tests is
procedure Test_Dump_Status_ee75bc (Gnattest_T : in out Test) renames Test_Dump_Status;
-- id:2.2/ee75bcb86b376fe3/Dump_Status/1/0/
procedure Test_Dump_Status (Gnattest_T : in out Test) is
-- mozzoni-client.ads:79:4:Dump_Status
-- mozzoni-client.ads:80:4:Dump_Status
-- end read only
pragma Unreferenced (Gnattest_T);
@ -120,7 +120,7 @@ package body Mozzoni.Client.Test_Data.Tests is
procedure Test_Hash_Descriptor_c833a5 (Gnattest_T : in out Test) renames Test_Hash_Descriptor;
-- id:2.2/c833a53e886af8a2/Hash_Descriptor/1/0/
procedure Test_Hash_Descriptor (Gnattest_T : in out Test) is
-- mozzoni-client.ads:98:4:Hash_Descriptor
-- mozzoni-client.ads:100:4:Hash_Descriptor
-- end read only
pragma Unreferenced (Gnattest_T);
@ -142,7 +142,7 @@ package body Mozzoni.Client.Test_Data.Tests is
procedure Test_Read_Socket_609c7d (Gnattest_T : in out Test) renames Test_Read_Socket;
-- id:2.2/609c7ddfc531d340/Read_Socket/1/0/
procedure Test_Read_Socket (Gnattest_T : in out Test) is
-- mozzoni-client.ads:109:4:Read_Socket
-- mozzoni-client.ads:111:4:Read_Socket
-- end read only
pragma Unreferenced (Gnattest_T);
@ -162,7 +162,7 @@ package body Mozzoni.Client.Test_Data.Tests is
procedure Test_Write_Socket_f63b4b (Gnattest_T : in out Test) renames Test_Write_Socket;
-- id:2.2/f63b4b647f6092f6/Write_Socket/1/0/
procedure Test_Write_Socket (Gnattest_T : in out Test) is
-- mozzoni-client.ads:116:4:Write_Socket
-- mozzoni-client.ads:118:4:Write_Socket
-- end read only
pragma Unreferenced (Gnattest_T);
@ -182,7 +182,7 @@ package body Mozzoni.Client.Test_Data.Tests is
procedure Test_Close_Socket_73424d (Gnattest_T : in out Test) renames Test_Close_Socket;
-- id:2.2/73424da53916b082/Close_Socket/1/0/
procedure Test_Close_Socket (Gnattest_T : in out Test) is
-- mozzoni-client.ads:123:4:Close_Socket
-- mozzoni-client.ads:125:4:Close_Socket
-- end read only
pragma Unreferenced (Gnattest_T);
@ -196,6 +196,26 @@ package body Mozzoni.Client.Test_Data.Tests is
end Test_Close_Socket;
-- end read only
-- begin read only
procedure Test_Flush_All_Clients (Gnattest_T : in out Test);
procedure Test_Flush_All_Clients_a897d3 (Gnattest_T : in out Test) renames Test_Flush_All_Clients;
-- id:2.2/a897d32357bb297b/Flush_All_Clients/1/0/
procedure Test_Flush_All_Clients (Gnattest_T : in out Test) is
-- mozzoni-client.ads:132:4:Flush_All_Clients
-- end read only
pragma Unreferenced (Gnattest_T);
begin
-- Called on every set up, no-op
null;
-- begin read only
end Test_Flush_All_Clients;
-- end read only
-- begin read only
-- id:2.2/02/
--

View File

@ -41,9 +41,8 @@ package body Mozzoni.Commands.Keys.Test_Data.Tests is
begin
AUnit.Assertions.Assert
(Gnattest_Generated.Default_Assert_Value,
"Test not implemented.");
-- covered more effectively by acceptance tests at the moment
null;
-- begin read only
end Test_Handle_Set;
@ -62,9 +61,8 @@ package body Mozzoni.Commands.Keys.Test_Data.Tests is
begin
AUnit.Assertions.Assert
(Gnattest_Generated.Default_Assert_Value,
"Test not implemented.");
-- covered more effectively by acceptance tests at the moment
null;
-- begin read only
end Test_Handle_Get;

View File

@ -7,7 +7,6 @@
with AUnit.Assertions; use AUnit.Assertions;
with System.Assertions;
with Ada.Characters.Latin_1;
-- begin read only
-- id:2.2/00/
@ -16,6 +15,8 @@ with Ada.Characters.Latin_1;
--
-- end read only
with Ada.Characters.Latin_1;
-- begin read only
-- end read only
package body Mozzoni.Commands.Test_Data.Tests is