Marcel Taeumel uploaded a new version of FFI-Tests to project FFI:
http://source.squeak.org/FFI/FFI-Tests-mt.38.mcz

==================== Summary ====================

Name: FFI-Tests-mt.38
Author: mt
Time: 16 May 2021, 7:50:25.29658 am
UUID: b32d1ecd-c367-cd43-907d-e0a00c06d6b5
Ancestors: FFI-Tests-mt.37

Complements FFI-Kernel-mt.151

=============== Diff against FFI-Tests-mt.37 ===============

Item was changed:
  ----- Method: FFIAllocateTests>>test04GlobalVariableInArray (in category 'tests') -----
  test04GlobalVariableInArray
  	"If you happen to have to address to a global variable you can use a type alias or just external data for it. See ExternalObject class >> #fromHandle:."
  	| global |
  	global := self allocate: ExternalType int32_t size: 1.
+ 	self assert: global isFFIArray.
- 	self assert: global isArray.
  	self assert: 0 equals: global value.
  	global value: 42.
  	self assert: 42 equals: global value.!

Item was changed:
  ----- Method: FFIAllocateTests>>test10ArrayClasses (in category 'tests - array') -----
  test10ArrayClasses
  	"For integer and float types, allocate arrays and check for specific array classes. Then construct a conventional byte array for an external data structure. A copy should also convert into a specific array class with the same contents."
  	
  	ExternalType useArrayClassesDuring: [
  		
  	ExternalType atomicTypes do: [:contentType |
  		(contentType isIntegerType
  			or: [contentType isFloatType]
  			or: [contentType isCharType]) ifTrue: [
  				| array arrayType data copy |
  				array := self allocate: contentType size: 5.
  				arrayType := array externalType.
  
+ 				self assert: array isFFIArray.
- 				self assert: array isArray.
  				self assert: 5 equals: array size.
  				self assert: array byteSize equals: arrayType byteSize.
  				
  				contentType = ExternalType signedChar ifFalse: [
  					self flag: #discuss. "mt: What is signedChar even for?"
  					self assert: contentType equals: array contentType].
  
  				self deny: array isNull.
  				self deny: (array isKindOf: ExternalData).
  				self assert: array equals: array getHandle.
  				
  				self shouldnt: [array at: 1 put: contentType allocate] raise: Error.
  				self shouldnt: [array zeroMemory] raise: Error.
  				self should: [array setContentType: ExternalType byte] raise: Error.
  				self should: [array setSize: 42] raise: Error.
  
  				data := ExternalData
  					fromHandle: (ByteArray new: arrayType byteSize)
  					type: arrayType.
  				copy := data copy. "From external data into raw-bits array."
  				self deny: array equals: data.			
  				self assert: array equals: copy. ]]].!

Item was changed:
  ----- Method: FFIPluginTests>>testArrayResultWithPoint (in category 'tests - arrays') -----
  testArrayResultWithPoint
  	"Test returning of pointers to arrays"
  	| pt1 pt2 pt3 |
  	pt1 := FFITestPoint4 new.
  	pt1 x: 1. pt1 y: 2. pt1 z: 3. pt1 w: 4.
  	pt2 := FFITestPoint4 new.
  	pt2 x: 5. pt2 y: 6. pt2 z: 7. pt2 w: 8.
  	pt3 := heapObject := FFITestLibrary ffiTestArrayResultWith: pt1 with: pt2.
  	
+ 	self assert: pt3 isFFIArray.
- 	self assert: pt3 isArray.
  	pt3 := pt3 value.
  	
  	self assert: pt3 x = 6.
  	self assert: pt3 y = 8.
  	self assert: pt3 z = 10.
  	self assert: pt3 w = 12.!

Item was changed:
  ----- Method: FFIPluginTests>>testArrayResultWithString (in category 'tests - arrays') -----
  testArrayResultWithString
  	"Note that the result does not have to be free'd because the FFITestLibrary is just passing along a Smalltalkg string. I think."
  
  	| string result |
  	string := 'Hello Squeak!!'.
  	result := FFITestLibrary ffiTestArrayResultWithString: string.
+ 	self assert: result isFFIArray.
- 	self assert: result isArray.
  	ExternalData allowDetectForUnknownSizeDuring: [
  		self assert: string equals: result fromCString].!