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

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

Name: FFI-Tests-mt.51
Author: mt
Time: 27 May 2021, 2:26:45.499609 pm
UUID: 14a23269-4dbc-7b4d-a13c-791d62924be1
Ancestors: FFI-Tests-mt.50

Complements FFI-Kernel-mt.176 and FFI-Kernel-mt.177

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

Item was added:
+ ----- Method: ExternalTypeTests>>testAtomicTypeBySpec (in category 'tests - atomic types') -----
+ testAtomicTypeBySpec
+ 	"Check whether the lookup of atomic types will yield the singleton instances of those types."
+ 
+ 	ExternalType atomicTypes do: [:type |
+ 		self
+ 			assert: type
+ 			identical: (ExternalType lookupType: type typeName);
+ 			assert: type
+ 			identical: (ExternalType lookupType: type)].!

Item was added:
+ ----- Method: ExternalTypeTests>>testPointerByShortcut (in category 'tests - pointer types') -----
+ testPointerByShortcut
+ 
+ 	| pointer |
+ 	pointer := ExternalType void asPointerType.
+ 	self
+ 		assert: pointer
+ 		identical: ExternalType pointer;
+ 		assert: pointer
+ 		identical: (ExternalType typeNamed: 'pointer');
+ 		assert: pointer
+ 		identical: (ExternalType lookupType: pointer);
+ 		assert: pointer
+ 		identical: (ExternalType lookupType: #pointer).!

Item was added:
+ ----- Method: ExternalTypeTests>>testStructTypeBySpec (in category 'tests - struct types') -----
+ testStructTypeBySpec
+ 
+ 	self classesForStructures do: [:structClass | | type |
+ 		type := structClass externalType.
+ 		self
+ 			assert: type
+ 			identical: (ExternalType lookupType: structClass)]!

Item was changed:
  ----- Method: FFIAllocateTests>>lookupType: (in category 'running') -----
  lookupType: structClassOrTypeNameOrType
  
+ 	^ ExternalType lookupType: structClassOrTypeNameOrType!
- 	^ structClassOrTypeNameOrType isString
- 		ifTrue: [ExternalType typeNamed: structClassOrTypeNameOrType]
- 		ifFalse: [structClassOrTypeNameOrType isBehavior
- 			ifTrue: [structClassOrTypeNameOrType externalType]
- 			ifFalse: [structClassOrTypeNameOrType]]!

Item was added:
+ ----- Method: FFIAllocateTests>>test06AliasForArrayAccess (in category 'tests - type alias') -----
+ test06AliasForArrayAccess
+ 
+ 	| array |
+ 	array := self allocate: FFITestAliasForInt32Array.
+ 	self assert: FFITestAliasForInt32Array identical: array class.
+ 	
+ 	self assert: 0 equals: (array at: 5).
+ 	array at: 5 put: 42.
+ 	self assert: 42 equals: (array at: 5).!