Add raw bits array tests to kernel tests and support them in Sandbox

LinqLover · Mar 17, 2022 · bdc5ff9 · bdc5ff9
1 parent 5ade818
commit bdc5ff9
Show file tree

Hide file tree

Showing 6 changed files with 19 additions and 3 deletions.
diff --git a/...tudio-Sandbox.package/Sandbox2.class/instance/context.doNamedPrimitiveIn.for.withArgs..st b/...tudio-Sandbox.package/Sandbox2.class/instance/context.doNamedPrimitiveIn.for.withArgs..st
@@ -30,9 +30,12 @@ context: aContext doNamedPrimitiveIn: aCompiledMethod for: rcvr withArgs: argume
 					writableObject]].
 			[#CroquetPlugin] -> ["allowed"].
 			[#FilePlugin] -> [^ self context: aContext activateOperationForbidden: 'FilePlugin not available in simulation'].
+			[#FloatArrayPlugin] -> [^ self context: aContext primitiveFailTokenFor: nil "use image implementation"].
+			[#Float64ArrayPlugin] -> [^ self context: aContext primitiveFailTokenFor: nil "use image implementation"].
 			[#LargeIntegers] -> ["allowed"].
 			[#MiscPrimitivePlugin] -> [^ self context: aContext primitiveFailTokenFor: nil "use image implementation"].
 			[#SimulationStudio] -> ["allowed"].
+			[#UUIDPlugin] -> ["allowed"].
 			[nil] -> [
 				(#('primitiveHighResClock' 'primitiveUtcWithOffset' 'primitiveUtcWithOffset') includes: primitiveName)
 					ifTrue: ["allowed"]

diff --git a/packages/SimulationStudio-Sandbox.package/Sandbox2.class/methodProperties.json b/packages/SimulationStudio-Sandbox.package/Sandbox2.class/methodProperties.json
@@ -14,7 +14,7 @@
 		"basicEvaluate:" : "ct 11/13/2021 16:12",
 		"context:activateOperationForbidden:" : "ct 11/13/2021 01:04",
 		"context:canBeImmutable:" : "ct 11/12/2021 23:54",
-		"context:doNamedPrimitiveIn:for:withArgs:" : "ct 12/27/2021 00:22",
+		"context:doNamedPrimitiveIn:for:withArgs:" : "ct 3/17/2022 19:07",
 		"context:doPrimitive:method:receiver:args:do:" : "ct 12/29/2021 17:41",
 		"context:doPrimitiveHash:receiver:args:" : "ct 11/12/2021 23:56",
 		"context:doPrimitiveNew:receiver:args:" : "ct 11/12/2021 23:55",

diff --git a/...nStudio-Sandbox.package/SandboxContext.class/instance/doNamedPrimitiveIn.for.withArgs..st b/...nStudio-Sandbox.package/SandboxContext.class/instance/doNamedPrimitiveIn.for.withArgs..st
@@ -30,9 +30,12 @@ doNamedPrimitiveIn: aCompiledMethod for: rcvr withArgs: arguments
 					writableObject]].
 			[#CroquetPlugin] -> ["allowed"].
 			[#FilePlugin] -> [^ self activateOperationForbidden: 'FilePlugin not available in simulation'].
+			[#FloatArrayPlugin] -> ["allowed"].
+			[#Float64ArrayPlugin] -> ["allowed"].
 			[#LargeIntegers] -> ["allowed"].
 			[#MiscPrimitivePlugin] -> [^ self class primitiveFailTokenFor: nil "use image implementation"].
 			[#SimulationStudio] -> ["allowed"].
+			[#UUIDPlugin] -> ["allowed"].
 			[nil] -> [
 				(#('primitiveHighResClock' 'primitiveUtcWithOffset' 'primitiveUtcWithOffset') includes: primitiveName)
 					ifTrue: ["allowed"]

diff --git a/packages/SimulationStudio-Sandbox.package/SandboxContext.class/methodProperties.json b/packages/SimulationStudio-Sandbox.package/SandboxContext.class/methodProperties.json
@@ -5,7 +5,7 @@
 		"access:indirectors:" : "ct 3/20/2021 23:35",
 		"activateOperationForbidden:" : "ct 3/3/2021 17:55",
 		"canBeImmutable:" : "ct 3/22/2021 23:47",
-		"doNamedPrimitiveIn:for:withArgs:" : "ct 12/27/2021 00:46",
+		"doNamedPrimitiveIn:for:withArgs:" : "ct 3/17/2022 19:08",
 		"doPrimitive:method:receiver:args:" : "ct 12/29/2021 17:40",
 		"doPrimitiveHash:receiver:args:" : "ct 3/22/2021 18:51",
 		"doPrimitiveNew:receiver:args:" : "ct 3/4/2021 20:16",

diff --git a/packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/class/testGroups.st b/packages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/class/testGroups.st
@@ -2,17 +2,26 @@ accessing
 testGroups
 
 	^ Dictionary new
+		at: #ArrayTest put: #suite;
 		at: #BecomeTest put: #suite;
 		at: #BlockClosureTest put: #(testNew testOnce testMoreThanOnce testMoreThanOnceForEqualBlocks testRunSimulated testSetUp);
+		at: #ByteArrayTest put: {#-.
+			#testPlatformIndependentIntegerAccessorsAtBitBorders. #testPlatformIndependentIntegerAccessorsWithRandomValues "large"};
 		at: #ContextTest put: {#-.
 			#testRestart flag: #workaround. "uses Delay/control primitives which raises a Warning during simulation since Kernel-ct.1381 (inbox)"
 			#testRunUntilErrorOrReturnFromError. #testRunUntilErrorOrReturnFromNoError. "Context>>runUntilErrorOrReturnFrom: does not turn off simulation again"
 			#testSetUp flag: #workaround. "uses Compiler/Semaphore control primitive which raises a Warning during simulation since Kernel-ct.1381 (inbox)"};
 		at: self put: super allTestSelectors;
+		at: #DoubleByteArrayTest put: {#-.
+			#testAllPossibleValues "large"};
+		at: #DoubleWordArrayTest put: #suite;
 		at: #ExceptionTests put: {#-.
 			#testNoTimeout flag: #workaround "uses Delay/control primitives which raises a Warning during simulation since Kernel-ct.1381 (inbox)"};
+		at: #FloatArrayTest put: #suite;
+		at: #Float64ArrayTest put: #suite;
 		at: #FloatTest put: {#-.
 			#testCompiledConstants. #testFloatRounded. #testFloatTruncated. #testMaxExactInteger. "large"};
+		at: #IntegerArrayTest put: #suite;
 		at: #MirrorPrimitiveTests put: #suite;
 		at: #ObjectTest put: {#testBecome
 			"#testBecomeForward" flag: #upstreamBug. "See: http://forum.world.st/testBecomeForward-fails-when-simulated-in-a-rush-td5127737.html"};
@@ -21,4 +30,5 @@ testGroups
 		at: #TrueTest put: #suite;
 		at: #UndefinedObjectTest put: #suite;
 		at: #WriteBarrierTest put: #suite;
+		at: #WordArrayTest put: #suite;
 		yourself
diff --git a/...ages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/methodProperties.json b/...ages/SimulationStudio-Tests-Base.package/SimulationKernelTest.class/methodProperties.json
@@ -5,7 +5,7 @@
 		"forClass:selector:" : "ct 12/26/2021 20:45",
 		"isAbstract" : "ct 3/14/2021 16:10",
 		"shouldInheritSelectors" : "ct 3/5/2021 16:44",
-		"testGroups" : "ct 2/9/2022 01:32",
+		"testGroups" : "ct 3/17/2022 17:40",
 		"testSelectorForClass:selector:" : "ct 12/26/2021 20:45",
 		"testSelectors" : "ct 3/5/2021 17:14",
 		"testSelectorsFromGroups:" : "ct 1/7/2022 18:56",