diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index 831cdc8f..9d5a0f3e 100644 --- a/.github/workflows/ci.yml +++ b/.github/workflows/ci.yml @@ -21,8 +21,6 @@ jobs: - uses: actions/checkout@v3 - uses: hpi-swa/setup-smalltalkCI@v1 with: - smalltalkCI-source: 'jbrichau/smalltalkCI' - smalltalkCI-branch: 'fix-issue-623' smalltalk-image: ${{ matrix.smalltalk }} - name: Run tests run: smalltalkci -s ${{ matrix.smalltalk }} diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiBooleansRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiBooleansRule.class/properties.json index 4cab4c2d..208c1ba2 100644 --- a/repository/Grease-Pharo110-Slime.package/GRAnsiBooleansRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRAnsiBooleansRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeTransformationRule", + "super" : "GRReSlimeTransformationRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/properties.json index 2517609b..d5fe699b 100644 --- a/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeTransformationRule", + "super" : "GRReSlimeTransformationRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiCollectionsRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiCollectionsRule.class/properties.json index 1261c334..b6b9f5c5 100644 --- a/repository/Grease-Pharo110-Slime.package/GRAnsiCollectionsRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRAnsiCollectionsRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeTransformationRule", + "super" : "GRReSlimeTransformationRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiConditionalsRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiConditionalsRule.class/properties.json index 542f8001..c9539d38 100644 --- a/repository/Grease-Pharo110-Slime.package/GRAnsiConditionalsRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRAnsiConditionalsRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeTransformationRule", + "super" : "GRReSlimeTransformationRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiConvertorRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiConvertorRule.class/properties.json index 0069fdf8..0e6e4cb4 100644 --- a/repository/Grease-Pharo110-Slime.package/GRAnsiConvertorRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRAnsiConvertorRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeTransformationRule", + "super" : "GRReSlimeTransformationRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiExceptionsRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiExceptionsRule.class/properties.json index 6bd99b1d..51375683 100644 --- a/repository/Grease-Pharo110-Slime.package/GRAnsiExceptionsRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRAnsiExceptionsRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeTransformationRule", + "super" : "GRReSlimeTransformationRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiStreamsRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiStreamsRule.class/properties.json index d367dbf7..2539d9c8 100644 --- a/repository/Grease-Pharo110-Slime.package/GRAnsiStreamsRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRAnsiStreamsRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeTransformationRule", + "super" : "GRReSlimeTransformationRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/properties.json index 39506d7e..f544f2e7 100644 --- a/repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeTransformationRule", + "super" : "GRReSlimeTransformationRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json index e15fd361..67a42ffc 100644 --- a/repository/Grease-Pharo110-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeBlockLintRule", + "super" : "GRReSlimeBlockLintRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json index 724ee707..87feb3c9 100644 --- a/repository/Grease-Pharo110-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeParseTreeLintRule", + "super" : "GRReSlimeParseTreeLintRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRInvalidObjectInitializationRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRInvalidObjectInitializationRule.class/properties.json index 37adfef6..4cbd7077 100644 --- a/repository/Grease-Pharo110-Slime.package/GRInvalidObjectInitializationRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRInvalidObjectInitializationRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeBlockLintRule", + "super" : "GRReSlimeBlockLintRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRNonPortableMessageRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRNonPortableMessageRule.class/properties.json index e1e9857f..95a60d91 100644 --- a/repository/Grease-Pharo110-Slime.package/GRNonPortableMessageRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRNonPortableMessageRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeBlockLintRule", + "super" : "GRReSlimeBlockLintRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRNotPortableCollectionsRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRNotPortableCollectionsRule.class/properties.json index 33f1f490..2a5a777c 100644 --- a/repository/Grease-Pharo110-Slime.package/GRNotPortableCollectionsRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRNotPortableCollectionsRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeTransformationRule", + "super" : "GRReSlimeTransformationRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRObjectInRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRObjectInRule.class/properties.json index c4168e75..96ac6c53 100644 --- a/repository/Grease-Pharo110-Slime.package/GRObjectInRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRObjectInRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "pmm 9/12/2009 10:37", - "super" : "GRSlimeTransformationRule", + "super" : "GRReSlimeTransformationRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRReSlimeBlockLintRule.class/README.md b/repository/Grease-Pharo110-Slime.package/GRReSlimeBlockLintRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo110-Slime.package/GRReSlimeBlockLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime.package/GRReSlimeBlockLintRule.class/class/isVisible.st new file mode 100644 index 00000000..0e3a239e --- /dev/null +++ b/repository/Grease-Pharo110-Slime.package/GRReSlimeBlockLintRule.class/class/isVisible.st @@ -0,0 +1,4 @@ +testing +isVisible + + ^ self name ~= #GRReSlimeBlockLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime.package/GRReSlimeBlockLintRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRReSlimeBlockLintRule.class/properties.json new file mode 100644 index 00000000..806ebfd3 --- /dev/null +++ b/repository/Grease-Pharo110-Slime.package/GRReSlimeBlockLintRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "JohanBrichau 3/11/2024 21:53", + "super" : "ReAbstractRule", + "category" : "Grease-Pharo110-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRReSlimeBlockLintRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime.package/GRReSlimeParseTreeLintRule.class/README.md b/repository/Grease-Pharo110-Slime.package/GRReSlimeParseTreeLintRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo110-Slime.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st new file mode 100644 index 00000000..2d2913fb --- /dev/null +++ b/repository/Grease-Pharo110-Slime.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st @@ -0,0 +1,4 @@ +testing +isVisible + + ^ self name ~= #GRReSlimeParseTreeLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime.package/GRReSlimeParseTreeLintRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRReSlimeParseTreeLintRule.class/properties.json new file mode 100644 index 00000000..e5d01d93 --- /dev/null +++ b/repository/Grease-Pharo110-Slime.package/GRReSlimeParseTreeLintRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "ReNodeMatchRule", + "category" : "Grease-Pharo110-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRReSlimeParseTreeLintRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime.package/GRReSlimeTransformationRule.class/README.md b/repository/Grease-Pharo110-Slime.package/GRReSlimeTransformationRule.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/repository/Grease-Pharo110-Slime.package/GRReSlimeTransformationRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime.package/GRReSlimeTransformationRule.class/class/isVisible.st new file mode 100644 index 00000000..b84d2a50 --- /dev/null +++ b/repository/Grease-Pharo110-Slime.package/GRReSlimeTransformationRule.class/class/isVisible.st @@ -0,0 +1,4 @@ +testing +isVisible + + ^ self name ~= #GRReSlimeTransformationRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime.package/GRReSlimeTransformationRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRReSlimeTransformationRule.class/properties.json new file mode 100644 index 00000000..eaa3dd3e --- /dev/null +++ b/repository/Grease-Pharo110-Slime.package/GRReSlimeTransformationRule.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "ReNodeRewriteRule", + "category" : "Grease-Pharo110-Slime", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "GRReSlimeTransformationRule", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeBlockLintRule.class/README.md b/repository/Grease-Pharo110-Slime.package/GRSlimeBlockLintRule.class/README.md index e69de29b..acb02dfd 100644 --- a/repository/Grease-Pharo110-Slime.package/GRSlimeBlockLintRule.class/README.md +++ b/repository/Grease-Pharo110-Slime.package/GRSlimeBlockLintRule.class/README.md @@ -0,0 +1 @@ +For compatibility for versions of Seaside older than 3.5.6 \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeBlockLintRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRSlimeBlockLintRule.class/properties.json index e1389bfa..667ba1a9 100644 --- a/repository/Grease-Pharo110-Slime.package/GRSlimeBlockLintRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRSlimeBlockLintRule.class/properties.json @@ -1,6 +1,6 @@ { - "commentStamp" : "", - "super" : "ReAbstractRule", + "commentStamp" : "JohanBrichau 3/11/2024 21:54", + "super" : "RBBlockLintRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeParseTreeLintRule.class/README.md b/repository/Grease-Pharo110-Slime.package/GRSlimeParseTreeLintRule.class/README.md index e69de29b..acb02dfd 100644 --- a/repository/Grease-Pharo110-Slime.package/GRSlimeParseTreeLintRule.class/README.md +++ b/repository/Grease-Pharo110-Slime.package/GRSlimeParseTreeLintRule.class/README.md @@ -0,0 +1 @@ +For compatibility for versions of Seaside older than 3.5.6 \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeParseTreeLintRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRSlimeParseTreeLintRule.class/properties.json index 28ab8124..eab60df9 100644 --- a/repository/Grease-Pharo110-Slime.package/GRSlimeParseTreeLintRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRSlimeParseTreeLintRule.class/properties.json @@ -1,6 +1,6 @@ { - "commentStamp" : "", - "super" : "ReNodeMatchRule", + "commentStamp" : "JohanBrichau 3/11/2024 21:54", + "super" : "RBParseTreeLintRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeTransformationRule.class/README.md b/repository/Grease-Pharo110-Slime.package/GRSlimeTransformationRule.class/README.md index e69de29b..acb02dfd 100644 --- a/repository/Grease-Pharo110-Slime.package/GRSlimeTransformationRule.class/README.md +++ b/repository/Grease-Pharo110-Slime.package/GRSlimeTransformationRule.class/README.md @@ -0,0 +1 @@ +For compatibility for versions of Seaside older than 3.5.6 \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime.package/GRSlimeTransformationRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRSlimeTransformationRule.class/properties.json index df276035..d528ef91 100644 --- a/repository/Grease-Pharo110-Slime.package/GRSlimeTransformationRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRSlimeTransformationRule.class/properties.json @@ -1,6 +1,6 @@ { - "commentStamp" : "", - "super" : "ReNodeRewriteRule", + "commentStamp" : "JohanBrichau 3/11/2024 21:54", + "super" : "RBTransformationRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st b/repository/Grease-Pharo110-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st deleted file mode 100644 index bab892c3..00000000 --- a/repository/Grease-Pharo110-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st +++ /dev/null @@ -1,7 +0,0 @@ -running -checkMethod: aContext - aContext methodClass isMeta - ifTrue: [ ^ self ]. - (aContext methodClass allSuperclasses includes:(Smalltalk at: #TestCase)) - ifFalse: [ ^ self ]. - ^ super checkMethod: aContext \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime.package/GRTestAssertionsRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRTestAssertionsRule.class/properties.json index 572f670a..cd52efa5 100644 --- a/repository/Grease-Pharo110-Slime.package/GRTestAssertionsRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRTestAssertionsRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "pmm 8/17/2014 11:24", - "super" : "GRSlimeTransformationRule", + "super" : "GRReSlimeTransformationRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json index a30a05da..70456891 100644 --- a/repository/Grease-Pharo110-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeParseTreeLintRule", + "super" : "GRReSlimeParseTreeLintRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRUsesClassForHashRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRUsesClassForHashRule.class/properties.json index 063aef8f..c679f3eb 100644 --- a/repository/Grease-Pharo110-Slime.package/GRUsesClassForHashRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRUsesClassForHashRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeParseTreeLintRule", + "super" : "GRReSlimeParseTreeLintRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Pharo110-Slime.package/GRUsesNotPortableClassRule.class/properties.json b/repository/Grease-Pharo110-Slime.package/GRUsesNotPortableClassRule.class/properties.json index 128f88b8..2965264e 100644 --- a/repository/Grease-Pharo110-Slime.package/GRUsesNotPortableClassRule.class/properties.json +++ b/repository/Grease-Pharo110-Slime.package/GRUsesNotPortableClassRule.class/properties.json @@ -1,6 +1,6 @@ { "commentStamp" : "", - "super" : "GRSlimeBlockLintRule", + "super" : "GRReSlimeBlockLintRule", "category" : "Grease-Pharo110-Slime", "classinstvars" : [ ], "pools" : [ ], diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st index 112d896b..8fe4388c 100644 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st @@ -11,5 +11,5 @@ testCompileIntoClassified classified: protocol. [ self assert: (self class selectors includes: selector). - selectors := self class organization listAtCategoryNamed: protocol. + selectors := self class selectorsInProtocol: protocol. self assert: selectors = (Array with: selector) ] ensure: [ self class removeSelector: selector ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st index 8f89143a..7bce97a3 100644 --- a/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st +++ b/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st @@ -1 +1 @@ -SystemOrganization addCategory: #'Grease-Tests-Pharo-Core'! +self packageOrganizer ensurePackage: #'Grease-Tests-Pharo-Core' withTags: #()! diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf..st index 92da2de7..fdcf43d7 100644 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf..st +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf..st @@ -1,20 +1,4 @@ accessing-code defineSubClassOf: aSuperSymbol - | class | - class := SystemVersion current major >= 12 - ifTrue: [ - factory make: [ :aBuilder | - aBuilder - superclass: (Smalltalk at: aSuperSymbol); - package: self category ] ] - ifFalse: [ - factory - newSubclassOf: (Smalltalk at: aSuperSymbol) - instanceVariableNames: '' - classVariableNames: 'classVarsString' - category: self category ]. - environment - addClass: class; - addClass: class classSide. - ^ class \ No newline at end of file + ^ self defineSubClassOf: aSuperSymbol inPackage: self category \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf.inPackage..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf.inPackage..st new file mode 100644 index 00000000..9ad6f16a --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf.inPackage..st @@ -0,0 +1,20 @@ +accessing-code +defineSubClassOf: aSuperSymbol inPackage: packageName + + | class | + class := SystemVersion current major >= 12 + ifTrue: [ + factory make: [ :aBuilder | + aBuilder + superclass: (Smalltalk at: aSuperSymbol); + package: packageName ] ] + ifFalse: [ + factory + newSubclassOf: (Smalltalk at: aSuperSymbol) + instanceVariableNames: '' + classVariableNames: 'classVarsString' + category: packageName ]. + environment + addClass: class; + addClass: class classSide. + ^ class \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/rules.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/rules.st index 13c0034b..46d95352 100644 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/rules.st +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/rules.st @@ -2,9 +2,9 @@ running rules ^ (OrderedCollection new - addAll: GRSlimeBlockLintRule allSubclasses; - addAll: GRSlimeParseTreeLintRule allSubclasses; - addAll: GRSlimeTransformationRule allSubclasses; + addAll: GRReSlimeBlockLintRule allSubclasses; + addAll: GRReSlimeParseTreeLintRule allSubclasses; + addAll: GRReSlimeTransformationRule allSubclasses; add: ReMultiplePeriodsTerminatingStatementRule; add: ReMethodSignaturePeriodRule; yourself) reject: #isAbstract \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testReferencesNotPortableClass.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testReferencesNotPortableClass.st index 6c1b5b23..a3070f80 100644 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testReferencesNotPortableClass.st +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testReferencesNotPortableClass.st @@ -2,8 +2,7 @@ tests-block testReferencesNotPortableClass | class | - class := self defineSubClassOf: #GRObject. - class category: 'SomeCategory'. + class := self defineSubClassOf: #GRObject inPackage: 'SomeCategory'. self compile: 'invalid ^ Semaphore new' in: class. self compile: 'valid ^ GRObject new' in: class. self diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testSubclassesNotPortableClass.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testSubclassesNotPortableClass.st index 2ced3881..c86dc173 100644 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testSubclassesNotPortableClass.st +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testSubclassesNotPortableClass.st @@ -2,8 +2,7 @@ tests-block testSubclassesNotPortableClass | class | - class := self defineSubClassOf: #Mutex. - class category: 'SomeCategory'. + class := self defineSubClassOf: #Mutex inPackage: 'SomeCategory'. self assertRule: GRSubclassesNotPortableClassRule matches: { class } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule.st index c4044a19..1fecfedc 100644 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule.st +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule.st @@ -6,5 +6,4 @@ testTestCaseFailRule self compile: 'testMethod self fail' in: class. self runTransformation: GRTestAssertionsRule - changes: #( - 'testMethod self assert: false' ) \ No newline at end of file + changes: #( 'testMethod self assert: false' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesNotPortableClass.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesNotPortableClass.st index 5699c982..f65d00a4 100644 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesNotPortableClass.st +++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesNotPortableClass.st @@ -2,8 +2,7 @@ tests-block testUsesNotPortableClass | class | - class := self defineSubClassOf: #GRObject. - class category: 'SomeCategory'. + class := self defineSubClassOf: #GRObject inPackage: 'SomeCategory'. self compile: 'invalid ^ Semaphore new' in: class. self compile: 'valid ^ GRObject new' in: class. self