pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

SOAP test

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1170 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2010-02-27 16:13:41 +00:00
parent 8aa02153fc
commit d6d7852372
2 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/tests/test_suite/files/write_header_simple_content_2.xml
View File

@ -6,7 +6,7 @@
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"> xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
<SOAP-ENV:Header xmlns:ns1="urn:simple-content-header.sample"> <SOAP-ENV:Header xmlns:ns1="urn:simple-content-header.sample">
<ns1:TSampleSimpleContentHeaderBlock_A>sample header simple content value</ns1:TSampleSimpleContentHeaderBlock_A> <ns1:TSampleSimpleContentHeaderBlock_A>sample header simple content value</ns1:TSampleSimpleContentHeaderBlock_A>
<ns1:TSampleSimpleContentHeaderBlock_B intAtt="1210">another content</ns1:TSampleSimpleContentHeaderBlock_B> <ns1:TSampleSimpleContentHeaderBlock_B intAtt="1210" SOAP-ENV:mustUnderstand="1">another content</ns1:TSampleSimpleContentHeaderBlock_B>
</SOAP-ENV:Header> </SOAP-ENV:Header>
<SOAP-ENV:Body> <SOAP-ENV:Body>
<ns2:test_proc xmlns:ns2="TestService"/> <ns2:test_proc xmlns:ns2="TestService"/>

1
wst/trunk/tests/test_suite/test_soap_specific.pas
View File

@ -579,6 +579,7 @@ begin
hdrB := TSampleSimpleContentHeaderBlock_B.Create(); hdrB := TSampleSimpleContentHeaderBlock_B.Create();
cc.AddHeader(hdrB,True); cc.AddHeader(hdrB,True);
hdrB.Direction := hdOut; hdrB.Direction := hdOut;
hdrB.mustUnderstand := 1;
hdrB.Value := 'another content'; hdrB.Value := 'another content';
hdrB.intAtt := 1210; hdrB.intAtt := 1210;