|
@@ -2,7 +2,6 @@ Class {
|
|
|
#name : #Znock,
|
|
#name : #Znock,
|
|
|
#superclass : #Object,
|
|
#superclass : #Object,
|
|
|
#instVars : [
|
|
#instVars : [
|
|
|
- 'bases',
|
|
|
|
|
'expectations'
|
|
'expectations'
|
|
|
],
|
|
],
|
|
|
#classInstVars : [
|
|
#classInstVars : [
|
|
@@ -22,16 +21,9 @@ Znock >> addExpectation: aZnClient [
|
|
|
^ self expectations add: aZnClient
|
|
^ self expectations add: aZnClient
|
|
|
]
|
|
]
|
|
|
|
|
|
|
|
-{ #category : #accessing }
|
|
|
|
|
|
|
+{ #category : #public }
|
|
|
Znock >> baseFor: descriptor [
|
|
Znock >> baseFor: descriptor [
|
|
|
- ^ (self bases at: descriptor ifAbsentPut: [ ZnockBase in: self url: descriptor asHostFirstUrl ])
|
|
|
|
|
- resetState;
|
|
|
|
|
- yourself
|
|
|
|
|
-]
|
|
|
|
|
-
|
|
|
|
|
-{ #category : #accessing }
|
|
|
|
|
-Znock >> bases [
|
|
|
|
|
- ^ bases ifNil: [ bases := Dictionary new ]
|
|
|
|
|
|
|
+ ^ ZnockBase in: self url: descriptor asHostFirstUrl
|
|
|
]
|
|
]
|
|
|
|
|
|
|
|
{ #category : #operations }
|
|
{ #category : #operations }
|
