SystemOrganization addCategory: #'OB-Tests-Refactory'! TestCase subclass: #ORCmdRefactoringTest instanceVariableNames: 'node model refactoring' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! ORCmdRefactoringTest subclass: #ORCmdClassRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! ORCmdClassRefactoringTest subclass: #ORCmdAccessorClassRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdAccessorClassRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdAccessorClassRefactoring! ! !ORCmdAccessorClassRefactoringTest methodsFor: 'testing' stamp: 'lr 1/17/2010 10:58'! testRefactoring01 self refactoringFor: BogusB asNode. self assert: (self changes size = 3). self assert: (self parseTree: #firstInstanceVariableB: in: #BogusB) = (RBParser parseMethod: 'firstInstanceVariableB: anObject firstInstanceVariableB := anObject'). self assert: (self parseTree: #secondInstanceVariableB in: #BogusB) = (RBParser parseMethod: 'secondInstanceVariableB ^ secondInstanceVariableB'). self assert: (self parseTree: #secondInstanceVariableB: in: #BogusB) = (RBParser parseMethod: 'secondInstanceVariableB: anObject secondInstanceVariableB := anObject')! ! !ORCmdAccessorClassRefactoringTest methodsFor: 'testing' stamp: 'lr 1/17/2010 10:58'! testRefactoring02 self refactoringFor: BogusB asClassSideNode. self assert: (self changes size = 4). self assert: (self parseTree: #firstClassInstanceVariableB in: #'BogusB class') = (RBParser parseMethod: 'firstClassInstanceVariableB ^ firstClassInstanceVariableB'). self assert: (self parseTree: #firstClassInstanceVariableB: in: #'BogusB class') = (RBParser parseMethod: 'firstClassInstanceVariableB: anObject firstClassInstanceVariableB := anObject'). self assert: (self parseTree: #secondClassInstanceVariableB in: #'BogusB class') = (RBParser parseMethod: 'secondClassInstanceVariableB ^ secondClassInstanceVariableB'). self assert: (self parseTree: #secondClassInstanceVariableB: in: #'BogusB class') = (RBParser parseMethod: 'secondClassInstanceVariableB: anObject secondClassInstanceVariableB := anObject')! ! !ORCmdClassRefactoringTest class methodsFor: 'testing' stamp: 'lr 12/28/2009 21:26'! isAbstract ^ self name = #ORCmdClassRefactoringTest! ! !ORCmdClassRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdClassRefactoring! ! ORCmdClassRefactoringTest subclass: #ORCmdCreateSubclassRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdCreateSubclassRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdCreateSubclassRefactoring! ! !ORCmdCreateSubclassRefactoringTest methodsFor: 'testing' stamp: 'lr 1/17/2010 11:10'! testRefactoring01 self refactoringFor: BogusA asNode interactions: { { OBTextRequest. 'BogusX' }. { OBMultipleChoiceRequest. { BogusE } } }. self assert: (self classNamed: #BogusX) notNil. self assert: (self classNamed: #BogusX) subclasses size = 1! ! !ORCmdCreateSubclassRefactoringTest methodsFor: 'testing' stamp: 'lr 1/17/2010 10:48'! testRefactoring02 self refactoringFor: BogusA asNode interactions: { { OBTextRequest. 'BogusX' }. { OBMultipleChoiceRequest. { } } }. self assert: (refactoring model classNamed: #BogusX) notNil. self assert: (refactoring model classNamed: #BogusX) subclasses isEmpty! ! ORCmdClassRefactoringTest subclass: #ORCmdCreateSuperclassRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdCreateSuperclassRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdCreateSuperclassRefactoring! ! !ORCmdCreateSuperclassRefactoringTest methodsFor: 'testing' stamp: 'lr 1/17/2010 11:10'! testRefactoring01 self refactoringFor: BogusA asNode interactions: { { OBTextRequest. 'BogusX' }. { OBMultipleChoiceRequest. { BogusE } } }. self assert: (self classNamed: #BogusX) notNil! ! !ORCmdCreateSuperclassRefactoringTest methodsFor: 'testing' stamp: 'lr 1/17/2010 11:10'! testRefactoring02 self refactoringFor: BogusA asNode interactions: { { OBTextRequest. 'BogusX' }. { OBMultipleChoiceRequest. { } } }. self assert: (self classNamed: #BogusX) notNil! ! ORCmdClassRefactoringTest subclass: #ORCmdRealizeClassRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdRealizeClassRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdRealizeClassRefactoring! ! !ORCmdRealizeClassRefactoringTest methodsFor: 'testing' stamp: 'lr 1/17/2010 11:01'! testRefactoring01 self refactoringFor: BogusE asNode. self assert: self changes isEmpty! ! ORCmdClassRefactoringTest subclass: #ORCmdRemoveClassRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdRemoveClassRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdRemoveClassRefactoring! ! !ORCmdRemoveClassRefactoringTest methodsFor: 'testing' stamp: 'lr 1/17/2010 11:09'! testRefactoring01 [ self refactoringFor: BogusA asNode ] on: RefactoringError do: [ :err | ^ self ]. self assert: false ! ! ORCmdClassRefactoringTest subclass: #ORCmdRenameClassRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdRenameClassRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdRenameClassRefactoring! ! !ORCmdRenameClassRefactoringTest methodsFor: 'testing' stamp: 'lr 1/17/2010 11:11'! testRefactoring01 self refactoringFor: BogusA asNode interactions: { { OBTextRequest. 'BogusX' } }. self assert: self changes size = 1. self assert: (self classNamed: #BogusA) isNil. self assert: (self classNamed: #BogusX) notNil! ! ORCmdClassRefactoringTest subclass: #ORCmdSplitClassRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdSplitClassRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdSplitClassRefactoring! ! !ORCmdSplitClassRefactoringTest methodsFor: 'testing' stamp: 'lr 1/17/2010 11:40'! testRefactoring01 self refactoringFor: BogusB asNode interactions: { { OBMultipleChoiceRequest. { 'secondInstanceVariableB' } }. { OBTextRequest. #BogusX }. { OBTextRequest. 'other' } }. self assert: (self changes size = 4). self assert: ((self classNamed: #BogusB) instanceVariableNames includes: 'secondInstanceVariableB'). self assert: ((self classNamed: #BogusX) instanceVariableNames includes: 'secondInstanceVariableB')! ! ORCmdRefactoringTest subclass: #ORCmdClassVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! ORCmdClassVarRefactoringTest subclass: #ORCmdAbstractClassVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdAbstractClassVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdAbstractClassVarRefactoring! ! ORCmdClassVarRefactoringTest subclass: #ORCmdAccessorClassVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdAccessorClassVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdAccessorClassVarRefactoring! ! ORCmdClassVarRefactoringTest subclass: #ORCmdAddClassVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdAddClassVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdAddClassVarRefactoring! ! !ORCmdClassVarRefactoringTest class methodsFor: 'testing' stamp: 'lr 12/28/2009 21:26'! isAbstract ^ self name = #ORCmdClassVarRefactoringTest! ! !ORCmdClassVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdClassVarRefactoring! ! ORCmdClassVarRefactoringTest subclass: #ORCmdPullUpClassVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdPullUpClassVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdPullUpClassVarRefactoring! ! ORCmdClassVarRefactoringTest subclass: #ORCmdPushDownClassVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdPushDownClassVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdPushDownClassVarRefactoring! ! ORCmdClassVarRefactoringTest subclass: #ORCmdRemoveClassVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdRemoveClassVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdRemoveClassVarRefactoring! ! ORCmdClassVarRefactoringTest subclass: #ORCmdRenameClassVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdRenameClassVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdRenameClassVarRefactoring! ! ORCmdRefactoringTest subclass: #ORCmdInstVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! ORCmdInstVarRefactoringTest subclass: #ORCmdAbstractInstVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdAbstractInstVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdAbstractInstVarRefactoring! ! ORCmdInstVarRefactoringTest subclass: #ORCmdAccessorInstVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdAccessorInstVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdAccessorInstVarRefactoring! ! ORCmdInstVarRefactoringTest subclass: #ORCmdAddInstVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdAddInstVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdAddInstVarRefactoring! ! !ORCmdInstVarRefactoringTest class methodsFor: 'testing' stamp: 'lr 12/28/2009 21:27'! isAbstract ^ self name = #ORCmdInstVarRefactoringTest! ! !ORCmdInstVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdInstVarRefactoring! ! ORCmdInstVarRefactoringTest subclass: #ORCmdProtectInstVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdProtectInstVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdProtectInstVarRefactoring! ! ORCmdInstVarRefactoringTest subclass: #ORCmdPullUpInstVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdPullUpInstVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdPullUpInstVarRefactoring! ! ORCmdInstVarRefactoringTest subclass: #ORCmdPushDownInstVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdPushDownInstVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdPushDownInstVarRefactoring! ! ORCmdInstVarRefactoringTest subclass: #ORCmdRemoveInstVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdRemoveInstVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdRemoveInstVarRefactoring! ! ORCmdInstVarRefactoringTest subclass: #ORCmdRenameInstVarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdRenameInstVarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdRenameInstVarRefactoring! ! ORCmdRefactoringTest subclass: #ORCmdMethodRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! ORCmdMethodRefactoringTest subclass: #ORCmdAddParameterMethodRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdAddParameterMethodRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdAddParameterMethodRefactoring! ! ORCmdMethodRefactoringTest subclass: #ORCmdInlineParameterRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdInlineParameterRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdInlineParameterRefactoring! ! ORCmdMethodRefactoringTest subclass: #ORCmdInlineSelfSendsMethodRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdInlineSelfSendsMethodRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdInlineSelfSendsMethodRefactoring! ! !ORCmdMethodRefactoringTest class methodsFor: 'testing' stamp: 'lr 12/28/2009 21:27'! isAbstract ^ self name = #ORCmdMethodRefactoringTest! ! !ORCmdMethodRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdMethodRefactoring! ! ORCmdMethodRefactoringTest subclass: #ORCmdMoveMethodRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdMoveMethodRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdMoveMethodRefactoring! ! ORCmdMethodRefactoringTest subclass: #ORCmdPushDownMethodRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdPushDownMethodRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdPushDownMethodRefactoring! ! ORCmdMethodRefactoringTest subclass: #ORCmdPushUpMethodRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdPushUpMethodRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdPushUpMethodRefactoring! ! ORCmdMethodRefactoringTest subclass: #ORCmdRemoveMethodRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdRemoveMethodRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdRemoveMethodRefactoring! ! ORCmdMethodRefactoringTest subclass: #ORCmdRemoveParameterRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdRemoveParameterRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdRemoveParameterRefactoring! ! ORCmdMethodRefactoringTest subclass: #ORCmdRenameMethodRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdRenameMethodRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdRenameMethodRefactoring! ! ORCmdMethodRefactoringTest subclass: #ORCmdSwapMethodRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdSwapMethodRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdSwapMethodRefactoring! ! !ORCmdRefactoringTest class methodsFor: 'testing' stamp: 'lr 12/28/2009 21:26'! isAbstract ^ self name = #ORCmdRefactoringTest! ! !ORCmdRefactoringTest methodsFor: 'emulating' stamp: 'lr 1/17/2010 10:33'! browser ^ self! ! !ORCmdRefactoringTest methodsFor: 'accessing' stamp: 'lr 1/17/2010 10:58'! changes ^ self model changes changes! ! !ORCmdRefactoringTest methodsFor: 'accessing' stamp: 'lr 1/17/2010 10:50'! classNamed: aSymbol ^ self model classNamed: aSymbol! ! !ORCmdRefactoringTest methodsFor: 'accessing' stamp: 'lr 1/17/2010 10:37'! command ^ self factory on: self currentOrRootNode for: self browser! ! !ORCmdRefactoringTest methodsFor: 'emulating' stamp: 'lr 1/17/2010 10:36'! currentOrRootNode ^ node! ! !ORCmdRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdRefactoring! ! !ORCmdRefactoringTest methodsFor: 'accessing' stamp: 'lr 1/17/2010 11:08'! model ^ model ifNil: [ model := RBNamespace new ]! ! !ORCmdRefactoringTest methodsFor: 'accessing' stamp: 'lr 1/17/2010 10:51'! parseTree: aSelector in: aSymbol ^ (self classNamed: aSymbol) parseTreeFor: aSelector! ! !ORCmdRefactoringTest methodsFor: 'support' stamp: 'lr 1/17/2010 10:47'! refactoringFor: aNode ^ self refactoringFor: aNode interactions: #()! ! !ORCmdRefactoringTest methodsFor: 'support' stamp: 'lr 1/17/2010 11:07'! refactoringFor: aNode interactions: anArray | stream command | stream := anArray readStream. [ command := self factory on: (node := aNode) for: self browser. refactoring := command refactoring ifNil: [ ^ nil ]. refactoring model: self model. refactoring primitiveExecute ] on: OBInteractionRequest do: [ :notification | | specification | self assert: stream atEnd not description: 'No interaction expected, but got ' , notification printString. specification := stream next. self assert: (specification first handles: notification) description: 'Interaction ' , specification first name , ' expected, but got ' , notification printString. notification resume: specification second ]. self assert: stream atEnd description: 'More interactions expected'. ^ refactoring! ! !ORCmdRefactoringTest methodsFor: 'testing' stamp: 'lr 12/28/2009 21:52'! testDescription self assert: self command longDescription isString. self assert: self command longDescription notEmpty! ! !ORCmdRefactoringTest methodsFor: 'testing' stamp: 'lr 12/28/2009 21:43'! testLabel self assert: self command label isString. self assert: self command label notEmpty! ! ORCmdRefactoringTest subclass: #ORCmdSourceRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! ORCmdSourceRefactoringTest subclass: #ORCmdExtractMethodRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdExtractMethodRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdExtractMethodRefactoring! ! ORCmdSourceRefactoringTest subclass: #ORCmdExtractMethodToComponentRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdExtractMethodToComponentRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdExtractMethodToComponentRefactoring! ! ORCmdSourceRefactoringTest subclass: #ORCmdExtractToTemporaryRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdExtractToTemporaryRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdExtractToTemporaryRefactoring! ! ORCmdSourceRefactoringTest subclass: #ORCmdInlineMethodFromComponentRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdInlineMethodFromComponentRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdInlineMethodFromComponentRefactoring! ! ORCmdSourceRefactoringTest subclass: #ORCmdInlineMethodRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdInlineMethodRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdInlineMethodRefactoring! ! ORCmdSourceRefactoringTest subclass: #ORCmdInlineTemporaryRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdInlineTemporaryRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdInlineTemporaryRefactoring! ! ORCmdSourceRefactoringTest subclass: #ORCmdMoveVariableDefinitionRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdMoveVariableDefinitionRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdMoveVariableDefinitionRefactoring! ! ORCmdSourceRefactoringTest subclass: #ORCmdRenameTemporaryRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdRenameTemporaryRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdRenameTemporaryRefactoring! ! !ORCmdSourceRefactoringTest class methodsFor: 'testing' stamp: 'lr 12/28/2009 21:28'! isAbstract ^ self name = #ORCmdSourceRefactoringTest! ! !ORCmdSourceRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdSourceRefactoring! ! ORCmdSourceRefactoringTest subclass: #ORCmdTemporaryToInstvarRefactoringTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'OB-Tests-Refactory'! !ORCmdTemporaryToInstvarRefactoringTest methodsFor: 'accessing' stamp: 'lr 12/28/2009 21:21'! factory ^ ORCmdTemporaryToInstvarRefactoring! !