From edd9b010d3107ec883f8367491b61cfa4be63942 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 4 Feb 2024 16:07:21 +0100 Subject: [PATCH] class packages are important in the tests, as indicated by the failures that otherwise result --- .../instance/testReferencesNotPortableClass.st | 1 + .../instance/testSubclassesNotPortableClass.st | 1 + .../GRReSlimeTest.class/instance/testUsesNotPortableClass.st | 1 + 3 files changed, 3 insertions(+) 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 ea1908c7..0b0c9235 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 @@ -3,6 +3,7 @@ testReferencesNotPortableClass | class | class := self defineSubClassOf: #GRObject. + class package: 'SomeCategory' tag: ''. 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 c113779d..a58675a4 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 @@ -3,6 +3,7 @@ testSubclassesNotPortableClass | class | class := self defineSubClassOf: #Mutex. + class package: 'SomeCategory' tag: ''. self assertRule: GRSubclassesNotPortableClassRule matches: { class } \ 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 965d58ad..2bdf3356 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 @@ -3,6 +3,7 @@ testUsesNotPortableClass | class | class := self defineSubClassOf: #GRObject. + class package: 'SomeCategory' tag: ''. self compile: 'invalid ^ Semaphore new' in: class. self compile: 'valid ^ GRObject new' in: class. self