From 80e5889b1d44a2b054b7a05162819a9ffd3a81cf Mon Sep 17 00:00:00 2001 From: Patrik Date: Wed, 8 Apr 2026 16:50:03 +0200 Subject: [PATCH 1/2] Class shouldn't have category starting with * that belongs to extension --- .../GRGemStonePlatform.class/instance/doTransaction..st | 2 +- .../GRGemStonePlatform.class/instance/thisContext.st | 2 +- .../GRGemStonePlatformTest.class/instance/testIsGemStone.st | 2 +- .../GRGemStonePlatformTest.class/instance/testIsGemStone.st | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st index bef36fcb..1ca22e12 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st @@ -1,4 +1,4 @@ -*grease-gemstone-core +transactions doTransaction: aBlock "Evaluate aBlock in a transaction. Return true if the transaction succeeds and false if the transaction fails. diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st index 50e2a5b0..4de9489b 100644 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st @@ -1,3 +1,3 @@ -*grease-gemstone-core +processes thisContext ^ GsContext fromLevel: 3 \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st index c3aa2463..e9fce035 100644 --- a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st +++ b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st @@ -1,4 +1,4 @@ -*Grease-Tests-Pharo-Core +tests testIsGemStone self assert: GRPlatform current isGemStone. self deny: GRPlatform current isPharo. diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st index c3aa2463..e9fce035 100644 --- a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st +++ b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st @@ -1,4 +1,4 @@ -*Grease-Tests-Pharo-Core +tests testIsGemStone self assert: GRPlatform current isGemStone. self deny: GRPlatform current isPharo. From abe61d4db2d35eb255fb732c07f233540ace4a21 Mon Sep 17 00:00:00 2001 From: Patrik Date: Wed, 8 Apr 2026 14:40:36 +0000 Subject: [PATCH 2/2] Adding assert(s) alias for GemStone to allow running Pharo tests on GS --- .../TestAsserter.extension/instance/assert.identicalTo..st | 4 ++++ .../TestAsserter.extension/instance/deny.identicalTo..st | 5 +++++ .../TestAsserter.extension/properties.json | 2 ++ 3 files changed, 11 insertions(+) create mode 100644 repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/assert.identicalTo..st create mode 100644 repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/deny.identicalTo..st create mode 100644 repository/Grease-GemStone-Core.package/TestAsserter.extension/properties.json diff --git a/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/assert.identicalTo..st b/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/assert.identicalTo..st new file mode 100644 index 00000000..c35dccec --- /dev/null +++ b/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/assert.identicalTo..st @@ -0,0 +1,4 @@ +*grease-gemstone-core +assert: anObject identicalTo: otherObj + + self assert: anObject identical: otherObj \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/deny.identicalTo..st b/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/deny.identicalTo..st new file mode 100644 index 00000000..e516bae0 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/deny.identicalTo..st @@ -0,0 +1,5 @@ +*grease-gemstone-core +deny: anObject identicalTo: anotherObject + self + deny: anObject == anotherObject + description: anObject printString, ' is *not* identical to ', anotherObject printString. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/TestAsserter.extension/properties.json b/repository/Grease-GemStone-Core.package/TestAsserter.extension/properties.json new file mode 100644 index 00000000..10c0c4d0 --- /dev/null +++ b/repository/Grease-GemStone-Core.package/TestAsserter.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "TestAsserter" }