dionisiydk / mocketry Goto Github PK

testExecuteDownloading

	| cmd exercise  mockHttpClient mockReader baseUrl  |
	
	Any strictMocks: false.
	mockHttpClient := ExercismHttpClient asMock.
	mockReader := TonelReader asMock.

	[  
	cmd := (ExercismDownloadCommand
		from: mockHttpClient track: 'pharo' exercise: 'test-exercise')
		yourself.
	
	exercise := cmd execute. "tonel reader used in this code"
	
	self assert: exercise notNil description: 'Get a result'.
	
	sourceCode := exercise contentsFor: 'test1.st' ifAbsent: [''].
	self assert: sourceCode equals: 'Some source1'
	
	] runWithMockSetup: [  
	
		
	mockHttpClient expect verifyToken atLeastOnce.
	"... + some other stub sessages for mockClient"
		
	(mockReader expect loadDefinitions) willReturnYourself.
	].

spec
    	baseline: 'Mocketry'
    	with: [ spec repository: 'github://dionisiydk/Mocketry:v7.0.x' ].

Metacello new
  baseline: 'Mocketry';
  repository: 'github://dionisiydk/Mocketry:v7.0.x';
  load

OrderedCollection(Object)>>errorSubscriptBounds:
OrderedCollection>>at:
SpNotebookPresenter>>selectPageIndex:
StObjectInspectorPresenter>>updatePages
StObjectInspectorPresenter>>refresh
StObjectInspectorPresenter>>initializePresenters
StObjectInspectorPresenter(SpPresenter)>>initializePrivateHooks
StObjectInspectorPresenter(SpPresenter)>>initialize
StObjectInspectorPresenter>>initialize
StObjectInspectorPresenter class(SpPresenter class)>>newApplication:owner:model:
StObjectInspectorPresenter class(StPresenter class)>>owner:on:
StInspector(SpPresenter)>>instantiate:on:
StInspector>>newInspectorFor:
[ :aModel | self newInspectorFor: aModel ] in StInspector>>initializePresenters in Block: [ :aModel | self newInspectorFor: aModel ]
SpMillerColumnPresenter>>newPresenterFor:
SpMillerColumnPresenter>>pushModel:
SpMillerColumnPresenter>>setRootModel:
StInspector>>initializePresenters
StInspector(SpPresenter)>>initializePrivateHooks
StInspector(SpPresenter)>>initialize
StInspector class(SpPresenter class)>>newApplication:model:
StInspector class(SpPresenter class)>>on:
StInspector class>>onObject:
StInspector class>>openOn:
SpCodeInspectItCommand>>inspectObject:
[ :result | 
		self inspectObject: result ] in SpCodeInspectItCommand>>execute in Block: [ :result | ...
SpCodeInspectItCommand(SpCodeSelectionCommand)>>evaluate:andDo:
SpCodeInspectItCommand(SpCodeSelectionCommand)>>evaluateSelectionAndDo:
SpCodeInspectItCommand>>execute
SpCommand(CmCommandDecorator)>>execute

GHMetaMessages class(ProtoObject)>>primitiveFailed:
GHMetaMessages class(ProtoObject)>>primitiveFailed
GHMetaMessages class>>setClass:to:
ByteString(ProtoObject)>>injectGHMutation:
ByteString class(GHObjectMutation)>>mutate:
ByteString(Object)>>stub
UndefinedObject>>DoIt
[ receiver withArgs: (context ifNil: [ #() ] ifNotNil: [ {context} ]) executeMethod: self compileDoit] in OpalCompiler>>evaluate in Block: [ receiver withArgs: (context ifNil: [ #() ] ifNot...etc...
FullBlockClosure(BlockClosure)>>on:do:
OpalCompiler>>evaluate
[
		oldBindings := self interactionModel bindings copy.
		receiver := self interactionModel doItReceiver.
		result := receiver class compiler
			source: aString readStream;
			context: self interactionModel doItContext;
			receiver: self interactionModel doItReceiver;
			requestor: self interactionModel;
			environment: self environment;
			failBlock:  [ ^ compileErrorBlock value ];
			evaluate.
		oldBindings size = self interactionModel bindings size 
			ifFalse: [ self withAdapterDo: [ :anAdapter | anAdapter refreshStyling ] ].
		result ] in SpCodePresenter>>evaluate:onCompileError:onError: in Block: [...
FullBlockClosure(BlockClosure)>>on:do:
SpCodePresenter>>evaluate:onCompileError:onError:
SpCodeInspectItCommand(SpCodeSelectionCommand)>>evaluate:andDo:
SpCodeInspectItCommand(SpCodeSelectionCommand)>>evaluateSelectionAndDo:
SpCodeInspectItCommand>>execute
SpCommand(CmCommandDecorator)>>execute
[ self decoratedCommand execute ] in SpToolCurrentApplicationCommand>>execute in Block: [ self decoratedCommand execute ]
[ activeProcess
			psValueAt: index
			put: anObject.
		aBlock value ] in SpToolCurrentApplication(DynamicVariable)>>value:during: in Block: [ activeProcess...
FullBlockClosure(BlockClosure)>>ensure:
SpToolCurrentApplication(DynamicVariable)>>value:during:
SpToolCurrentApplication class(DynamicVariable class)>>value:during:
SpToolCurrentApplicationCommand>>execute
[ self decoratedCommand execute ] in SpToolCurrentApplicationCommand>>execute in Block: [ self decoratedCommand execute ]
[ activeProcess
			psValueAt: index
			put: anObject.
		aBlock value ] in SpToolCurrentApplication(DynamicVariable)>>value:during: in Block: [ activeProcess...
FullBlockClosure(BlockClosure)>>ensure:
SpToolCurrentApplication(DynamicVariable)>>value:during:
SpToolCurrentApplication class(DynamicVariable class)>>value:during:
SpToolCurrentApplicationCommand>>execute
[ 
			aCmCommand canBeExecuted 
				ifTrue: [ aCmCommand execute ] ] in SpKMCategoryBuilder>>visitCommand: in Block: [ ...