Merge pull request #3 from noha/refine-error-handling-when-sending-re…

…quest

Refine error handling when sending request

source/Mandrill-Core.package/MandrillClient.class/instance/sendRequest..st

@@ -2,18 +2,36 @@ as yet unclassified
 sendRequest: aMandrillRequest
 	| response json |
 	self prepareRequest: aMandrillRequest.
-	response := ZnClient new
+	response := [ ZnClient new
 		url:
-				(String
+			(String
+				streamContents: [ :stream | 
+					stream
+						nextPutAll: self class baseUrl;
+						nextPutAll: aMandrillRequest commandUrl ]);
+		entity:
+			(ZnEntity
+				with: (NeoJSONWriter toStringPretty: aMandrillRequest)
+				type: ((ZnMimeType main: 'application' sub: 'json') charSet: 'utf-8'));
+		post ]
+		on: NetworkError
+		do: [ :ex | 
+			MandrillSendError
+				signal:
+					(String
 						streamContents: [ :stream | 
 							stream
-								nextPutAll: self class baseUrl;
-								nextPutAll: aMandrillRequest commandUrl ]);
-		entity:
-				(ZnEntity
-						with: (NeoJSONWriter toStringPretty: aMandrillRequest)
-						type: ((ZnMimeType main: 'application' sub: 'json') charSet: 'utf-8'));
-		post.
-	json := (NeoJSONObject fromString: response) first.
+								nextPutAll: 'Network error while connecting to Mandrill server: ';
+								nextPutAll: ex messageText printString ]) ].
+	json := [ (NeoJSONObject fromString: response) first ]
+		on: Error
+		do: [ :ex | 
+			MandrillSendError
+				signal:
+					(String
+						streamContents: [ :stream | 
+							stream
+								nextPutAll: 'Got an unexpected mandrill response: ';
+								nextPutAll: response printString ]) ].
 	json at: 'code' ifAbsent: [ ^ json ].
-	MandrillSendError signal: json at: 'message'
+	MandrillSendError signal: (json at: 'message')