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

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

Name: FFI-Tests-mt.34
Author: mt
Time: 15 May 2021, 2:57:58.142282 pm
UUID: 88a07f6a-4b02-d042-a0e5-e6e3613789a7
Ancestors: FFI-Tests-mt.33

More tests :-) And #test03GlobalVariable actually fails to meet the requirements when allocated externally.

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

Item was changed:
  ----- Method: FFIAllocateExternalTests>>expectedFailures (in category 'failures') -----
  expectedFailures
  
+ 	^ (super expectedFailures
+ 	
+ 	copyWithoutAll: #(
- 	^ super expectedFailures copyWithoutAll: #(
  		test04LinkedList "Storing pointers works fine."
+ 	)), #(
+ 		test03GlobalVariable "Atomic values in an alias container will be fetched immediately. Hmm..."
  	)!

Item was added:
+ ----- Method: FFIAllocateExternalTests>>test03GlobalVariable (in category 'tests') -----
+ test03GlobalVariable
+ 	"If you happen to have to address to a global variable you can use a type alias."
+ 	| global |
+ 	global := self allocate: FFITestAliasForInt32.
+ 	self assert: global getHandle isExternalAddress.
+ 	self assert: global externalType isPointerType.
+ 	self assert: 0 equals: global value.
+ 	global value: 42.
+ 	self assert: 42 equals: global value.!

Item was changed:
  ----- Method: FFIAllocateTests>>test03GlobalVariable (in category 'tests') -----
  test03GlobalVariable
  	"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: FFITestAliasForInt32.
  	self assert: 0 equals: global value.
  	global value: 42.
  	self assert: 42 equals: global value.!

Item was changed:
  ----- Method: FFIAllocateTests>>test05ArrayFromCString (in category 'tests - array') -----
  test05ArrayFromCString
  
  	| data |
  	
  	ExternalData allowDetectForUnknownSizeDuring: [
  		data := self allocate: ExternalType char size: 4.
+ 		data setContentType: ExternalType byte.
+ 		data setSize: nil.
- 		data setType: ExternalType byte.
  		self assert: data size isNil.
  		
  		#[65 66 67 0] withIndexDo: [:byte :index | data at: index put: byte].
+ 		data setContentType: ExternalType char.	
- 		data setType: ExternalType char.	
  		self assert: 'ABC' equals: data fromCString.
  		
  		data := self allocate: ExternalType char size: 9.
  		data setType: ExternalType byte.
  		self assert: data size isNil.
  		
  		#[65 66 67 0 68 69 70 0 0] withIndexDo: [:byte :index | data at: index put: byte].
  		data setType: ExternalType char.
  		self assert:#('ABC' 'DEF') equals: data fromCStrings].!

Item was added:
+ ----- Method: FFIAllocateTests>>test07ArraySetSize (in category 'tests - array') -----
+ test07ArraySetSize
+ 
+ 	| data |
+ 	data := self allocate: ExternalType byte size: 10.
+ 	
+ 	data setSize: 2. "limit access"
+ 	self assert: ExternalType byte identical: data contentType.
+ 	self assert: 2 equals: data size.
+ 	self shouldnt: [data at: 2] raise: Error.
+ 	self should: [data at: 3] raise: Error.
+ 	
+ 	data setSize: 5. "move limit"
+ 	self assert: ExternalType byte identical: data contentType.
+ 	self assert: 5 equals: data size.
+ 	self shouldnt: [data at: 5] raise: Error.
+ 	self should: [data at: 6] raise: Error.
+ 
+ 	data setSize: nil. "ignore size"
+ 	self assert: ExternalType byte identical: data contentType.
+ 	self shouldnt: [data at: 3] raise: Error.
+ 	self shouldnt: [data at: 6] raise: Error.
+ 	self shouldnt: [data at: 10] raise: Error.!

Item was added:
+ ----- Method: FFIAllocateTests>>test08ArraySetContentType (in category 'tests - array') -----
+ test08ArraySetContentType
+ 
+ 	| data |
+ 	data := self allocate: ExternalType byte size: 1.
+ 	data at: 1 put: 65.
+ 	
+ 	self assert: 65 equals: data first.
+ 	data setContentType: ExternalType char.
+ 	self assert: $A equals: data first.!

Item was added:
+ ----- Method: FFIPluginTests>>testReturnPointerAlias (in category 'tests - type alias') -----
+ testReturnPointerAlias
+ 	"Check the handle of a returned alias-to-pointer type. Should be an external address."
+ 	
+ 	| 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 ffiTestAliasForPointerResult: pt1 with: pt2.
+ 	
+ 	self assert: pt3 getHandle isExternalAddress.
+ 	self assert: pt3 externalType isPointerType.
+ 	
+ 	self assert: pt3 x = 6.
+ 	self assert: pt3 y = 8.
+ 	self assert: pt3 z = 10.
+ 	self assert: pt3 w = 12.!

Item was added:
+ ExternalTypeAlias subclass: #FFITestAliasForPoint4Pointer
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'FFI-Tests-Fixtures'!

Item was added:
+ ----- Method: FFITestAliasForPoint4Pointer class>>originalTypeName (in category 'type alias') -----
+ originalTypeName
+ 
+ 	^ 'FFITestPoint4*'!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestAliasForPointerResult:with: (in category 'experiments') -----
+ ffiTestAliasForPointerResult: pt1 with: pt2
+ 	"Allocates the result. Needs to be free'd after calling."
+ 	<cdecl: FFITestAliasForPoint4Pointer 'ffiTestPointers' (FFITestPoint4* FFITestPoint4*) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestArrayResultWith:with: (in category 'experiments') -----
- ----- Method: FFITestLibrary class>>ffiTestArrayResultWith:with: (in category 'mocks') -----
  ffiTestArrayResultWith: pt1 with: pt2
  	"Allocates the result. Needs to be free'd after calling."
  	<cdecl: FFITestPoint4[] 'ffiTestPointers' (FFITestPoint4* FFITestPoint4*) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestArrayResultWithString: (in category 'experiments') -----
- ----- Method: FFITestLibrary class>>ffiTestArrayResultWithString: (in category 'mocks') -----
  ffiTestArrayResultWithString: aString
  	"
  	FFITestLibrary ffiTestArrayResultWithString: 'Hello Squeak'.
  	"
  	<cdecl: char[] 'ffiPrintString' (char *) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestArrayType (in category 'experiments') -----
- ----- Method: FFITestLibrary class>>ffiTestArrayType (in category 'mocks') -----
  ffiTestArrayType
  	"Just a mock. Not sure whether there will ever be call signatures using array types ... isn't this pass-by-pointer anyway?"
  	
  	<cdecl: char[5] 'ffiTestArrayType' (float[5] FFITestPoint2[10] int[1]) module: 'SqueakFFIPrims'>
  	^ self externalCallFailed !

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestVoid (in category 'experiments') -----
- ----- Method: FFITestLibrary class>>ffiTestVoid (in category 'mocks') -----
  ffiTestVoid
  	"Note that ffiTestVoid does exist in the module."
  	<cdecl: void 'ffiTestVoid' (void) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestVoidPointer (in category 'experiments') -----
- ----- Method: FFITestLibrary class>>ffiTestVoidPointer (in category 'mocks') -----
  ffiTestVoidPointer
  	"Note that ffiTestVoidPointer does exist in the module."
  	<cdecl: void* 'ffiTestVoidPointer' (void*) module:'SqueakFFIPrims'>
  	^self externalCallFailed!