anchor.diff:  
   % E.g. of model state structure:
   % {
  -%   starttime = 1355417136196,
  +%   starttime = 13554171361963445,
   %   streams = [
   %     {StreamID_1, StreamName_1, [{TS_1,<<"DATA_1">>}, ..., {TS_M,<<"DATA_M">>}]},
   %     ...,
  
positive.code:     tcp_query(?HOST,?PORT,packet(?REQUEST_STREAM,Message)).
   
  last_entry_at(StreamID,Time) ->
      Message = list_to_binary([ <<StreamID:16>>, <<Time:64>>]),
      tcp_query(?HOST,?PORT,packet(?LAST_ENTRY_AT,Message)).
  
  %%-----------------------------------------------------------------------------
  
negative.code:             application:start(cake),
              {History,State,Result} = run_commands(?MODULE, Cmds),
              application:stop(cake),
  %            [cake_streams_statem:cleanup(X) || {_,X,_} <- element(3,State)],
              ?WHENFAIL(
                  io:format("\n\nHistory: ~w\n\nState: ~w\n\nResult: ~w\n\n",
                  [History,State,Result]),
  