A new version of SystemEditor-Squeak was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-Squeak-mtf.155.mcz
==================== Summary ====================
Name: SystemEditor-Squeak-mtf.155 Author: mtf Time: 6 November 2008, 11:46:07 pm UUID: eaee8787-e69c-4f69-a7cf-20222a44240a Ancestors: SystemEditor-mtf.154
forked from SystemEditor-mtf.154
=============== Diff against SystemEditor-mtf.154 ===============
Item was added: + SystemOrganization addCategory: #'SystemEditor-Squeak'!
Item was removed: - ----- Method: ClassEditorValidationTest>>test03SameTypeIsValid (in category 'tests') ----- - test03SameTypeIsValid - editor addInstVarName: 'gamma'. - self assert: editor edIsValid !
Item was removed: - Object subclass: #ObjectMigrator - instanceVariableNames: 'origin destination' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Core'! - - !ObjectMigrator commentStamp: 'mtf 7/14/2008 11:59' prior: 0! - My instances store an old and new version of a single object that will be swapped during MigrationTransaction>>commit!
Item was removed: - ----- Method: AbstractEditor>>edIsEditor (in category 'testing') ----- - edIsEditor - ^ true!
Item was removed: - AbstractEditor subclass: #DictionaryEditor - instanceVariableNames: 'subject additions removals' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Core'!
Item was removed: - ----- Method: ClassFormatTest>>testIndexedWithInstSize (in category 'tests') ----- - testIndexedWithInstSize - | old new | - old := ClassFormat indexed: 3. - new := old withInstSize: 5. - self assert: new instSize = 5. - self assert: new instSpec = old instSpec. - self assert: new cClassIndex = old cClassIndex!
Item was removed: - ----- Method: MetaclassEditorProtocolTest>>test10SourceCodeAt (in category 'tests') ----- - test10SourceCodeAt - self assert: (editor sourceCodeAt: #ayin) = (editor subject sourceCodeAt: #ayin)!
Item was removed: - ----- Method: SystemEditorTest>>test13AtIfAbsentEvaluatesBlock (in category 'tests') ----- - test13AtIfAbsentEvaluatesBlock - | object | - object := Object new. - self assert: (editor at: #'Illegal Name' ifAbsent: [object]) == object!
Item was removed: - ----- Method: ClassEditor class>>forNewClassNamed: (in category '*SystemEditor-Tests') ----- - forNewClassNamed: aSymbol - ^ self named: aSymbol for: SystemEditor new!
Item was removed: - ----- Method: MetaclassEditorProtocolTest>>test08AddAndRemoveSelector (in category 'tests') ----- - test08AddAndRemoveSelector - editor - compile: 'pe ^ 1' - classified: 'phoenician' - withStamp: 'cwp 5/30/2004 09:27' - notifying: nil - logSource: true. - editor removeSelector: #pe. - self deny: (editor includesSelector: #pe). - !
Item was removed: - ----- Method: ClassEditorOntologyTest>>test05ClassPool (in category 'tests') ----- - test05ClassPool - "To have DoIts be executed in the right context by a debugger or inspector, - the generated class needs to be adoptable by FakeClassPool." - - self - shouldnt: [FakeClassPool adopt: editor class] - raise: Error.!
Item was removed: - Object subclass: #ClassDecorator - instanceVariableNames: 'editor' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Core'! - - !ClassDecorator commentStamp: 'mtf 6/19/2008 23:29' prior: 0! - An abstract superclass for extensions to ClassEditor and MetaclassEditor!
Item was removed: - CategorizerTest subclass: #CategoryEditorTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: ObjectMigrator class>>origin:destination: (in category 'instance creation') ----- - origin: origin destination: destination - ^ self new setOrigin: origin destination: destination!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test08AddSharedPool (in category 'tests') ----- - test08AddSharedPool - | pool | - pool := Dictionary new. - editor addSharedPool: pool. - self assert: editor sharedPools = (editor subject sharedPools copyWith: pool)!
Item was removed: - ----- Method: EditorSubjectSubTest>>setUp (in category 'running') ----- - setUp - (Smalltalk at: #EditorSubject) - subclass: #EditorSubjectSub - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - TestCase subclass: #EditorSubjectSubTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: SystemEditorTest>>migratedClasses (in category 'asserting') ----- - migratedClasses - | migration | - editor edExpandEditors. - migration := MigrationTransaction new. - editor edPrepareMigration: migration. - ^ migration migrators collect: [:ea | ea origin].!
Item was removed: - ----- Method: SystemEditorTest>>test05ClassEditorsKnowTheirSystemEditors (in category 'tests') ----- - test05ClassEditorsKnowTheirSystemEditors - | first | - first := editor at: #EditorSubject. - self assert: first system == editor!
Item was removed: - ----- Method: SystemEditorTest>>test03AtCreatesClassEditor (in category 'tests') ----- - test03AtCreatesClassEditor - | classEditor | - classEditor := editor at: #EditorSubject. - self assert: classEditor subject = EditorSubject!
Item was removed: - ----- Method: TestCategoryEditor>>changedElements (in category 'private') ----- - changedElements - ^ changes elementArray!
Item was removed: - ----- Method: InstanceMigrator>>instances (in category 'accessing') ----- - instances - ^ origin allInstances asArray!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test07SharedPools (in category 'tests') ----- - test07SharedPools - self assert: editor sharedPools = editor subject sharedPools!
Item was removed: - CategorizerEditor subclass: #TestCategoryEditor - instanceVariableNames: 'changes removedElements' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'! - - !TestCategoryEditor commentStamp: 'mtf 9/11/2007 12:54' prior: 0! - A editor for Categorizers. I don't preserve order of changed categories. changes is a categorizer that handles all changes!
Item was removed: - ----- Method: ClassEditorValidationTest>>test01NoChangeIsValid (in category 'tests') ----- - test01NoChangeIsValid - self assert: editor edIsValid !
Item was removed: - ----- Method: EditorSubjectSubTest class>>isAbstract (in category 'as yet unclassified') ----- - isAbstract - ^ self name == #EditorSubjectSubTest!
Item was removed: - ----- Method: MetaclassEditorProtocolTest>>test04Superclass (in category 'tests') ----- - test04Superclass - - | result | - editor superclass: self class. - result := editor edBuild. - self deny: result == editor subject. - self assert: result superclass == self class.!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test29InstVarsArentDuplicated (in category 'tests') ----- - test29InstVarsArentDuplicated - editor addInstVarName: 'gamma'. - editor addInstVarName: 'gamma'. - self assert: editor instVarNames = (editor subject instVarNames copyWith: 'gamma')!
Item was removed: - ----- Method: MethodEditorTest>>test05HasDefaultRepository (in category 'tests') ----- - test05HasDefaultRepository - | editor | - editor := MethodEditor - source: 'one ^ 1' - classified: 'numbers' - stamp: 'cwp 12/11/2005 21:58' - notifying: nil - logging: true. - self assert: editor repository = SourceRepository default!
Item was removed: - ----- Method: SystemEditorTest>>test19AtDoesntWrapPools (in category 'tests') ----- - test19AtDoesntWrapPools - self assert: (editor at: #Undeclared) == Undeclared!
Item was removed: - ClassEditorTest subclass: #ClassEditorBuildTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: ObjectMigrator>>destination (in category 'accessing') ----- - destination - ^ destination!
Item was removed: - TestCase subclass: #MetaclassEditorTest - instanceVariableNames: 'editor' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test10Superclass (in category 'tests') ----- - test10Superclass - editor superclass: self class. - self shouldnt: [editor edClassFormat] raise: MessageNotUnderstood. - self assert: editor superclass subject == self class.!
Item was removed: - ----- Method: MethodEditorTest>>test02LoggingCanBeSupressed (in category 'tests') ----- - test02LoggingCanBeSupressed - | editor actual | - editor := MethodEditor - source: 'one ^ 1' - classified: 'numbers' - stamp: 'cwp 12/11/2005 21:58' - notifying: nil - logging: false. - editor repository: SourceRepository newInternal. - editor compileFrom: nil for: self class. - actual := editor repository changesStream contents. - self assert: actual = 'xxx'!
Item was removed: - ----- Method: ClassDecorator>>edDependentsDo: (in category 'building') ----- - edDependentsDo: aBlock - "Find any editors that should be modified because of me, inform them if necessary, then send them to aBlock"!
Item was removed: - ----- Method: SystemEditorTest>>test11AtIfAbsentFindsExistingEditor (in category 'tests') ----- - test11AtIfAbsentFindsExistingEditor - | object | - object := editor at: #Object. - self assert: (editor at: #Object ifAbsent: [nil]) == object!
Item was removed: - MetaclassEditorTest subclass: #MetaclassEditorBuildTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - TestCase subclass: #ClassFormatTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: ClassEditorOntologyTest>>test10CompiledMethodAt (in category 'tests') ----- - test10CompiledMethodAt - "Compiled methods are immutable, so we don't wrap them for editing." - - self assert: (editor compiledMethodAt: #het) == (editor subject compiledMethodAt: #het)!
Item was removed: - ----- Method: MetaclassEditorBuildTest>>test05MethodRemoved (in category 'tests') ----- - test05MethodRemoved - - | dict | - editor removeSelector: #ayin. - dict := editor methodDictionary. - self deny: (dict includesKey: #ayin)!
Item was removed: - ----- Method: InstanceMigrator>>migrateFrom:to: (in category 'migrating') ----- - migrateFrom: oStream to: dStream - self instances do: - [:ea | - oStream nextPut: ea. - dStream nextPut: (self migrate: ea)]!
Item was removed: - ----- Method: OrganizationEditorTest>>test07BuildWritesCommentToChangesFile (in category 'tests') ----- - test07BuildWritesCommentToChangesFile - | remote repository result | - repository := SourceRepository newInternal. - editor := OrganizationEditor for: (ClassEditor on: self class) - repository: repository. - editor classComment: 'comment string' stamp: 'cwp 12/11/2005 21:58'. - result := editor edBuild. - remote := result commentRemoteStr. - self assertRemoteString: remote inRepository: repository matches: 'comment string'!
Item was removed: - ----- Method: ClassEditorOntologyTest>>test08Superclass (in category 'tests') ----- - test08Superclass - "#superclass should return an editor on the subject's superclass" - - self assert: editor superclass subject == EditorSubject superclass!
Item was removed: - ----- Method: MethodEditorTest>>test04SourcePointerIsSet (in category 'tests') ----- - test04SourcePointerIsSet - | editor cm | - editor := MethodEditor - source: 'one ^ 1' - classified: 'numbers' - stamp: 'cwp 12/11/2005 21:58' - notifying: nil - logging: true. - editor repository: SourceRepository newInternal. - cm := editor compileFrom: self for: self class. - self assert: cm sourcePointer = 33554517!
Item was removed: - ----- Method: AbstractEditor>>edPrepareMigration: (in category 'building') ----- - edPrepareMigration: txn - "Adds migrators to the given MigrationTransaction, as necessary to support converting my subject to my product" - self subclassResponsibility!
Item was removed: - ----- Method: SystemEditorTest>>test12AtIfAbsentCreatesEditorForExistingClass (in category 'tests') ----- - test12AtIfAbsentCreatesEditorForExistingClass - self assert: (editor at: #Object ifAbsent: [nil]) subject == Object!
Item was removed: - ----- Method: ClassExporterTest>>test01ClassIsAddedToEnvironment (in category 'tests') ----- - test01ClassIsAddedToEnvironment - | class | - class := self createClass. - exporter addClass: class. - exporter commit. - self assert: (Smalltalk at: class name) == class - !
Item was removed: - ----- Method: TestCategoryEditor>>changesRemoveCategory: (in category 'accessing') ----- - changesRemoveCategory: category - changes removeCategory: category!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test21BeWeak (in category 'tests') ----- - test21BeWeak - editor typeOfClass: #weak. - self assert: editor typeOfClass == #weak. - self assert: editor isWords. - self assert: editor isVariable. - self assert: editor isPointers. - self deny: editor isBits. - !
Item was removed: - ----- Method: ClassEditorProtocolTest>>test22BeVariable (in category 'tests') ----- - test22BeVariable - editor typeOfClass: #variable. - self assert: editor typeOfClass == #variable. - self assert: editor isWords. - self assert: editor isVariable. - self assert: editor isPointers. - self deny: editor isWeak. - self deny: editor isBits. - !
Item was removed: - ----- Method: MetaclassEditorTest>>setUp (in category 'running') ----- - setUp - editor := (ClassEditor on: EditorSubject) class!
Item was removed: - ----- Method: SourceRepositoryTest>>test03StoreCommentClassStampedPrior (in category 'tests') ----- - test03StoreCommentClassStampedPrior - | remote | - remote := repository - storeComment: 'This is a comment.' - forClass: self class - stamped: 'cwp 12/11/2005 21:58' - prior: 42. - self assert: repository changesStream contents = 'xxx - !!SourceRepositoryTest commentStamp: ''cwp 12/11/2005 21:58'' prior: 42!! - This is a comment.!!'. - - self assert: remote sourceFileNumber = 2. - self assert: remote position = 74!
Item was removed: - ----- Method: ClassEditorBuildTest>>test10MethodRemoved (in category 'tests') ----- - test10MethodRemoved - - | dict | - editor removeSelector: #het. - dict := editor methodDictionary. - self assert: dict isEmpty!
Item was removed: - ----- Method: MetaclassEditorTest class>>isAbstract (in category 'as yet unclassified') ----- - isAbstract - ^ self name == #MetaclassEditorTest!
Item was removed: - ----- Method: SystemEditorTest>>test16KeyAtIdentityValueFindEditors (in category 'tests') ----- - test16KeyAtIdentityValueFindEditors - | classEditor | - classEditor := editor at: #Object. - self assert: (editor keyAtIdentityValue: classEditor ifAbsent: [nil]) == #Object!
Item was removed: - ----- Method: EditorSubject>>het (in category 'phoenician') ----- - het - ^ 'first letter of the phoenician alphabet'!
Item was removed: - ClassEditorTest subclass: #ClassEditorValidationTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: MethodEditorTest>>sourcePointer (in category 'emulating') ----- - sourcePointer - ^ 42!
Item was removed: - ----- Method: CompiledMethod class>>edInstanceBasedOn: (in category '*systemeditor-core') ----- - edInstanceBasedOn: oldInstance - - | size | - size := oldInstance endPC - oldInstance initialPC + 1 + oldInstance trailer size. - ^ self newMethod: size header: oldInstance header. - !
Item was removed: - ----- Method: ClassEditorProtocolTest>>test27Subclass (in category 'tests') ----- - test27Subclass - | sub | - sub := editor - subclass: #EditorSubjectSubclass - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'. - self assert: sub subject isNil. - self assert: sub name = #EditorSubjectSubclass. - self assert: sub instVarNames isEmpty. - self assert: sub classVarNames isEmpty. - self assert: sub sharedPools isEmpty.!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test38SharedPoolsString (in category 'tests') ----- - test38SharedPoolsString - - self assert: editor sharedPoolsString = editor subject sharedPoolsString!
Item was removed: - Object subclass: #EditorSubject - instanceVariableNames: 'alpha beta' - classVariableNames: 'Beth Aleph' - poolDictionaries: 'EditorSubjectPool' - category: 'SystemEditor-Tests'! - EditorSubject class - instanceVariableNames: 'omega'!
Item was removed: - ----- Method: MetaclassEditorBuildTest>>test04ExistingMethods (in category 'tests') ----- - test04ExistingMethods - - | result | - editor compile: 'pe ^ 2'. - result := editor edBuild. - self assert: (result compiledMethodAt: #ayin) == (editor subject compiledMethodAt: #ayin)!
Item was removed: - ----- Method: ClassEditorValidationTest>>test07InstVarNamedSuper (in category 'tests') ----- - test07InstVarNamedSuper - - editor addInstVarName: 'super'. - self should: [editor validate] raise: IllegalVariableName.!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test19BeBytes (in category 'tests') ----- - test19BeBytes - editor typeOfClass: #bytes. - self assert: editor typeOfClass == #bytes. - self assert: editor isBytes. - self assert: editor isBits. - self assert: editor isVariable. - self deny: editor isPointers.!
Item was removed: - ----- Method: ClassEditorBuildTest>>test17NewMethodsAreClassified (in category 'tests') ----- - test17NewMethodsAreClassified - - | migration organizer | - editor - compile: 'zayin ^ 2' - classified: 'numbers' - withStamp: 'cwp 5/30/2004 09:27' - notifying: nil - logSource: true. - - migration := MigrationTransaction new. - editor edPrepareMigration: migration. - organizer := migration destinationFor: editor subject organization. - self assert: (organizer categoryOfElement: #zayin) = 'numbers'!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test30ClassVarsArentDuplicated (in category 'tests') ----- - test30ClassVarsArentDuplicated - editor addClassVarName: 'Gimel'. - editor addClassVarName: 'Gimel'. - self assert: editor classVarNames = (editor subject classVarNames copyWith: 'Gimel')!
Item was removed: - ----- Method: AbstractEditor>>edRequiresBuild (in category 'building') ----- - edRequiresBuild - "Answer true if this editor needs building; false otherwise" - ^ true!
Item was removed: - SharedPool subclass: #EditorSubjectPool - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: MethodEditorTest>>test01FirstCompilationIsLogged (in category 'tests') ----- - test01FirstCompilationIsLogged - | editor actual expected | - editor := MethodEditor - source: 'one ^ 1' - classified: 'numbers' - stamp: 'cwp 12/11/2005 21:58' - notifying: nil - logging: true. - editor repository: SourceRepository newInternal. - editor compileFrom: nil for: self class. - actual := editor repository changesStream contents. - expected := 'xxx - !!MethodEditorTest methodsFor: ''numbers'' stamp: ''cwp 12/11/2005 21:58''!! - one ^ 1!! !!'. - self assert: actual = expected!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test25CompileClassifiedNotifying (in category 'tests') ----- - test25CompileClassifiedNotifying - self deny: (editor includesSelector: #zayin). - editor - compile: 'zayin ^ 1' - classified: 'numbers' - notifying: nil. - self assert: (editor includesSelector: #zayin)!
Item was removed: - ----- Method: MetaclassEditorProtocolTest>>test02AddInstVarName (in category 'tests') ----- - test02AddInstVarName - editor addInstVarName: 'psi'. - self assert: editor instVarNames = (editor subject instVarNames copyWith: 'psi')!
Item was removed: - ----- Method: ObjectMigrator>>migrateFrom:to: (in category 'migrating') ----- - migrateFrom: oStream to: dStream - oStream nextPut: origin. - dStream nextPut: destination.!
Item was removed: - ----- Method: ClassDecorator>>for: (in category 'initialize-release') ----- - for: anEditor - editor := anEditor!
Item was removed: - ----- Method: InstanceMigrator>>destination (in category 'accessing') ----- - destination - ^ destination!
Item was removed: - TestCase subclass: #MethodEditorTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: OrganizationEditorTest>>test05SetCommentStamp (in category 'tests') ----- - test05SetCommentStamp - editor := OrganizationEditor for: EditorSubject. - editor classComment: 'comment string' stamp: 'cwp 12/11/2005 21:58'. - self assert: editor commentStamp = 'cwp 12/11/2005 21:58'.!
Item was removed: - ----- Method: SystemEditorTest>>test02DefaultSubjectIsSmalltalk (in category 'tests') ----- - test02DefaultSubjectIsSmalltalk - self assert: editor subject == Smalltalk!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test02AddInstVarName (in category 'tests') ----- - test02AddInstVarName - editor addInstVarName: 'gamma'. - self assert: editor instVarNames = (editor subject instVarNames copyWith: 'gamma')!
Item was removed: - ----- Method: MigrationTransaction>>migrators (in category 'accessing') ----- - migrators - ^ migrators!
Item was removed: - ----- Method: OrganizationEditorTest>>test12ReadingCommentDoesntRequireBuild (in category 'tests') ----- - test12ReadingCommentDoesntRequireBuild - editor := OrganizationEditor for: (ClassEditor on: self class). - editor classComment. - self deny: editor edRequiresBuild!
Item was removed: - ----- Method: EditorSubjectSubTest>>createClass (in category 'support') ----- - createClass - ^ self createClassNamed: #EditorSubjectSub2!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test42Comment (in category 'tests') ----- - test42Comment - self assert: (editor comment beginsWith: 'Main comment stating the purpose')!
Item was removed: - ----- Method: InstanceMigrator class>>from:to: (in category 'as yet unclassified') ----- - from: oldClass to: newClass - ^ self new setOrigin: oldClass destination: newClass!
Item was removed: - ----- Method: AbstractEditor>>productClass (in category 'accessing') ----- - productClass - "Answers the class of the object that is the result of applying my edits to my subject" - - ^ self subject class!
Item was removed: - ----- Method: MigrationTransaction>>initialize (in category 'initialize-release') ----- - initialize - migrators := OrderedCollection new.!
Item was removed: - ----- Method: MethodEditorTest>>test03RecompilationIsLogged (in category 'tests') ----- - test03RecompilationIsLogged - | editor actual expected | - editor := MethodEditor - source: 'one ^ 1' - classified: 'numbers' - stamp: 'cwp 12/11/2005 21:58' - notifying: nil - logging: true. - editor repository: SourceRepository newInternal. - editor compileFrom: self for: self class. - actual := editor repository changesStream contents. - expected := 'xxx - !!MethodEditorTest methodsFor: ''numbers'' stamp: ''cwp 12/11/2005 21:58'' prior: 42!! - one ^ 1!! !!'. - self assert: actual = expected!
Item was removed: - ----- Method: SystemEditorTest>>denyClassesAreMigrated: (in category 'asserting') ----- - denyClassesAreMigrated: classes - self deny: (self migratedClasses includesAnyOf: classes)!
Item was removed: - ----- Method: InstanceMigrator>>migrate: (in category 'migrating') ----- - migrate: oldInstance - | newInstance | - newInstance := destination edInstanceBasedOn: oldInstance. - 1 to: instSize do: - [:offset | - (map at: offset) > 0 ifTrue: - [newInstance - instVarAt: offset - put: (oldInstance instVarAt: (map at: offset))]]. - destination isVariable ifTrue: - [1 to: oldInstance basicSize do: - [:offset | newInstance basicAt: offset put: (oldInstance basicAt: offset)]]. - ^newInstance!
Item was removed: - ----- Method: SourceRepositoryTest>>test01StoreCommentClassStampedReplacing (in category 'tests') ----- - test01StoreCommentClassStampedReplacing - | remote | - remote := repository - storeComment: 'This is a comment.' - forClass: self class - stamped: 'cwp 12/11/2005 21:58' - replacing: (RemoteString newFileNumber: 1 position: 42). - self assert: repository changesStream contents = 'xxx - !!SourceRepositoryTest commentStamp: ''cwp 12/11/2005 21:58'' prior: 16777258!! - This is a comment.!!'. - - self assert: remote sourceFileNumber = 2. - self assert: remote position = 80!
Item was removed: - SystemOrganization addCategory: #'SystemEditor-Core'! - SystemOrganization addCategory: #'SystemEditor-Squeak'! - SystemOrganization addCategory: #'SystemEditor-Tests'!
Item was removed: - ----- Method: ClassFormatTest>>testNamed (in category 'tests') ----- - testNamed - | format | - format := ClassFormat named: 3. - self assert: format instSize = 3. - self assert: format isFixed. - self assert: format isPointers. - self assert: format isWords. - self deny: format isVariable. - self deny: format isBits. - self deny: format isBytes. - self deny: format isWeak!
Item was removed: - ----- Method: ClassDecorator>>edBuildInto: (in category 'building') ----- - edBuildInto: aProduct - "Build what needs to be built, and install it into aProduct"!
Item was removed: - ----- Method: InstanceMigratorTest>>testMigratingCompiledMethod (in category 'tests') ----- - testMigratingCompiledMethod - | migrator oldInstance newInstance | - migrator := InstanceMigrator from: CompiledMethod to: CompiledMethod. - oldInstance := self class compiledMethodAt: #testMigratingCompiledMethod. - newInstance := migrator migrate: oldInstance. - self assert: newInstance class == CompiledMethod. - self assert: newInstance basicSize = oldInstance basicSize. - self assert: newInstance header = oldInstance header.!
Item was removed: - TestCase subclass: #SystemEditorTest - instanceVariableNames: 'editor' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: SystemEditorTest>>test06AtDoesntCreateNewClass (in category 'tests') ----- - test06AtDoesntCreateNewClass - self should: [editor at: #EditorSubject2] raise: Error - !
Item was removed: - ----- Method: SourceRepositoryTest>>test04StoreMethodReplacing (in category 'tests') ----- - test04StoreMethodReplacing - | remote actual expected | - remote := repository - storeMethod: 'one ^ 1' - forClass: self class - category: 'numbers' - stamped: 'cwp 12/11/2005 21:58' - replacing: (RemoteString newFileNumber: 1 position: 42). - actual := repository changesStream contents. - expected := 'xxx - !!SourceRepositoryTest methodsFor: ''numbers'' stamp: ''cwp 12/11/2005 21:58'' prior: 16777258!! - one ^ 1!! !!'. - self assert: actual = expected. - self assert: remote sourceFileNumber = 2. - self assert: remote position = 95!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test18NewFormat (in category 'tests') ----- - test18NewFormat - | superFormat editorFormat | - editor typeOfClass: #variable. - superFormat := ClassFormat fromBits: EditorSubject superclass format. - editorFormat := superFormat indexedSubclass: editor instVarNames size. - self assert: editor format = editorFormat bits!
Item was removed: - ----- Method: SystemEditorTest>>test01SubjectCanBeSpecified (in category 'tests') ----- - test01SubjectCanBeSpecified - editor := SystemEditor on: Smalltalk. - self assert: editor subject == Smalltalk!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test20BeWords (in category 'tests') ----- - test20BeWords - editor typeOfClass: #words. - self assert: editor typeOfClass == #words. - self assert: editor isWords. - self assert: editor isBits. - self assert: editor isVariable. - self deny: editor isPointers.!
Item was removed: - ----- Method: ClassEditorOntologyTest>>test01Creation (in category 'tests') ----- - test01Creation - "This invariant allows editors and their subject classes to use - exactly the same reflection protocol, so that the only modification - required to allow tools to modify the system atomically is to send - #commit when all modifications are complete." - - self assert: editor subject == EditorSubject. - self assert: editor class subject == EditorSubject class!
Item was removed: - ----- Method: OrganizationEditorTest>>test10CategoryOfElement (in category 'tests') ----- - test10CategoryOfElement - editor := OrganizationEditor for: (ClassEditor on: self class). - self assert: (editor categoryOfElement: #test10CategoryOfElement) = #tests.!
Item was removed: - ----- Method: ClassExporterTest>>setUp (in category 'running') ----- - setUp - super setUp. - exporter := ClassExporter on: Smalltalk. - !
Item was removed: - ----- Method: ClassEditorProtocolTest>>test41HasComment (in category 'tests') ----- - test41HasComment - - self deny: editor hasComment!
Item was removed: - ----- Method: InstanceMigratorTest>>testTwoClassTransaction (in category 'tests') ----- - testTwoClassTransaction - | mutator classes inst1 inst2 | - mutator := MigrationTransaction new. - - classes := self createClassPair. - inst1 := classes key new. - mutator addMigrator: (InstanceMigrator from: classes key to: classes value). - - classes := self createClassPair. - inst2 := classes key new. - mutator addMigrator: (InstanceMigrator from: classes key to: classes value). - - mutator commit. - self assert: inst1 isInstanceOfNewClass. - self assert: inst2 isInstanceOfNewClass!
Item was removed: - ----- Method: OrganizationEditorTest>>assertRemoteString:inRepository:matches: (in category 'asserting') ----- - assertRemoteString: remote inRepository: repository matches: aString - self assert: remote sourceFileNumber = 2. - repository changesStream position: remote position. - self assert: (repository changesStream next: aString size) = aString. - repository changesStream next = $!!!
Item was removed: - ----- Method: ClassEditorOntologyTest>>test09Organization (in category 'tests') ----- - test09Organization - - self assert: editor organization subject == editor subject organization!
Item was removed: - ----- Method: SystemEditorCommitTest>>setUp (in category 'running') ----- - setUp - super setUp. - editor := SystemEditor new. - !
Item was removed: - ----- Method: AbstractEditor>>edRegisterEditor (in category 'initialize-release') ----- - edRegisterEditor - "Register myself with my container, which is presumed to be a DictionaryEditor" - self environment edRegisterEditor: self!
Item was removed: - ----- Method: ClassEditorOntologyTest>>test11MetaOrganization (in category 'tests') ----- - test11MetaOrganization - - self assert: editor class organization subject == editor class subject organization!
Item was removed: - ----- Method: ClassDecorator>>validate (in category 'validating') ----- - validate - "Raise an error if the build should not proceed"!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test14AddAndRemoveSelector (in category 'tests') ----- - test14AddAndRemoveSelector - editor - compile: 'zayin ^ 1' - classified: 'numbers' - withStamp: 'cwp 5/30/2004 09:27' - notifying: nil - logSource: true. - editor removeSelector: #zayin. - self deny: (editor includesSelector: #zayin). - !
Item was removed: - ----- Method: SystemEditorTest>>test14AtIfAbsentDoesntWrapPools (in category 'tests') ----- - test14AtIfAbsentDoesntWrapPools - self assert: (editor at: #Undeclared ifAbsent: [0]) == Undeclared!
Item was removed: - ----- Method: SystemEditorCommitTest>>test01MigratesInstances (in category 'tests') ----- - test01MigratesInstances - | inst classEditor class | - class := editor subject at: #EditorSubjectSub. - inst := class new. - classEditor := editor at: #EditorSubjectSub. - classEditor addInstVarName: 'gamma'. - editor commit. - self assert: (inst class instVarNames includes: 'gamma')!
Item was removed: - ----- Method: Behavior>>edInstanceBasedOn: (in category '*systemeditor-core') ----- - edInstanceBasedOn: oldInstance - | newInstance | - self isVariable - ifTrue: [newInstance := self basicNew: oldInstance basicSize] - ifFalse: [newInstance := self basicNew]. - ^newInstance!
Item was removed: - ----- Method: ClassExporterTest>>test04ClassKnowsItsEnvironment (in category 'tests') ----- - test04ClassKnowsItsEnvironment - | class | - class := self createClass. - exporter addClass: class. - exporter commit. - self assert: class environment == exporter environment - !
Item was removed: - ----- Method: InstanceMigratorTest>>createClassPair (in category 'support') ----- - createClassPair - | editor oldClass newClass | - editor := ClassEditor on: EditorSubject. - editor compile: 'isInstanceOfNewClass ^ false' classified: 'testing'. - oldClass := editor edBuild. - editor compile: 'isInstanceOfNewClass ^ true' classified: 'testing'. - newClass := editor edBuild. - ^ oldClass -> newClass!
Item was removed: - ----- Method: ClassEditorValidationTest>>test10InstVarNamedFalse (in category 'tests') ----- - test10InstVarNamedFalse - - editor addInstVarName: 'false'. - self should: [editor validate] raise: IllegalVariableName.!
Item was removed: - ----- Method: ClassEditorValidationTest>>test09InstVarNamedTrue (in category 'tests') ----- - test09InstVarNamedTrue - - editor addInstVarName: 'true'. - self should: [editor validate] raise: IllegalVariableName.!
Item was removed: - ----- Method: InstanceMigrator>>createMap (in category 'initialize-release') ----- - createMap - | oldInstVarNames | - oldInstVarNames := origin allInstVarNames. - ^ destination allInstVarNames - collect: [:instVarName | oldInstVarNames indexOf: instVarName]. - !
Item was removed: - ----- Method: EditorSubject class>>aleph (in category 'accessing class vars') ----- - aleph - ^ Aleph !
Item was removed: - ----- Method: ClassEditorOntologyTest>>test04IsKindOfClass (in category 'tests') ----- - test04IsKindOfClass - "A class and its editor are polymorphic, but this kind of - explicit test can tell the difference." - - self deny: (editor class isKindOf: Class)!
Item was removed: - ----- Method: MetaclassEditorBuildTest>>test02AddInstVar (in category 'tests') ----- - test02AddInstVar - - | result | - editor addInstVarName: 'gamma'. - result := editor edBuild. - self deny: result == editor subject. - self assert: result instVarNames = editor instVarNames. - self assert: result format = editor format. - !
Item was removed: - ----- Method: ClassEditorProtocolTest>>test04ClassVarNames (in category 'tests') ----- - test04ClassVarNames - self assert: editor classVarNames = editor subject classVarNames!
Item was removed: - ----- Method: ClassFormatTest>>testIndexed (in category 'tests') ----- - testIndexed - | format | - format := ClassFormat indexed. - self assert: format instSize = 0. - self assert: format isPointers. - self assert: format isWords. - self assert: format isVariable. - self deny: format isFixed. - self deny: format isBits. - self deny: format isBytes. - self deny: format isWeak - !
Item was removed: - ----- Method: ClassEditorProtocolTest>>test12AddSelector (in category 'tests') ----- - test12AddSelector - self deny: (editor includesSelector: #zayin). - editor - compile: 'zayin ^ 1' - classified: 'numbers' - withStamp: 'cwp 5/30/2004 09:27' - notifying: nil - logSource: true. - self assert: (editor includesSelector: #zayin)!
Item was removed: - ----- Method: ClassFormatTest>>testIndexedSubclass (in category 'tests') ----- - testIndexedSubclass - | superFormat subFormat | - superFormat := ClassFormat named: 3. - subFormat := superFormat indexedSubclass: 2. - self assert: superFormat instSize = 3. - self assert: subFormat instSize = 5. - self assert: subFormat isVariable. - self assert: subFormat isPointers. - self assert: subFormat isWords. - self deny: subFormat isFixed. - self deny: subFormat isBits. - self deny: subFormat isBytes. - self deny: subFormat isWeak!
Item was removed: - ----- Method: TestCategoryEditor>>changesRemoveElement: (in category 'accessing') ----- - changesRemoveElement: element - changes removeElement: element!
Item was removed: - ----- Method: ClassFormatTest>>testNamedSubclass (in category 'tests') ----- - testNamedSubclass - | superFormat subFormat | - superFormat := ClassFormat named: 3. - subFormat := superFormat namedSubclass: 2. - self assert: superFormat instSize = 3. - self assert: subFormat instSize = 5. - self assert: subFormat isFixed. - self assert: subFormat isPointers. - self assert: subFormat isWords. - self deny: subFormat isVariable. - self deny: subFormat isBits. - self deny: subFormat isBytes. - self deny: subFormat isWeak!
Item was removed: - ----- Method: MetaclassEditorBuildTest>>test01NoChange (in category 'tests') ----- - test01NoChange - "We always rebuild the metaclass, since the class needs to be an instance of it." - - self deny: editor edBuild == editor subject. - self deny: editor edRequiresRecompile!
Item was removed: - ----- Method: ClassExporterTest>>test03ExistingReferencesAreMaintained (in category 'tests') ----- - test03ExistingReferencesAreMaintained - | class reference | - reference := Smalltalk at: #EditorSubjectSub. - class := self createClassNamed: #EditorSubjectSub. - exporter addClass: class. - exporter commit. - self assert: (Smalltalk at: #EditorSubjectSub) == reference.!
Item was removed: - ----- Method: SystemEditorCommitTest>>test02CategorizesClasses (in category 'tests') ----- - test02CategorizesClasses - | classEditor | - classEditor := editor at: #EditorSubjectSub. - classEditor category: #'SystemEditor-Info'. - editor commit. - self assert: (SystemOrganization categoryOfElement: #EditorSubjectSub) == #'SystemEditor-Info'!
Item was removed: - ----- Method: OrganizationEditorTest>>test08NilCommentDoesntWriteToChangesFile (in category 'tests') ----- - test08NilCommentDoesntWriteToChangesFile - | repository result | - repository := SourceRepository newInternal. - editor := OrganizationEditor for: (ClassEditor on: self class) - repository: repository. - editor classComment: nil stamp: nil. - result := editor edBuild. - self assert: result commentRemoteStr isNil. - self assert: repository changesStream size = 3!
Item was removed: - ----- Method: ClassEditorBuildTest>>test02AddInstVar (in category 'tests') ----- - test02AddInstVar - - | result | - editor addInstVarName: 'gamma'. - result := editor product. - self deny: result == editor subject. - self assert: result name = editor subject name. - self assert: result instVarNames = editor instVarNames. - self assert: result format = editor format. - !
Item was removed: - ----- Method: SourceRepositoryTest>>test02StoreCommentForClassStamped (in category 'tests') ----- - test02StoreCommentForClassStamped - | remote | - remote := repository - storeComment: 'This is a comment.' - forClass: self class - stamped: 'cwp 12/11/2005 21:58'. - - self assert: repository changesStream contents = 'xxx - !!SourceRepositoryTest commentStamp: ''cwp 12/11/2005 21:58'' prior: 0!! - This is a comment.!!'. - - self assert: remote sourceFileNumber = 2. - self assert: remote position = 73!
Item was removed: - ----- Method: EditorSubjectSubTest>>createClassNamed: (in category 'support') ----- - createClassNamed: aSymbol - | classEditor | - classEditor := (ClassEditor on: EditorSubject) - subclass: aSymbol - instanceVariableNames: 'gamma' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'. - ^classEditor product!
Item was removed: - ----- Method: ClassExporterTest>>test05NewClassReplacesOld (in category 'tests') ----- - test05NewClassReplacesOld - | class | - class := self createClassNamed: #EditorSubjectSub. - exporter addClass: class. - exporter commit. - self assert: ((Smalltalk at: #EditorSubjectSub) instVarNames includes: 'gamma')!
Item was removed: - ----- Method: MigrationTransaction>>commit (in category 'public') ----- - commit - "The mass become: is a primitive, but we execute this method with preemption - disabled because we don't want another process creating new instances while - we're busy converting the existing instances." - - | old new | - [ - old := WriteStream on: (Array new: migrators size). - new := WriteStream on: (Array new: migrators size). - migrators do: [:ea | ea migrateFrom: old to: new]. - old contents elementsExchangeIdentityWith: new contents. - ] valueUnpreemptively.!
Item was removed: - ----- Method: ClassEditorBuildTest>>test01NoChange (in category 'tests') ----- - test01NoChange - "Since there was no change, we don't have to rebuild the class at all." - - | migration | - migration := MigrationTransaction new. - editor edPrepareMigration: migration. - self assert: migration isEmpty!
Item was removed: - ----- Method: ClassDescriptionEditor>>edIsValid (in category '*SystemEditor-Tests') ----- - edIsValid - [self validate] - on: InvalidSystemChange - do: [:ex | ^ false]. - ^ true!
Item was removed: - ----- Method: OrganizationEditorTest>>basicFileStream (in category 'remote string') ----- - basicFileStream - ^ stream := WriteStream on: (String new: 20)!
Item was removed: - ----- Method: ClassEditorValidationTest>>test12InstVarDefinedInSuperclass (in category 'tests') ----- - test12InstVarDefinedInSuperclass - - | subeditor | - subeditor := editor - subclass: #EditorSubjectSub - instanceVariableNames: 'alpha' - classVariableNames: '' - poolDictionaries: '' - category: 'Testing'. - self should: [subeditor validate] raise: IllegalVariableName.!
Item was removed: - ----- Method: SystemEditorTest>>test08DoesntRebuildSubclassesUnnecessarily (in category 'tests') ----- - test08DoesntRebuildSubclassesUnnecessarily - | superclass | - superclass := editor at: #ClassEditorTest. - superclass compile: 'het ^ #one' classified: 'testing'. - self denyClassesAreMigrated: ClassEditorTest subclasses.!
Item was removed: - ----- Method: ClassEditorBuildTest>>test16CommentNotChanged (in category 'tests') ----- - test16CommentNotChanged - - | migration | - editor comment. - - migration := MigrationTransaction new. - editor edPrepareMigration: migration. - self assert: migration migrators isEmpty.!
Item was removed: - ----- Method: ClassEditorTest>>setUp (in category 'running') ----- - setUp - editor := ClassEditor on: EditorSubject!
Item was removed: - ----- Method: EditorSubject class>>ayin (in category 'methods for editing') ----- - ayin - ^ 22!
Item was removed: - ----- Method: ClassEditorTest class>>isAbstract (in category 'testing') ----- - isAbstract - ^ self name == #ClassEditorTest!
Item was removed: - ----- Method: OrganizationEditorTest>>test06BuildCopiesCategories (in category 'tests') ----- - test06BuildCopiesCategories - | actual expected | - editor := OrganizationEditor for: (ClassEditor on: self class). - actual := editor edBuild. - expected := self class organization. - self deny: actual == expected. - self assert: actual printString = expected printString!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test15RemoveNewSelector (in category 'tests') ----- - test15RemoveNewSelector - editor removeSelector: #zayin. - self deny: (editor includesSelector: #zayin)!
Item was removed: - ----- Method: MetaclassEditorProtocolTest>>test09CompiledMethodAt (in category 'tests') ----- - test09CompiledMethodAt - "Compiled methods are immutable, so we don't wrap them for editing." - - self assert: (editor compiledMethodAt: #ayin) == (editor subject compiledMethodAt: #ayin)!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test06RemoveClassVarName (in category 'tests') ----- - test06RemoveClassVarName - editor removeClassVarName: 'Beth'. - self assert: editor classVarNames = (editor subject classVarNames copyWithout: 'Beth')!
Item was removed: - ----- Method: SystemEditorTest>>setUp (in category 'running') ----- - setUp - editor := SystemEditor new. - !
Item was removed: - ----- Method: ClassFormatTest>>testWeak (in category 'tests') ----- - testWeak - | format | - format := ClassFormat weak. - self assert: format instSize = 0. - self assert: format isVariable. - self assert: format isPointers. - self assert: format isWords. - self assert: format isWeak. - self deny: format isFixed. - self deny: format isBits. - self deny: format isBytes. - !
Item was removed: - ----- Method: ClassEditorBuildTest>>test03Superclass (in category 'tests') ----- - test03Superclass - - | result | - editor superclass: self class. - result := editor product. - self deny: result == editor subject. - self assert: result superclass == self class.!
Item was removed: - ----- Method: AbstractEditor class>>canEdit: (in category 'as yet unclassified') ----- - canEdit: anObject - ^ self canEdit: anObject for: nil!
Item was removed: - ----- Method: CategoryEditorTest>>setUp (in category 'as yet unclassified') ----- - setUp - super setUp. - categorizer := TestCategoryEditor on: categorizer!
Item was removed: - ----- Method: AbstractEditor class>>on: (in category 'as yet unclassified') ----- - on: anObject - ^ self on: anObject for: nil!
Item was removed: - ----- Method: MetaclassEditorBuildTest>>test06MethodAdded (in category 'tests') ----- - test06MethodAdded - - | dict | - editor - compile: 'pe ^ -2' - classified: 'letters' - withStamp: 'cwp 5/30/2004 09:27' - notifying: nil - logSource: true. - dict := editor methodDictionary. - self assert: (dict at: #pe) isCompiledMethod. - !
Item was removed: - ----- Method: SystemEditorTest>>test10ValidatesBeforeCommitting (in category 'tests') ----- - test10ValidatesBeforeCommitting - | classEditor | - classEditor := editor at: #EditorSubject. - classEditor typeOfClass: #bytes. - classEditor addInstVarName: 'test'. - self - should: [editor commit] - raise: InvalidClassFormat!
Item was removed: - ----- Method: TestCategoryEditor>>changesInCategory: (in category 'accessing') ----- - changesInCategory: category - ^ changes listAtCategoryNamed: category!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test26CompileClassified (in category 'tests') ----- - test26CompileClassified - self deny: (editor includesSelector: #zayin). - editor - compile: 'zayin ^ 1' - classified: 'numbers'. - self assert: (editor includesSelector: #zayin)!
Item was removed: - ----- Method: ClassDecorator>>edRequiresRecompile (in category 'building') ----- - edRequiresRecompile - "Answer true if I require my client and all subclasses to be recompiled" - ^ false!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test16TypeOfClass (in category 'tests') ----- - test16TypeOfClass - editor typeOfClass = #normal!
Item was removed: - ----- Method: ClassExporterTest>>test02ClassIsAddedToSuperclass (in category 'tests') ----- - test02ClassIsAddedToSuperclass - | class | - class := self createClass. - exporter addClass: class. - exporter commit. - self assert: (class superclass subclasses includes: class) - !
Item was removed: - ----- Method: OrganizationEditorTest>>test02ClassComment (in category 'tests') ----- - test02ClassComment - editor := OrganizationEditor for: (ClassEditor on: self class). - self assert: editor classComment asString = 'This comment must be present for the tests to pass.'!
Item was removed: - ----- Method: ClassEditorOntologyTest>>test03ClassReferences (in category 'tests') ----- - test03ClassReferences - - "The instance is a strange beast. Its class is created on the fly, and is - both an instance of MetaclassEditor and a subclass of ClassEditor. - See #testCreation." - self assert: editor class class == MetaclassEditor. - self assert: (editor class instVarNamed: 'superclass') == ClassEditor. - - - "editor is an instance of a light-weight class, so we don't register it - with its superclass. In fact, the only thing that keeps it from being - garbage collected is the class pointer from editor." - self deny: (ClassEditor subclasses includes: editor class). - - !
Item was removed: - ----- Method: ClassEditorProtocolTest>>test09RemoveSharedPool (in category 'tests') ----- - test09RemoveSharedPool - editor removeSharedPool: EditorSubjectPool. - self assert: editor sharedPools = (editor subject sharedPools copyWithout: EditorSubjectPool)!
Item was removed: - ----- Method: ClassEditorValidationTest>>test11InstVarNamedNil (in category 'tests') ----- - test11InstVarNamedNil - - editor addInstVarName: 'nil'. - self should: [editor validate] raise: IllegalVariableName.!
Item was removed: - ----- Method: MigrationTransaction>>isEmpty (in category 'public') ----- - isEmpty - ^ migrators isEmpty!
Item was removed: - ----- Method: ClassDecorator class>>for: (in category 'as yet unclassified') ----- - for: anEditor - "Answer a decorator appropriate for anEditor, or nil if not applicable" - ^ self new for: anEditor!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test13RemoveSelector (in category 'tests') ----- - test13RemoveSelector - editor removeSelector: #het. - self deny: (editor includesSelector: #het)!
Item was removed: - ----- Method: OrganizationEditorTest>>test01SubjectCanBeSpecified (in category 'tests') ----- - test01SubjectCanBeSpecified - editor := OrganizationEditor for: (ClassEditor on: EditorSubject). - self assert: editor subject == EditorSubject organization!
Item was removed: - ----- Method: OrganizationEditorTest>>test03CommentStamp (in category 'tests') ----- - test03CommentStamp - editor := OrganizationEditor for: (ClassEditor on: self class). - self assert: editor commentStamp = OrganizationEditorTest organization commentStamp!
Item was removed: - ----- Method: InstanceMigratorTest>>testOneClassTransaction (in category 'tests') ----- - testOneClassTransaction - | mutator classes inst | - classes := self createClassPair. - inst := classes key new. - mutator := MigrationTransaction new. - mutator addMigrator: (InstanceMigrator from: classes key to: classes value). - mutator commit. - self assert: inst isInstanceOfNewClass!
Item was removed: - ----- Method: MetaclassEditorProtocolTest>>test07RemoveSelector (in category 'tests') ----- - test07RemoveSelector - editor removeSelector: #ayin. - self deny: (editor includesSelector: #ayin)!
Item was removed: - ----- Method: SystemEditorTest>>test04ClassEditorsAreCached (in category 'tests') ----- - test04ClassEditorsAreCached - | first second | - first := editor at: #EditorSubject. - second := editor at: #EditorSubject. - self assert: first == second!
Item was removed: - ----- Method: ClassEditorBuildTest>>test05RemoveClassVar (in category 'tests') ----- - test05RemoveClassVar - - | result | - editor removeClassVarName: 'Beth'. - result := editor product. - self deny: result == editor subject. - self assert: result classVarNames = editor classVarNames.!
Item was removed: - ----- Method: ClassEditorOntologyTest>>test02Printing (in category 'tests') ----- - test02Printing - "This makes debugging easier." - - self assert: editor printString = 'a ClassEditor on: EditorSubject'. - self assert: editor class printString = 'a MetaclassEditor on: EditorSubject'.!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test39Category (in category 'tests') ----- - test39Category - - self assert: editor category = editor subject category!
Item was removed: - ----- Method: ClassFormatTest>>testWords (in category 'tests') ----- - testWords - | format | - format := ClassFormat words. - self assert: format instSize = 0. - self assert: format isVariable. - self assert: format isBits. - self assert: format isWords. - self deny: format isFixed. - self deny: format isPointers. - self deny: format isBytes. - self deny: format isWeak - !
Item was removed: - ----- Method: ClassEditorProtocolTest>>test31AllInstVarNames (in category 'tests') ----- - test31AllInstVarNames - - | subeditor | - editor addInstVarName: 'gamma'. - subeditor := ClassEditor forNewClassNamed: #EditorSubjectSub. - subeditor superclass: editor. - subeditor addInstVarName: 'delta'. - self assert: subeditor allInstVarNames = (editor subject instVarNames, #('gamma' 'delta')). - - !
Item was removed: - ----- Method: AbstractEditor class>>on:ifNotHandled: (in category 'as yet unclassified') ----- - on: subject ifNotHandled: aBlock - ^ self on: subject for: nil ifNotHandled: aBlock!
Item was removed: - EditorSubjectSubTest subclass: #ClassExporterTest - instanceVariableNames: 'exporter' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: EditorSubjectSubTest>>tearDown (in category 'running') ----- - tearDown - (Smalltalk at: #EditorSubject) - allSubclasses do: [:ea | ea removeFromSystem]!
Item was removed: - ----- Method: MetaclassEditorBuildTest>>test07MethodRecompilation (in category 'tests') ----- - test07MethodRecompilation - - | dict | - editor addInstVarName: 'psi'. - dict := editor methodDictionary. - self deny: (dict at: #ayin) == (editor subject compiledMethodAt: #ayin). - !
Item was removed: - ----- Method: ClassFormatTest>>testNoState (in category 'tests') ----- - testNoState - | format | - format := ClassFormat noState. - self assert: format instSize = 0. - self assert: format isFixed. - self assert: format isPointers. - self assert: format isWords. - self deny: format isVariable. - self deny: format isBits. - self deny: format isBytes. - self deny: format isWeak!
Item was removed: - ----- Method: ClassFormatTest>>testBytes (in category 'tests') ----- - testBytes - | format | - format := ClassFormat bytes. - self assert: format instSize = 0. - self assert: format isVariable. - self assert: format isBits. - self assert: format isBytes. - self deny: format isFixed. - self deny: format isPointers. - self deny: format isWords. - self deny: format isWeak - !
Item was removed: - ----- Method: AbstractEditor class>>canEdit:for: (in category 'as yet unclassified') ----- - canEdit: anObject for: containerEditor - ^ false!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test35IsBehavior (in category 'tests') ----- - test35IsBehavior - - self assert: editor isBehavior!
Item was removed: - ----- Method: ClassEditorValidationTest>>test06InstVarNamedSelf (in category 'tests') ----- - test06InstVarNamedSelf - - editor addInstVarName: 'self'. - self should: [editor validate] raise: IllegalVariableName.!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test34Subclasses (in category 'tests') ----- - test34Subclasses - - | supereditor | - supereditor := (editor system at: #Object) - subclass: #EditorSubjectSuper - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Testing'. - editor superclass: supereditor. - self assert: supereditor subclasses = (Array with: editor)!
Item was removed: - ----- Method: SystemEditorTest>>test07ReshapesSubclasses (in category 'tests') ----- - test07ReshapesSubclasses - | superclass | - superclass := editor at: #ClassEditorTest. - superclass addInstVarName: 'gamma'. - self assertClassesAreMigrated: ClassEditorTest subclasses!
Item was removed: - ClassEditorTest subclass: #ClassEditorProtocolTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: MetaclassEditorBuildTest>>test09NoSubject (in category 'tests') ----- - test09NoSubject - - | result | - editor := (ClassEditor forNewClassNamed: #EditorSubect2) class. - result := editor edBuild. - self assert: result isMeta!
Item was removed: - ----- Method: ClassDecorator>>edBuild (in category 'building') ----- - edBuild - "Build what needs to be built, but don't install it"!
Item was removed: - ----- Method: SourceRepositoryTest>>setUp (in category 'running') ----- - setUp - repository := SourceRepository newInternal!
Item was removed: - ----- Method: TestCategoryEditor>>classifyChange:under:suppressIfDefault: (in category 'accessing') ----- - classifyChange: element under: category suppressIfDefault: aBoolean - changes classify: element under: category suppressIfDefault: aBoolean!
Item was removed: - ----- Method: SystemEditorTest>>test15KeyAtIdentityValueFindPools (in category 'tests') ----- - test15KeyAtIdentityValueFindPools - self assert: (editor keyAtIdentityValue: Undeclared ifAbsent: [nil]) = #Undeclared!
Item was removed: - ----- Method: OrganizationEditorTest>>sourceFileNumber (in category 'remote string') ----- - sourceFileNumber - ^ 2!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test03RemoveClassVarName (in category 'tests') ----- - test03RemoveClassVarName - editor removeClassVarName: 'Beth'. - self assert: editor classVarNames = (editor subject classVarNames copyWithout: 'Beth')!
Item was removed: - ----- Method: OrganizationEditorTest>>repository (in category 'construction') ----- - repository - self shouldBeImplemented!
Item was removed: - ----- Method: ClassEditorBuildTest>>test15CommentChanged (in category 'tests') ----- - test15CommentChanged - - | migration | - editor classComment: 'A new comment' stamp: 'cwp 12/18/2005 15:47'. - - migration := MigrationTransaction new. - editor edPrepareMigration: migration. - self assert: migration migrators size = 1. - self assert: (migration migrators first origin isKindOf: ClassOrganizer)!
Item was removed: - TestCase subclass: #InstanceMigratorTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: OrganizationEditorTest>>setUp (in category 'running') ----- - setUp - editor := OrganizationEditor for: EditorSubject!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test32FormatWithEditedSuperclass (in category 'tests') ----- - test32FormatWithEditedSuperclass - - | format supereditor | - supereditor := (editor system at: #Object) - subclass: #EditorSubjectSub - instanceVariableNames: 'gamma' - classVariableNames: '' - poolDictionaries: '' - category: 'Testing'. - editor superclass: supereditor. - format := ClassFormat fromBits: editor format. - self assert: format instSize = (supereditor instSize + editor instVarNames size)!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test28InstSize (in category 'tests') ----- - test28InstSize - | sub | - sub := editor - subclass: #EditorSubjectSubclass - instanceVariableNames: 'gamma' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'. - self assert: sub instSize = 3!
Item was removed: - ----- Method: DictionaryEditor>>isChanged (in category 'testing') ----- - isChanged - ^ additions notEmpty or: [removals notEmpty]!
Item was removed: - ----- Method: ClassDecorator>>edPostLoad (in category 'building') ----- - edPostLoad - "Do something after the migration is finished"!
Item was removed: - ----- Method: SystemEditorTest>>test09RecompilesSubclasses (in category 'tests') ----- - test09RecompilesSubclasses - "This test isn't quite right. It should actually compare compiled methods." - - | superclass | - superclass := editor at: #ClassEditorTest. - superclass removeInstVarName: 'alpha'. - self assertClassesAreMigrated: ClassEditorTest subclasses!
Item was removed: - ----- Method: ClassDecorator>>edRequiresBuild (in category 'building') ----- - edRequiresBuild - "Answer true if I need my client to be built afresh" - ^ false!
Item was removed: - ----- Method: ClassEditorValidationTest>>test04TooManyInstVars (in category 'tests') ----- - test04TooManyInstVars - 1 to: 255 do: [:i | editor addInstVarName: i asString]. - self should: [editor validate] raise: InvalidClassFormat!
Item was removed: - ----- Method: ClassFormatTest>>testNamedWithInstSize (in category 'tests') ----- - testNamedWithInstSize - | old new | - old := ClassFormat named: 3. - new := old withInstSize: 5. - self assert: new instSize = 5. - self assert: new instSpec = old instSpec. - self assert: new cClassIndex = old cClassIndex!
Item was removed: - ----- Method: ClassEditorValidationTest>>test05MultiplyDefinedInstVars (in category 'tests') ----- - test05MultiplyDefinedInstVars - "See ClassEditorProtocolTest>>test29InstVarsArentDuplicated" - - editor - addInstVarName: 'gamma'; - addInstVarName: 'gamma'. - self assert: editor edIsValid!
Item was removed: - ----- Method: SystemEditorTest>>test18RemovedClassesArentPresent (in category 'tests') ----- - test18RemovedClassesArentPresent - | classEditor | - classEditor := editor at: #EditorSubject. - classEditor removeFromSystem. - self should: [editor at: #EditorSubject] raise: Error.!
Item was removed: - ----- Method: CategoryEditorTest>>tearDown (in category 'as yet unclassified') ----- - tearDown - self assert: categorizer subject printString = - '(''as yet unclassified'' d e) - (''abc'' a b c) - (''unreal'') - '!
Item was removed: - EditorSubjectSubTest subclass: #SystemEditorCommitTest - instanceVariableNames: 'editor' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: EditorSubject class>>aleph: (in category 'accessing class vars') ----- - aleph: anObject - Aleph := anObject!
Item was removed: - ----- Method: TestCategoryEditor>>changesAddCategory:before: (in category 'accessing') ----- - changesAddCategory: newCategory before: nextCategory - "I don't support ordering" - changes addCategory: newCategory!
Item was removed: - ----- Method: InstanceMigrator>>setOrigin:destination: (in category 'initialize-release') ----- - setOrigin: oldClass destination: newClass - origin := oldClass. - destination := newClass. - map := self createMap. - instSize := destination instSize!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test05AddClassVarName (in category 'tests') ----- - test05AddClassVarName - editor addClassVarName: #Gimel. - self assert: editor classVarNames = (editor subject classVarNames copyWith: #Gimel)!
Item was removed: - ----- Method: ClassEditorValidationTest>>test13InstVarDefinedInSubclass (in category 'tests') ----- - test13InstVarDefinedInSubclass - - editor - subclass: #EditorSubjectSub - instanceVariableNames: 'gamma' - classVariableNames: '' - poolDictionaries: '' - category: 'Testing'. - editor addInstVarName: 'gamma'. - self should: [editor validate] raise: IllegalVariableName.!
Item was removed: - ----- Method: SystemEditorTest>>test17RemovedClassesAreAbsent (in category 'tests') ----- - test17RemovedClassesAreAbsent - | classEditor | - classEditor := editor at: #EditorSubject. - classEditor removeFromSystem. - self assert: (editor at: #EditorSubject ifAbsent: [nil]) isNil!
Item was removed: - ----- Method: ClassEditorBuildTest>>test07AddSharedPool (in category 'tests') ----- - test07AddSharedPool - - | result pool | - pool := Dictionary new. - editor addSharedPool: pool. - result := editor product. - self deny: result == editor subject. - self assert: (result sharedPools includes: pool). - self deny: (editor subject sharedPools includes: pool).!
Item was removed: - TestCase subclass: #SourceRepositoryTest - instanceVariableNames: 'repository' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: ClassEditorBuildTest>>test04AddClassVar (in category 'tests') ----- - test04AddClassVar - - | result | - editor addClassVarName: 'Gimel'. - result := editor product. - self deny: result == editor subject. - self assert: result classVarNames = editor classVarNames. - !
Item was removed: - ----- Method: TestCategoryEditor class>>on: (in category 'as yet unclassified') ----- - on: aCategorizer - ^ self new setSubject: aCategorizer!
Item was removed: - ----- Method: ClassEditorBuildTest>>test14SuperclassEditedInstVars (in category 'tests') ----- - test14SuperclassEditedInstVars - - | result subeditor | - editor addInstVarName: 'gamma'. - subeditor := ClassEditor forNewClassNamed: #EditorSubjectSub. - subeditor superclass: editor. - subeditor addInstVarName: 'delta'. - result := subeditor product. - self assert: result allInstVarNames = (editor subject instVarNames, #('gamma' 'delta')). - - !
Item was removed: - ----- Method: OrganizationEditorTest>>test11RemovingCommentCausesBuild (in category 'tests') ----- - test11RemovingCommentCausesBuild - | repository | - repository := SourceRepository newInternal. - editor := OrganizationEditor for: (ClassEditor on: self class) - repository: repository. - editor classComment: nil stamp: nil. - self assert: editor edRequiresBuild!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test33InstSizeWithEditedSuperclass (in category 'tests') ----- - test33InstSizeWithEditedSuperclass - - | supereditor | - supereditor := (editor system at: #Object) - subclass: #EditorSubjectSub - instanceVariableNames: 'gamma' - classVariableNames: '' - poolDictionaries: '' - category: 'Testing'. - editor superclass: supereditor. - self assert: editor instSize = (supereditor instSize + editor instVarNames size)!
Item was removed: - ----- Method: MigrationTransaction>>addMigrator: (in category 'public') ----- - addMigrator: aMigrator - migrators add: aMigrator!
Item was removed: - ----- Method: MetaclassEditorBuildTest>>test03Superclass (in category 'tests') ----- - test03Superclass - - | result | - editor superclass: self class class. - result := editor edBuild. - self deny: result == editor subject. - self assert: result superclass == self class class.!
Item was removed: - Object subclass: #AbstractEditor - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Core'!
Item was removed: - ----- Method: SystemEditorCommitTest>>test03RemovesClasses (in category 'tests') ----- - test03RemovesClasses - | classEditor | - classEditor := editor at: #EditorSubjectSub. - classEditor removeFromSystem. - editor commit. - self deny: (Smalltalk hasClassNamed: #EditorSubjectSub)!
Item was removed: - ----- Method: MetaclassEditorProtocolTest>>test06RemoveNewSelector (in category 'tests') ----- - test06RemoveNewSelector - editor removeSelector: #pe. - self deny: (editor includesSelector: #pe)!
Item was removed: - ----- Method: OrganizationEditorTest>>position (in category 'remote string') ----- - position - ^ 42!
Item was removed: - Object subclass: #InstanceMigrator - instanceVariableNames: 'map instSize origin destination' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Core'! - - !InstanceMigrator commentStamp: 'mtf 7/14/2008 23:51' prior: 0! - My instances are responsible for finding instances of an old class and building them in a new format, to be swapped during MigrationTransaction>>commit!
Item was removed: - ----- Method: TestCategoryEditor>>removedElements (in category 'private') ----- - removedElements - ^ removedElements !
Item was removed: - ----- Method: ClassFormatTest>>testBitsWithInstSize (in category 'tests') ----- - testBitsWithInstSize - | format | - format := ClassFormat bytes. - self should: [format withInstSize: 2] raise: InvalidClassFormat!
Item was removed: - ClassEditorTest subclass: #ClassEditorOntologyTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: MetaclassEditorProtocolTest>>test01InstVarNames (in category 'tests') ----- - test01InstVarNames - self assert: editor instVarNames = editor subject instVarNames!
Item was removed: - ----- Method: AbstractEditor class>>on:for:ifNotHandled: (in category 'as yet unclassified') ----- - on: subject for: collectionEditor ifNotHandled: aBlock - "Try to find the most specialized subclass willing to edit, for extensibility" - | editor | - "nil subject is always permitted; it means new object" - subject ifNil: [^ self new on: subject for: collectionEditor]. - self subclassesDo: [:class | - editor := class on: subject for: collectionEditor ifNotHandled: [nil]. - editor ifNotNil: [^ editor]]. - (self canEdit: subject for: collectionEditor) - ifTrue: [^ self new on: subject for: collectionEditor]. - ^ aBlock value!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test44SourceCodeAt (in category 'tests') ----- - test44SourceCodeAt - self assert: (editor sourceCodeAt: #het) = (editor subject sourceCodeAt: #het)!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test36InstanceVariablesString (in category 'tests') ----- - test36InstanceVariablesString - - self assert: editor instanceVariablesString = editor subject instanceVariablesString!
Item was removed: - ----- Method: InstanceMigrator>>origin (in category 'accessing') ----- - origin - ^ origin!
Item was removed: - ----- Method: AbstractEditor>>subject (in category 'accessing') ----- - subject - "Answers the object I am editing" - - self subclassResponsibility!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test43SetClassComment (in category 'tests') ----- - test43SetClassComment - editor classComment: 'class comment' stamp: 'cwp 12/11/2005 22:00'. - editor comment = 'class comment'!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test17Format (in category 'tests') ----- - test17Format - - | format | - format := ClassFormat fromBits: editor format. - self assert: format instSize = editor subject instSize. - self assert: format instSpec = editor subject instSpec. - self assert: format isBits = editor subject isBits. - self assert: format isBytes = editor subject isBytes. - self assert: format isFixed = editor subject isFixed. - self assert: format isPointers = editor subject isPointers. - self assert: format isVariable = editor subject isVariable. - self assert: format isWeak = editor subject isWeak. - self assert: format isWords = editor subject isWords.!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test40SetCategory (in category 'tests') ----- - test40SetCategory - - editor category: #'Test-Category'. - self assert: editor category = #'Test-Category'!
Item was removed: - TestCase subclass: #OrganizationEditorTest - instanceVariableNames: 'editor stream' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'! - - !OrganizationEditorTest commentStamp: 'cwp 12/18/2005 15:47' prior: 0! - This comment must be present for the tests to pass.!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test01InstVarNames (in category 'tests') ----- - test01InstVarNames - self assert: editor instVarNames = editor subject instVarNames!
Item was removed: - ----- Method: ObjectMigrator>>setOrigin:destination: (in category 'initialize-release') ----- - setOrigin: anObject1 destination: anObject2 - origin := anObject1. - destination := anObject2!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test11ClassVarNamesInterned (in category 'tests') ----- - test11ClassVarNamesInterned - editor addClassVarName: 'Gimel'. - self assert: (editor classVarNames anySatisfy: [:ea | ea == #Gimel])!
Item was removed: - ----- Method: ClassFormatTest>>testNamedAndIndexed (in category 'tests') ----- - testNamedAndIndexed - | format | - format := ClassFormat indexed: 3. - self assert: format instSize = 3. - self assert: format isPointers. - self assert: format isWords. - self assert: format isVariable. - self deny: format isFixed. - self deny: format isBits. - self deny: format isBytes. - self deny: format isWeak - !
Item was removed: - ----- Method: ClassFormatTest>>testNoStateSubclass (in category 'tests') ----- - testNoStateSubclass - | format superformat | - superformat := ClassFormat noState. - format := superformat namedSubclass: 0. - self assert: format instSize = 0. - self assert: format isFixed. - self assert: format isPointers. - self assert: format isWords. - self deny: format isVariable. - self deny: format isBits. - self deny: format isBytes. - self deny: format isWeak. - self assert: superformat bits == format bits!
Item was removed: - ----- Method: MigrationTransaction>>destinationFor: (in category 'accessing') ----- - destinationFor: anObject - migrators do: [:ea | ea origin = anObject ifTrue: [^ ea destination]]. - ^ nil!
Item was removed: - ----- Method: ClassDescriptionEditor>>methodDictionary (in category '*SystemEditor-Tests') ----- - methodDictionary - | methodEditor | - (methods isNil and: [self edRequiresRecompile not]) ifTrue: [^ self subject methodDictionary]. - methodEditor := methods ifNil: [MethodDictionaryEditor for: self]. - ^ methodEditor buildFor: self!
Item was removed: - ----- Method: TestCategoryEditor>>changesRenameCategory:toBe: (in category 'accessing') ----- - changesRenameCategory: oldCategory toBe: newCategory - changes renameCategory: oldCategory toBe: newCategory!
Item was removed: - ----- Method: ClassEditorValidationTest>>test02BitsWithVariablesIsInvalid (in category 'tests') ----- - test02BitsWithVariablesIsInvalid - editor typeOfClass: #bytes. - self should: [editor validate] raise: InvalidClassFormat!
Item was removed: - ----- Method: TestCategoryEditor>>categoryOfChange: (in category 'accessing') ----- - categoryOfChange: element - ^ changes categoryOfElement: element!
Item was removed: - TestCase subclass: #ClassEditorTest - instanceVariableNames: 'editor' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test23BeNormal (in category 'tests') ----- - test23BeNormal - editor typeOfClass: #normal. - self assert: editor typeOfClass == #normal. - self assert: editor isPointers. - self deny: editor isWords. - self deny: editor isVariable. - self deny: editor isWeak. - self deny: editor isBits. - !
Item was removed: - ----- Method: MetaclassEditorProtocolTest>>test03RemoveInstVarName (in category 'tests') ----- - test03RemoveInstVarName - editor removeInstVarName: 'omega'. - self assert: editor instVarNames = (editor subject instVarNames copyWithout: 'omega')!
Item was removed: - MetaclassEditorTest subclass: #MetaclassEditorProtocolTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Tests'!
Item was removed: - ----- Method: ClassEditorValidationTest>>test08InstVarNamedThisContext (in category 'tests') ----- - test08InstVarNamedThisContext - - editor addInstVarName: 'thisContext'. - self should: [editor validate] raise: IllegalVariableName.!
Item was removed: - ----- Method: SystemEditorTest>>assertClassesAreMigrated: (in category 'asserting') ----- - assertClassesAreMigrated: classes - self assert: (self migratedClasses includesAllOf: classes)!
Item was removed: - ----- Method: ClassDecorator>>edPrepareMigration: (in category 'building') ----- - edPrepareMigration: txn - "Prepare a migration, if necessary"!
Item was removed: - ----- Method: OrganizationEditorTest>>test09EmptyCommentWrittenToChangesFile (in category 'tests') ----- - test09EmptyCommentWrittenToChangesFile - | remote repository result | - repository := SourceRepository newInternal. - editor := OrganizationEditor for: (ClassEditor on: self class) - repository: repository. - editor classComment: '' stamp: 'cwp 12/11/2005 21:58'. - result := editor edBuild. - remote := result commentRemoteStr. - self assertRemoteString: remote inRepository: repository matches: ''!
Item was removed: - ----- Method: ClassEditorBuildTest>>test12MethodRecompilation (in category 'tests') ----- - test12MethodRecompilation - - | dict | - editor addInstVarName: 'gamma'. - dict := editor methodDictionary. - self deny: (dict at: #het) == (editor subject compiledMethodAt: #het). - !
Item was removed: - ----- Method: TestCategoryEditor>>setSubject: (in category 'initialize-release') ----- - setSubject: aCategorizer - super setSubject: aCategorizer. - changes := Categorizer defaultList: Array new. - removedElements := Set new!
Item was removed: - ----- Method: OrganizationEditorTest>>test04SetComment (in category 'tests') ----- - test04SetComment - editor := OrganizationEditor for: EditorSubject. - editor classComment: 'comment string' stamp: 'cwp 12/11/2005 21:58'. - self assert: editor classComment = 'comment string'!
Item was removed: - ----- Method: AbstractEditor class>>named:for: (in category 'as yet unclassified') ----- - named: aName for: aDictionaryEditor - "Answers a new or existing instance with the given name, and installs it, if necessary" - ^ aDictionaryEditor at: aName ifAbsent: [ - (self on: nil for: aDictionaryEditor) - setName: aName; - edRegisterEditor; - yourself]!
Item was removed: - Object subclass: #MigrationTransaction - instanceVariableNames: 'migrators' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Core'!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test24CompileClassifiedWithStampNotifying (in category 'tests') ----- - test24CompileClassifiedWithStampNotifying - self deny: (editor includesSelector: #zayin). - editor - compile: 'zayin ^ 1' - classified: 'numbers' - withStamp: 'cwp 5/30/2004 09:27' - notifying: nil. - self assert: (editor includesSelector: #zayin)!
Item was removed: - ----- Method: ClassEditorBuildTest>>test09ExistingMethods (in category 'tests') ----- - test09ExistingMethods - - | result | - editor compile: 'waw ^ 3' classified: 'phoenician'. - result := editor product. - self assert: (result compiledMethodAt: #het) == (editor subject compiledMethodAt: #het)!
Item was removed: - ----- Method: MetaclassEditorProtocolTest>>test05AddSelector (in category 'tests') ----- - test05AddSelector - self deny: (editor includesSelector: #zayin). - editor - compile: 'zayin ^ 1' - classified: 'numbers' - withStamp: 'cwp 5/30/2004 09:27' - notifying: nil - logSource: true. - self assert: (editor includesSelector: #zayin)!
Item was removed: - ----- Method: ClassEditorBuildTest>>test08RemoveSharedPool (in category 'tests') ----- - test08RemoveSharedPool - - | result | - editor removeSharedPool: EditorSubjectPool. - result := editor product. - self deny: result == editor subject. - self deny: (result sharedPools includes: EditorSubjectPool). - self assert: (editor subject sharedPools includes: EditorSubjectPool).!
Item was removed: - ----- Method: ClassEditorOntologyTest>>test06Format (in category 'tests') ----- - test06Format - "Despite having an instance variable called 'format' - MetaclassEditors should answer the format of the - subject's metaclass, not the format of ClassEditor class." - - self assert: editor class format = EditorSubject class format!
Item was removed: - ----- Method: ClassEditorBuildTest>>test06PreserveClassVar (in category 'tests') ----- - test06PreserveClassVar - - | result object | - object := Object new. - editor removeClassVarName: 'Beth'. - editor subject aleph: object. - result := editor product. - self deny: result == editor subject. - self assert: result aleph == object!
Item was removed: - ----- Method: ClassEditorOntologyTest>>test07MetaSuperclass (in category 'tests') ----- - test07MetaSuperclass - "MetaclassEditor's ivar called 'superclass' should point to ClassEditor, - but the method #superclass return an editor on the superclass of the - editor's subject." - - self assert: editor class superclass subject == EditorSubject class superclass!
Item was removed: - ----- Method: ClassEditorProtocolTest>>test37ClassVariablesString (in category 'tests') ----- - test37ClassVariablesString - - self assert: editor classVariablesString = editor subject classVariablesString!
Item was removed: - ----- Method: AbstractEditor class>>on:for: (in category 'as yet unclassified') ----- - on: subject for: collectionEditor - ^ self on: subject for: collectionEditor ifNotHandled: [self error: - self class name, ' does not know how to edit ', subject printString]!
Item was removed: - ----- Method: ClassEditorBuildTest>>test13NoSubject (in category 'tests') ----- - test13NoSubject - - | result | - editor := ClassEditor forNewClassNamed: #EditorSubject2. - result := editor product. - self assert: result name = #EditorSubject2!
Item was removed: - ----- Method: Object>>edIsEditor (in category '*systemeditor-core') ----- - edIsEditor - ^ false!
Item was removed: - ----- Method: ObjectMigrator>>origin (in category 'accessing') ----- - origin - ^ origin!
Item was removed: - ----- Method: ClassEditorBuildTest>>test11MethodAdded (in category 'tests') ----- - test11MethodAdded - - | dict selector | - selector := editor - compile: 'zayin ^ 2' - classified: 'numbers' - withStamp: 'cwp 5/30/2004 09:27' - notifying: nil - logSource: true. - dict := editor methodDictionary. - self deny: editor edRequiresBuild. - self assert: (dict at: #zayin) isCompiledMethod. - self assert: selector == #zayin - !
packages@lists.squeakfoundation.org