anchor.diff:      elements(?STREAMNAMES).
   
   % Return any of the existing StreamID
  -% plus an unassgined one for testing
   streamid(#state{counter = Counter}) ->
       elements(lists:seq(1, Counter+1)).
   
  
positive.code: % socket
  -define(HOST,"localhost").
  -define(PORT,8888).
  
  -define(STREAMNAMES, ["tempfile", "file001", "anotherfile",
          "somefile", "binfile", "cakestream"]).
  
negative.code:     tcp_query(?HOST,?PORT,packet(?APPEND,Message)).
  
  simple_query(StreamID,Start,End) ->
      timer:sleep(?TIMEOUT),
      Message = list_to_binary([ <<StreamID:16>>, Start, End]),
      tcp_query(?HOST,?PORT,packet(?QUERY,Message)).
  
  