rtyler
/
sting
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add a test case verifying that processing composite keys works correctly

This commit is contained in:
R. Tyler Croy 2012-11-04 20:23:36 -08:00
parent fa05c002e7
commit e63ae2891f
2 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -31,7 +31,7 @@ test: prepare_coverage
@echo
@echo "Coverage Report: "
@echo "------------------------------"
@gcov -f -o obj/test @$(COVERAGE_LIST)
@gcov -o obj/test @$(COVERAGE_LIST)
sting: precompile
$(GPRBUILD) -p $(GPRFILE)

32
test/cases/sting-tests-protocol.adb
View File

@ -34,6 +34,37 @@ package body Sting.Tests.Protocol is
end Test_Read;
procedure Test_Read_Many_Keys (T : in out Test_Case'Class) is
type SA is access String;
Cmd : Sting.Command;
Buf : constant String := "read /ada/is/neat";
Keys : array (Positive range 1 .. 3) of SA := (new String'("ada"),
new String'("is"),
new String'("neat"));
use Ada.Containers;
begin
Cmd := Sting.Parse (Buf);
Assert ((Cmd.Kind = Sting.Read), "Command is not a read!");
Assert ((Cmd.Keys.Length = 3), "Incorrect number of keys found");
declare
Cursor : Key_Chain.Cursor := Cmd.Keys.First;
begin
for I in Keys'Range loop
declare
Current : String := Key_Chain.Element (Cursor);
Expected : String := Keys (I).all;
begin
Assert ((Current = Expected),
"The key '" & Current & "' was expected to be '" & Expected & "'");
Cursor := Key_Chain.Next (Cursor);
end;
end loop;
end;
end Test_Read_Many_Keys;
--
-- AUnit set up code
@ -44,6 +75,7 @@ package body Sting.Tests.Protocol is
Register_Routine (T, Test_Unknown'Access, "Parse an unknown command");
Register_Routine (T, Test_Ping'Access, "Parse a ping command");
Register_Routine (T, Test_Read'Access, "Parse a read command");
Register_Routine (T, Test_Read_Many_Keys'Access, "Parse a read command with composite keys");
end Register_Tests;