diff --git a/src/MCP-Tests/MCPDebugControlTestSession.class.st b/src/MCP-Tests-Resources/MCPDebugControlTestSession.class.st similarity index 96% rename from src/MCP-Tests/MCPDebugControlTestSession.class.st rename to src/MCP-Tests-Resources/MCPDebugControlTestSession.class.st index 2493edc..306c421 100644 --- a/src/MCP-Tests/MCPDebugControlTestSession.class.st +++ b/src/MCP-Tests-Resources/MCPDebugControlTestSession.class.st @@ -8,8 +8,8 @@ Class { 'contexts', 'operations' ], - #category : 'MCP-Tests-Tools', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Tools', + #package : 'MCP-Tests-Resources', #tag : 'Tools' } diff --git a/src/MCP-Tests/MCPDebugDeferredDebuggerStub.class.st b/src/MCP-Tests-Resources/MCPDebugDeferredDebuggerStub.class.st similarity index 97% rename from src/MCP-Tests/MCPDebugDeferredDebuggerStub.class.st rename to src/MCP-Tests-Resources/MCPDebugDeferredDebuggerStub.class.st index 21b1521..ce9b555 100644 --- a/src/MCP-Tests/MCPDebugDeferredDebuggerStub.class.st +++ b/src/MCP-Tests-Resources/MCPDebugDeferredDebuggerStub.class.st @@ -12,8 +12,8 @@ Class { 'operation', 'context' ], - #category : 'MCP-Tests', - #package : 'MCP-Tests' + #category : 'MCP-Tests-Resources', + #package : 'MCP-Tests-Resources' } { #category : 'debugger actions' } diff --git a/src/MCP-Tests/MCPDebugTestToolTarget.class.st b/src/MCP-Tests-Resources/MCPDebugTestToolTarget.class.st similarity index 87% rename from src/MCP-Tests/MCPDebugTestToolTarget.class.st rename to src/MCP-Tests-Resources/MCPDebugTestToolTarget.class.st index 86fb2ad..bb371c2 100644 --- a/src/MCP-Tests/MCPDebugTestToolTarget.class.st +++ b/src/MCP-Tests-Resources/MCPDebugTestToolTarget.class.st @@ -4,8 +4,8 @@ SUnit target used by debugger test-running tool tests. Class { #name : 'MCPDebugTestToolTarget', #superclass : 'TestCase', - #category : 'MCP-Tests-Tools', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Tools', + #package : 'MCP-Tests-Resources', #tag : 'Tools' } diff --git a/src/MCP-Tests/MCPExternalTestTool.class.st b/src/MCP-Tests-Resources/MCPExternalTestTool.class.st similarity index 93% rename from src/MCP-Tests/MCPExternalTestTool.class.st rename to src/MCP-Tests-Resources/MCPExternalTestTool.class.st index 3d2e6de..6eb0124 100644 --- a/src/MCP-Tests/MCPExternalTestTool.class.st +++ b/src/MCP-Tests-Resources/MCPExternalTestTool.class.st @@ -4,8 +4,8 @@ Concrete MCPTool subclass in a non-MCP package used to verify MCP contract tests Class { #name : 'MCPExternalTestTool', #superclass : 'MCPTool', - #category : 'MCP-Tests-Tools', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Tools', + #package : 'MCP-Tests-Resources', #tag : 'Tools' } diff --git a/src/MCP-Tests/MCPHaltingTestTool.class.st b/src/MCP-Tests-Resources/MCPHaltingTestTool.class.st similarity index 93% rename from src/MCP-Tests/MCPHaltingTestTool.class.st rename to src/MCP-Tests-Resources/MCPHaltingTestTool.class.st index d2b9731..9a0c42f 100644 --- a/src/MCP-Tests/MCPHaltingTestTool.class.st +++ b/src/MCP-Tests-Resources/MCPHaltingTestTool.class.st @@ -4,8 +4,8 @@ Test-only MCP tool that raises Halt so server-level tool-call error handling can Class { #name : 'MCPHaltingTestTool', #superclass : 'MCPTool', - #category : 'MCP-Tests-Tools', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Tools', + #package : 'MCP-Tests-Resources', #tag : 'Tools' } diff --git a/src/MCP-Tests/MCPRecordingLoadBaselineCommand.class.st b/src/MCP-Tests-Resources/MCPRecordingLoadBaselineCommand.class.st similarity index 90% rename from src/MCP-Tests/MCPRecordingLoadBaselineCommand.class.st rename to src/MCP-Tests-Resources/MCPRecordingLoadBaselineCommand.class.st index 2d0a098..6faab39 100644 --- a/src/MCP-Tests/MCPRecordingLoadBaselineCommand.class.st +++ b/src/MCP-Tests-Resources/MCPRecordingLoadBaselineCommand.class.st @@ -7,8 +7,8 @@ Class { #classInstVars : [ 'LastMetacello' ], - #category : 'MCP-Tests-Support', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Support', + #package : 'MCP-Tests-Resources', #tag : 'Support' } diff --git a/src/MCP-Tests/MCPRecordingLoadRepositoryCommand.class.st b/src/MCP-Tests-Resources/MCPRecordingLoadRepositoryCommand.class.st similarity index 82% rename from src/MCP-Tests/MCPRecordingLoadRepositoryCommand.class.st rename to src/MCP-Tests-Resources/MCPRecordingLoadRepositoryCommand.class.st index ab7f9d2..dd82cb3 100644 --- a/src/MCP-Tests/MCPRecordingLoadRepositoryCommand.class.st +++ b/src/MCP-Tests-Resources/MCPRecordingLoadRepositoryCommand.class.st @@ -4,8 +4,8 @@ Load-repository command test double that routes Metacello creation through MCPRe Class { #name : 'MCPRecordingLoadRepositoryCommand', #superclass : 'MCPLoadRepositoryCommand', - #category : 'MCP-Tests-Support', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Support', + #package : 'MCP-Tests-Resources', #tag : 'Support' } diff --git a/src/MCP-Tests/MCPRecordingMetacello.class.st b/src/MCP-Tests-Resources/MCPRecordingMetacello.class.st similarity index 97% rename from src/MCP-Tests/MCPRecordingMetacello.class.st rename to src/MCP-Tests-Resources/MCPRecordingMetacello.class.st index 19c7706..4a0ebaf 100644 --- a/src/MCP-Tests/MCPRecordingMetacello.class.st +++ b/src/MCP-Tests-Resources/MCPRecordingMetacello.class.st @@ -7,8 +7,8 @@ Class { #instVars : [ 'messages' ], - #category : 'MCP-Tests-Support', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Support', + #package : 'MCP-Tests-Resources', #tag : 'Support' } diff --git a/src/MCP-Tests-Resources/MCPRemoveClassProbeBase.class.st b/src/MCP-Tests-Resources/MCPRemoveClassProbeBase.class.st deleted file mode 100644 index 696b5db..0000000 --- a/src/MCP-Tests-Resources/MCPRemoveClassProbeBase.class.st +++ /dev/null @@ -1,9 +0,0 @@ -" -Base fixture class for class-removal tests that exercise subclass and sender safety. -" -Class { - #name : 'MCPRemoveClassProbeBase', - #superclass : 'Object', - #category : 'MCP-Tests-Resources', - #package : 'MCP-Tests-Resources' -} diff --git a/src/MCP-Tests-Resources/MCPRemoveClassProbeChild.class.st b/src/MCP-Tests-Resources/MCPRemoveClassProbeChild.class.st deleted file mode 100644 index 7df982e..0000000 --- a/src/MCP-Tests-Resources/MCPRemoveClassProbeChild.class.st +++ /dev/null @@ -1,9 +0,0 @@ -" -Child fixture class used by class-removal tests. -" -Class { - #name : 'MCPRemoveClassProbeChild', - #superclass : 'Object', - #category : 'MCP-Tests-Resources', - #package : 'MCP-Tests-Resources' -} diff --git a/src/MCP-Tests-Resources/MCPRemoveClassProbeEmpty.class.st b/src/MCP-Tests-Resources/MCPRemoveClassProbeEmpty.class.st deleted file mode 100644 index 36c4533..0000000 --- a/src/MCP-Tests-Resources/MCPRemoveClassProbeEmpty.class.st +++ /dev/null @@ -1,9 +0,0 @@ -" -Empty fixture class used to test safe class removal. -" -Class { - #name : 'MCPRemoveClassProbeEmpty', - #superclass : 'Object', - #category : 'MCP-Tests-Resources', - #package : 'MCP-Tests-Resources' -} diff --git a/src/MCP-Tests-Resources/MCPRemoveClassProbeLeaf.class.st b/src/MCP-Tests-Resources/MCPRemoveClassProbeLeaf.class.st deleted file mode 100644 index 288e313..0000000 --- a/src/MCP-Tests-Resources/MCPRemoveClassProbeLeaf.class.st +++ /dev/null @@ -1,9 +0,0 @@ -" -Leaf fixture class used by class-removal reparenting tests. -" -Class { - #name : 'MCPRemoveClassProbeLeaf', - #superclass : 'MCPRemoveClassProbeBase', - #category : 'MCP-Tests-Resources', - #package : 'MCP-Tests-Resources' -} diff --git a/src/MCP-Tests-Resources/MCPRemoveClassProbeMiddle.class.st b/src/MCP-Tests-Resources/MCPRemoveClassProbeMiddle.class.st deleted file mode 100644 index 42e548f..0000000 --- a/src/MCP-Tests-Resources/MCPRemoveClassProbeMiddle.class.st +++ /dev/null @@ -1,9 +0,0 @@ -" -Middle fixture class used by class-removal reparenting tests. -" -Class { - #name : 'MCPRemoveClassProbeMiddle', - #superclass : 'MCPRemoveClassProbeBase', - #category : 'MCP-Tests-Resources', - #package : 'MCP-Tests-Resources' -} diff --git a/src/MCP-Tests-Resources/MCPRemoveClassProbeReferenced.class.st b/src/MCP-Tests-Resources/MCPRemoveClassProbeReferenced.class.st deleted file mode 100644 index 2d8182c..0000000 --- a/src/MCP-Tests-Resources/MCPRemoveClassProbeReferenced.class.st +++ /dev/null @@ -1,9 +0,0 @@ -" -Fixture class used to test class-removal reference detection. -" -Class { - #name : 'MCPRemoveClassProbeReferenced', - #superclass : 'Object', - #category : 'MCP-Tests-Resources', - #package : 'MCP-Tests-Resources' -} diff --git a/src/MCP-Tests-Resources/MCPRemoveClassProbeSender.class.st b/src/MCP-Tests-Resources/MCPRemoveClassProbeSender.class.st deleted file mode 100644 index f1e034f..0000000 --- a/src/MCP-Tests-Resources/MCPRemoveClassProbeSender.class.st +++ /dev/null @@ -1,15 +0,0 @@ -" -Fixture class that sends references used by class-removal tests. -" -Class { - #name : 'MCPRemoveClassProbeSender', - #superclass : 'Object', - #category : 'MCP-Tests-Resources', - #package : 'MCP-Tests-Resources' -} - -{ #category : 'tests' } -MCPRemoveClassProbeSender >> useProbe [ - - ^ MCPRemoveClassProbeReferenced new -] diff --git a/src/MCP-Tests/MCPSaveImageRecordingServer.class.st b/src/MCP-Tests-Resources/MCPSaveImageRecordingServer.class.st similarity index 93% rename from src/MCP-Tests/MCPSaveImageRecordingServer.class.st rename to src/MCP-Tests-Resources/MCPSaveImageRecordingServer.class.st index 380f9a1..31952ac 100644 --- a/src/MCP-Tests/MCPSaveImageRecordingServer.class.st +++ b/src/MCP-Tests-Resources/MCPSaveImageRecordingServer.class.st @@ -7,8 +7,8 @@ Class { #instVars : [ 'didSaveImageSession' ], - #category : 'MCP-Tests-Internal', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Internal', + #package : 'MCP-Tests-Resources', #tag : 'Internal' } diff --git a/src/MCP-Tests/MCPTestGitRepositoryFixture.class.st b/src/MCP-Tests-Resources/MCPTestGitRepositoryFixture.class.st similarity index 96% rename from src/MCP-Tests/MCPTestGitRepositoryFixture.class.st rename to src/MCP-Tests-Resources/MCPTestGitRepositoryFixture.class.st index 6df09bb..e06f5dc 100644 --- a/src/MCP-Tests/MCPTestGitRepositoryFixture.class.st +++ b/src/MCP-Tests-Resources/MCPTestGitRepositoryFixture.class.st @@ -4,8 +4,8 @@ Test fixture helper for creating temporary file-backed Git repository metadata w Class { #name : 'MCPTestGitRepositoryFixture', #superclass : 'Object', - #category : 'MCP-Tests-Support', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Support', + #package : 'MCP-Tests-Resources', #tag : 'Support' } diff --git a/src/MCP-Tests/MCPTestIceRepository.class.st b/src/MCP-Tests-Resources/MCPTestIceRepository.class.st similarity index 98% rename from src/MCP-Tests/MCPTestIceRepository.class.st rename to src/MCP-Tests-Resources/MCPTestIceRepository.class.st index 3ce94c7..d2a832c 100644 --- a/src/MCP-Tests/MCPTestIceRepository.class.st +++ b/src/MCP-Tests-Resources/MCPTestIceRepository.class.st @@ -22,8 +22,8 @@ Class { 'upstreamRemoteName', 'upstreamBranchName' ], - #category : 'MCP-Tests-Internal', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Internal', + #package : 'MCP-Tests-Resources', #tag : 'Internal' } diff --git a/src/MCP-Tests/MCPTestRepositoryBranch.class.st b/src/MCP-Tests-Resources/MCPTestRepositoryBranch.class.st similarity index 94% rename from src/MCP-Tests/MCPTestRepositoryBranch.class.st rename to src/MCP-Tests-Resources/MCPTestRepositoryBranch.class.st index 90b6789..a892c43 100644 --- a/src/MCP-Tests/MCPTestRepositoryBranch.class.st +++ b/src/MCP-Tests-Resources/MCPTestRepositoryBranch.class.st @@ -7,8 +7,8 @@ Class { #instVars : [ 'repository' ], - #category : 'MCP-Tests-Internal', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Internal', + #package : 'MCP-Tests-Resources', #tag : 'Internal' } diff --git a/src/MCP-Tests/MCPTestRepositoryCommit.class.st b/src/MCP-Tests-Resources/MCPTestRepositoryCommit.class.st similarity index 88% rename from src/MCP-Tests/MCPTestRepositoryCommit.class.st rename to src/MCP-Tests-Resources/MCPTestRepositoryCommit.class.st index b5d2a8a..9acf09a 100644 --- a/src/MCP-Tests/MCPTestRepositoryCommit.class.st +++ b/src/MCP-Tests-Resources/MCPTestRepositoryCommit.class.st @@ -7,8 +7,8 @@ Class { #instVars : [ 'id' ], - #category : 'MCP-Tests-Internal', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Internal', + #package : 'MCP-Tests-Resources', #tag : 'Internal' } diff --git a/src/MCP-Tests/MCPTestRepositoryHead.class.st b/src/MCP-Tests-Resources/MCPTestRepositoryHead.class.st similarity index 91% rename from src/MCP-Tests/MCPTestRepositoryHead.class.st rename to src/MCP-Tests-Resources/MCPTestRepositoryHead.class.st index 98f12d6..0b20fc4 100644 --- a/src/MCP-Tests/MCPTestRepositoryHead.class.st +++ b/src/MCP-Tests-Resources/MCPTestRepositoryHead.class.st @@ -7,8 +7,8 @@ Class { #instVars : [ 'repository' ], - #category : 'MCP-Tests-Internal', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Internal', + #package : 'MCP-Tests-Resources', #tag : 'Internal' } diff --git a/src/MCP-Tests/MCPTestRepositoryModifiedPackage.class.st b/src/MCP-Tests-Resources/MCPTestRepositoryModifiedPackage.class.st similarity index 90% rename from src/MCP-Tests/MCPTestRepositoryModifiedPackage.class.st rename to src/MCP-Tests-Resources/MCPTestRepositoryModifiedPackage.class.st index 7ee17e3..a3dee0b 100644 --- a/src/MCP-Tests/MCPTestRepositoryModifiedPackage.class.st +++ b/src/MCP-Tests-Resources/MCPTestRepositoryModifiedPackage.class.st @@ -7,8 +7,8 @@ Class { #instVars : [ 'name' ], - #category : 'MCP-Tests-Internal', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Internal', + #package : 'MCP-Tests-Resources', #tag : 'Internal' } diff --git a/src/MCP-Tests/MCPTestRepositoryRemote.class.st b/src/MCP-Tests-Resources/MCPTestRepositoryRemote.class.st similarity index 94% rename from src/MCP-Tests/MCPTestRepositoryRemote.class.st rename to src/MCP-Tests-Resources/MCPTestRepositoryRemote.class.st index 2a3ee4c..13d7ca5 100644 --- a/src/MCP-Tests/MCPTestRepositoryRemote.class.st +++ b/src/MCP-Tests-Resources/MCPTestRepositoryRemote.class.st @@ -10,8 +10,8 @@ Class { 'shouldFail', 'url' ], - #category : 'MCP-Tests-Internal', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Internal', + #package : 'MCP-Tests-Resources', #tag : 'Internal' } diff --git a/src/MCP-Tests/MCPTestRepositoryUpstream.class.st b/src/MCP-Tests-Resources/MCPTestRepositoryUpstream.class.st similarity index 93% rename from src/MCP-Tests/MCPTestRepositoryUpstream.class.st rename to src/MCP-Tests-Resources/MCPTestRepositoryUpstream.class.st index 1d71740..3473346 100644 --- a/src/MCP-Tests/MCPTestRepositoryUpstream.class.st +++ b/src/MCP-Tests-Resources/MCPTestRepositoryUpstream.class.st @@ -8,8 +8,8 @@ Class { 'remoteName', 'branchName' ], - #category : 'MCP-Tests-Internal', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Internal', + #package : 'MCP-Tests-Resources', #tag : 'Internal' } diff --git a/src/MCP-Tests/MCPTestRepositoryWorkingCopy.class.st b/src/MCP-Tests-Resources/MCPTestRepositoryWorkingCopy.class.st similarity index 96% rename from src/MCP-Tests/MCPTestRepositoryWorkingCopy.class.st rename to src/MCP-Tests-Resources/MCPTestRepositoryWorkingCopy.class.st index 8d473f1..7b1d73a 100644 --- a/src/MCP-Tests/MCPTestRepositoryWorkingCopy.class.st +++ b/src/MCP-Tests-Resources/MCPTestRepositoryWorkingCopy.class.st @@ -10,8 +10,8 @@ Class { 'modifiedPackages', 'referenceCommit' ], - #category : 'MCP-Tests-Internal', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Internal', + #package : 'MCP-Tests-Resources', #tag : 'Internal' } diff --git a/src/MCP-Tests/MCPTestStaleRepository.class.st b/src/MCP-Tests-Resources/MCPTestStaleRepository.class.st similarity index 94% rename from src/MCP-Tests/MCPTestStaleRepository.class.st rename to src/MCP-Tests-Resources/MCPTestStaleRepository.class.st index 1305867..7a27e0d 100644 --- a/src/MCP-Tests/MCPTestStaleRepository.class.st +++ b/src/MCP-Tests-Resources/MCPTestStaleRepository.class.st @@ -10,8 +10,8 @@ Class { 'name', 'location' ], - #category : 'MCP-Tests-Repository doubles', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Repository doubles', + #package : 'MCP-Tests-Resources', #tag : 'Repository doubles' } diff --git a/src/MCP-Tests/MCPToolCoverageTarget.class.st b/src/MCP-Tests-Resources/MCPToolCoverageTarget.class.st similarity index 88% rename from src/MCP-Tests/MCPToolCoverageTarget.class.st rename to src/MCP-Tests-Resources/MCPToolCoverageTarget.class.st index f7fbd57..a4d7ccd 100644 --- a/src/MCP-Tests/MCPToolCoverageTarget.class.st +++ b/src/MCP-Tests-Resources/MCPToolCoverageTarget.class.st @@ -6,8 +6,8 @@ Its methods are intentionally simple and stable so coverage assertions can disti Class { #name : 'MCPToolCoverageTarget', #superclass : 'Object', - #category : 'MCP-Tests-Internal', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Internal', + #package : 'MCP-Tests-Resources', #tag : 'Internal' } diff --git a/src/MCP-Tests/MCPToolSearchWithoutPCRE2TestStub.class.st b/src/MCP-Tests-Resources/MCPToolSearchWithoutPCRE2TestStub.class.st similarity index 82% rename from src/MCP-Tests/MCPToolSearchWithoutPCRE2TestStub.class.st rename to src/MCP-Tests-Resources/MCPToolSearchWithoutPCRE2TestStub.class.st index 52dbdb7..bc1afc7 100644 --- a/src/MCP-Tests/MCPToolSearchWithoutPCRE2TestStub.class.st +++ b/src/MCP-Tests-Resources/MCPToolSearchWithoutPCRE2TestStub.class.st @@ -4,8 +4,8 @@ Test tool that models an unavailable native PCRE2 library. Class { #name : 'MCPToolSearchWithoutPCRE2TestStub', #superclass : 'MCPToolSearchMethodMetadata', - #category : 'MCP-Tests-Support', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Support', + #package : 'MCP-Tests-Resources', #tag : 'Support' } diff --git a/src/MCP-Tests/MCPUpdateDebugMethodTestTarget.class.st b/src/MCP-Tests-Resources/MCPUpdateDebugMethodTestTarget.class.st similarity index 78% rename from src/MCP-Tests/MCPUpdateDebugMethodTestTarget.class.st rename to src/MCP-Tests-Resources/MCPUpdateDebugMethodTestTarget.class.st index 7db34d6..62bac10 100644 --- a/src/MCP-Tests/MCPUpdateDebugMethodTestTarget.class.st +++ b/src/MCP-Tests-Resources/MCPUpdateDebugMethodTestTarget.class.st @@ -4,8 +4,8 @@ Fixture class updated by debugger method-update tests. Class { #name : 'MCPUpdateDebugMethodTestTarget', #superclass : 'Object', - #category : 'MCP-Tests-Tools', - #package : 'MCP-Tests', + #category : 'MCP-Tests-Resources-Tools', + #package : 'MCP-Tests-Resources', #tag : 'Tools' } diff --git a/src/MCP-Tests/MCPCompiledMethodInfoTest.class.st b/src/MCP-Tests/MCPCompiledMethodInfoTest.class.st index cac571b..bf6adcb 100644 --- a/src/MCP-Tests/MCPCompiledMethodInfoTest.class.st +++ b/src/MCP-Tests/MCPCompiledMethodInfoTest.class.st @@ -89,7 +89,7 @@ MCPCompiledMethodInfoTest >> targetClass [ { #category : 'private' } MCPCompiledMethodInfoTest >> targetClassName [ - ^ 'MCPCompiledMethodInfoTestTarget' + ^ MCPCompiledMethodInfoTestTarget name ] { #category : 'running' } diff --git a/src/MCP-Tests/MCPRenameClassSlotSelectorsTemp.class.st b/src/MCP-Tests/MCPRenameClassSlotSelectorsTemp.class.st deleted file mode 100644 index 1f0a634..0000000 --- a/src/MCP-Tests/MCPRenameClassSlotSelectorsTemp.class.st +++ /dev/null @@ -1,18 +0,0 @@ -" -Temporary fixture class used to verify slot selector rewrites during rename tests. -" -Class { - #name : 'MCPRenameClassSlotSelectorsTemp', - #superclass : 'Object', - #classInstVars : [ - 'alpha' - ], - #category : 'MCP-Tests', - #package : 'MCP-Tests' -} - -{ #category : 'accessing' } -MCPRenameClassSlotSelectorsTemp class >> probe [ - - ^ alpha -] diff --git a/src/MCP-Tests/MCPRenameClassSlotSlotKindTemp.class.st b/src/MCP-Tests/MCPRenameClassSlotSlotKindTemp.class.st deleted file mode 100644 index e70e37d..0000000 --- a/src/MCP-Tests/MCPRenameClassSlotSlotKindTemp.class.st +++ /dev/null @@ -1,12 +0,0 @@ -" -Temporary fixture class used to verify slot-kind handling during rename tests. -" -Class { - #name : 'MCPRenameClassSlotSlotKindTemp', - #superclass : 'Object', - #classInstVars : [ - 'alpha' - ], - #category : 'MCP-Tests', - #package : 'MCP-Tests' -} diff --git a/src/MCP-Tests/MCPToolClassMutationTest.class.st b/src/MCP-Tests/MCPToolClassMutationTest.class.st index 02ab439..0ef1dfa 100644 --- a/src/MCP-Tests/MCPToolClassMutationTest.class.st +++ b/src/MCP-Tests/MCPToolClassMutationTest.class.st @@ -224,7 +224,7 @@ MCPToolClassMutationTest >> originalMovePackageName [ { #category : 'private' } MCPToolClassMutationTest >> referenceClassName [ - ^ 'MCPToolRenameClassTestReference' + ^ MCPToolRenameClassTestReference name ] { #category : 'private' } @@ -294,7 +294,7 @@ MCPToolClassMutationTest >> setUp [ { #category : 'private' } MCPToolClassMutationTest >> subclassName [ - ^ 'MCPToolRenameClassTestSubclass' + ^ MCPToolRenameClassTestSubclass name ] { #category : 'running' } diff --git a/src/MCP-Tests/MCPToolMethodLookupTest.class.st b/src/MCP-Tests/MCPToolMethodLookupTest.class.st index af04231..5581cad 100644 --- a/src/MCP-Tests/MCPToolMethodLookupTest.class.st +++ b/src/MCP-Tests/MCPToolMethodLookupTest.class.st @@ -29,7 +29,7 @@ MCPToolMethodLookupTest >> entryForReference: aReference in: methods [ { #category : 'private' } MCPToolMethodLookupTest >> targetClassName [ - ^ 'MCPToolMethodSearchTestTarget' + ^ MCPToolMethodSearchTestTarget name ] { #category : 'tests' } diff --git a/src/MCP-Tests/MCPToolMethodSearchTest.class.st b/src/MCP-Tests/MCPToolMethodSearchTest.class.st index 9f295ce..1149481 100644 --- a/src/MCP-Tests/MCPToolMethodSearchTest.class.st +++ b/src/MCP-Tests/MCPToolMethodSearchTest.class.st @@ -29,7 +29,7 @@ MCPToolMethodSearchTest >> entryForReference: aReference in: methods [ { #category : 'private' } MCPToolMethodSearchTest >> targetClassName [ - ^ 'MCPToolMethodSearchTestTarget' + ^ MCPToolMethodSearchTestTarget name ] { #category : 'tests' } @@ -574,8 +574,7 @@ MCPToolMethodSearchTest >> testHierarchyClassNamesSelectHierarchyScope [ MCPToolMethodSearchTest >> testImageScopeReturnsInstanceAndClassImplementors [ | data result | - result := self callToolWith: - { (#selector -> 'sharedTarget') } asDictionary. + result := self callToolWith: { (#selector -> 'sharedTarget') } asDictionary. data := self dataFrom: result. self deny: (result at: #isError ifAbsent: [ false ]). self @@ -583,12 +582,10 @@ MCPToolMethodSearchTest >> testImageScopeReturnsInstanceAndClassImplementors [ equals: 'ok'. self assert: (data at: #methods) size equals: 2. self - entryForReference: - 'MCPToolMethodSearchReferenceFixture>>sharedTarget' + entryForReference: MCPToolMethodSearchReferenceFixture name , '>>sharedTarget' in: (data at: #methods). self - entryForReference: - 'MCPToolMethodSearchReferenceFixture class>>sharedTarget' + entryForReference: MCPToolMethodSearchReferenceFixture name , ' class>>sharedTarget' in: (data at: #methods) ] @@ -1046,26 +1043,15 @@ MCPToolMethodSearchTest >> testVariableReferenceReturnsClassSideVariableReferenc MCPToolMethodSearchTest >> testVariableReferenceReturnsInstanceVariableReferences [ | data result | - result := self - callToolNamed: 'method_variable_reference_search' - withArguments: { - (#variableName -> 'trackedSlot'). - (#side -> 'instance'). - (self searchScope: - { (#classes - -> #( 'MCPToolMethodSearchVariableReferenceTarget' )) }) } - asDictionary. + result := self callToolNamed: 'method_variable_reference_search' withArguments: { + (#variableName -> 'trackedSlot'). + (#side -> 'instance'). + (self searchScope: { (#classes -> { MCPToolMethodSearchVariableReferenceTarget name }) }) } asDictionary. data := self dataFrom: result. self deny: (result at: #isError ifAbsent: [ false ]). self assert: (data at: #methods) size equals: 2. - self - entryForReference: - 'MCPToolMethodSearchVariableReferenceTarget>>readTrackedSlot' - in: (data at: #methods). - self - entryForReference: - 'MCPToolMethodSearchVariableReferenceTarget>>writeTrackedSlot' - in: (data at: #methods) + self entryForReference: MCPToolMethodSearchVariableReferenceTarget name , '>>readTrackedSlot' in: (data at: #methods). + self entryForReference: MCPToolMethodSearchVariableReferenceTarget name , '>>writeTrackedSlot' in: (data at: #methods) ] { #category : 'tests' }