anchor.diff:      escalus_stanza:from(S2, escalus_utils:get_jid(From)).
   
   %% ----------------------------- sample entry bodies ------------------------
  -
   
   entry_body_sample1() ->
       [
  
positive.code: %% ------end-------------------- sample entry bodies ------------------------
  
  %% provide EntryBody as list of anything compliant with exml entity records.
  publish_entry(EntryBody) ->
      #xmlel{
         name = <<"entry">>,
         attrs = [{<<"xmlns">>, <<"http://www.w3.org/2005/Atom">>}],
         children = case EntryBody of 
  		      [#xmlel{}] -> EntryBody;
  		      _ -> entry_body_sample1()
  		  end
        }.
  
  publish_item(ItemId, PublishEntry) ->
      #xmlel{
         name = <<"item">>,
         attrs = [{<<"id">>, ItemId}],
         children = case PublishEntry of
  		      #xmlel{} ->
  			  PublishEntry;
  		      _ ->
  			publish_entry([])
  		   end
        }.
  
  publish_node_with_content_stanza(NodeName, ItemToPublish) ->
      #xmlel{
         name = <<"publish">>,
         attrs = [{<<"node">>, NodeName}],
         children = case ItemToPublish of
  		      #xmlel{} -> 
  			  ItemToPublish;
  		      _ -> 
  			  publish_item(<<"abc123">>, [])
  		  end
        }.
  
  %% Create full sample content with nested items like in example 88 of XEP-0060
  
negative.code: ]).
  
  
  pubsub_stanza(Children, NS) ->
      #xmlel{name = <<"pubsub">>,
  	   attrs = [{<<"xmlns">>, NS} ],
  	   children = Children  }.
  
  create_specific_node_stanza(NodeName) ->
      #xmlel{name = <<"create">>,
  	   attrs = [{<<"node">>, NodeName}] }.
  
  iq_with_id(TypeAtom, Id, To, From, Body) ->
      S1 = escalus_stanza:iq(To, atom_to_binary(TypeAtom, latin1), Body),
  