Persistent-API-Skeleton/source/API-Skeleton-Tests/APISkeletonHTTPClientErrorExtensionsTest.class.st at a507fb7dc99889f9c33178708b0924427dc33b6c · Mercap/Persistent-API-Skeleton · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Class {
	#name : 'APISkeletonHTTPClientErrorExtensionsTest',
	#superclass : 'TestCase',
	#category : 'API-Skeleton-Tests',
	#package : 'API-Skeleton-Tests'
}

{ #category : 'tests' }
APISkeletonHTTPClientErrorExtensionsTest >> testHTTPClientErrorAsJRPCResponse [

  self
    should: [ HTTPClientError badRequest signal: 'Bad Request' ]
    raise: HTTPClientError badRequest
    withExceptionDo: [ :error |
        | response |
        response := error asJRPCResponse.
        self
          assert: response isError;
          assert: response error code equals: JRPCConstants internalErrorCode;
          assert: response error message equals: 'Internal JSON-RPC error.';
          assert: ( response error data at: 'errorClass' ) equals: 'HTTPClientError';
          assert: ( response error data at: 'messageText' ) equals: 'Bad Request';
          assert: ( response error data at: 'code' ) equals: '400'
      ]
]

{ #category : 'tests' }
APISkeletonHTTPClientErrorExtensionsTest >> testUnprocessableEntityAsJRPCResponse [

  self
    should: [ HTTPClientError unprocessableEntity signal: 'Invalid parameter format' ]
    raise: HTTPClientError unprocessableEntity
    withExceptionDo: [ :error |
        | response |
        response := error asJRPCResponse.
        self
          assert: response isError;
          assert: response error code equals: JRPCConstants invalidParametersErrorCode;
          assert: response error message equals: 'Invalid parameter format'
      ]
]