smalltalk
/
osmo-st-all
Archived
1
0
Fork 0
Code Releases Activity

soap: Move from Symbol to String as they are not equal outside of Pharo

This commit is contained in:
Holger Hans Peter Freyther 2011-02-20 18:38:03 +01:00
parent 502f744778
commit 1cadb40896
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
SoapCoreTests.st
View File

@ -299,11 +299,10 @@ xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">
dec := SoapDecoder new.
arrayElem := SoapWrapElement fromXml: self arrayOfArrayXML.
ret := dec decodeXmlElement: arrayElem.
ret inspect.
self should: [(ret at: #Array) isKindOf: Array].
self should: [((ret at: #Array) at: 1) = #()].
self should: [(ret at: 'Array') isKindOf: Array].
self should: [((ret at: 'Array') at: 1) = #()].
self should:
[((ret at: #Array) at: 2)
[((ret at: 'Array') at: 2)
= #(17974494715439249409 'aV34fTn/QoILMlilPla2Pw==' '20030913T14:26:28 +200')]
]
@ -336,8 +335,8 @@ xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">
dec := SoapDecoder new.
arrayElem := SoapWrapElement fromXml: self arrayWithEmptyStringXML.
ret := dec decodeXmlElement: arrayElem.
self should: [(ret at: #anArray) isKindOf: Array].
self should: [((ret at: #anArray) at: 2) = '']
self should: [(ret at: 'anArray') isKindOf: Array].
self should: [((ret at: 'anArray') at: 2) = '']
]
testDecodeBase64Binary [
@ -398,19 +397,19 @@ xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">
complexElem := SoapWrapElement fromXml: self complexDataXML.
ret := dec decodeXmlElement: complexElem.
self should: [ret isKindOf: Dictionary].
self should: [(ret at: #startIndex) = 1].
self should: [(ret at: #searchTime) = 0.194871].
self should: [(ret at: #searchQuery) = 'squeak'].
resultElements := ret at: #resultElements.
self should: [(ret at: 'startIndex') = 1].
self should: [(ret at: 'searchTime') = 0.194871].
self should: [(ret at: 'searchQuery') = 'squeak'].
resultElements := ret at: 'resultElements'.
self should: [resultElements isKindOf: Array].
self should: [resultElements size = 1].
resultElement := resultElements first.
self should: [resultElement isKindOf: Dictionary].
self should: [(resultElement at: #URL) = 'http://www.squeak.org'].
self should: [(resultElement at: #title) = 'Squeak home page'].
directoryCategory := resultElement at: #directoryCategory.
self should: [(resultElement at: 'URL') = 'http://www.squeak.org'].
self should: [(resultElement at: 'title') = 'Squeak home page'].
directoryCategory := resultElement at: 'directoryCategory'.
self should: [directoryCategory isKindOf: Dictionary].
self should: [(directoryCategory at: #fullViewableName) = '']
self should: [(directoryCategory at: 'fullViewableName') = '']
]
testDecodeDotNetSharedValuesXMLEnvelope [
@ -436,12 +435,11 @@ xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">
useDotNetStyleSharedValues: originalUseDotNetStyleSharedValues]
]
"
testDecodeDotNetSharedValuesXMLEnvelope2 [
"self debug: #testDecodeDotNetSharedValuesXMLEnvelope2"
<category: 'testing'>
| originalUseDotNetStyleSharedValues envelopeBuilder returnEnvelope message resp value |
self should: [Smalltalk hasClassNamed: #SoapSampleCustomer].
self should: [(Smalltalk at: #SoapSampleCustomer ifAbsent: []) ~= nil]
SoapSampleCustomer initialize.
[originalUseDotNetStyleSharedValues := SoapResponse
@ -468,6 +466,7 @@ xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">
[SoapResponse
useDotNetStyleSharedValues: originalUseDotNetStyleSharedValues]
]
"
testDecodeDotNetSharedValuesXMLEnvelope3 [
"self debug: #testDecodeDotNetSharedValuesXMLEnvelope3"