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

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

Name: FFI-Tests-mt.30
Author: mt
Time: 7 May 2021, 6:52:54.95064 pm
UUID: 9e06096e-b5c4-5848-abb5-b98200c4d9f4
Ancestors: FFI-Tests-mt.29

More tests =)

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

Item was changed:
  ----- Method: ExternalTypeTests>>testAllocateAtomicsExternal (in category 'tests') -----
  testAllocateAtomicsExternal
+ 	"Note that #allocateExternal for atomics does not need an extra #free. See #allocateExternal."
  	
  	self should: [ExternalType void allocateExternal] raise: Error.
  	self assert: false equals: ExternalType bool allocateExternal.
  
  	self assert: 0 equals: ExternalType int8_t "sbyte" allocateExternal.
  	self assert: 0 equals: ExternalType uint8_t "byte" allocateExternal.
  
  	self assert: 0 equals: ExternalType uint16_t "ushort" allocateExternal.
  	self assert: 0 equals: ExternalType int16_t "short" allocateExternal.
  
  	self assert: 0 equals: ExternalType uint32_t "ulong" allocateExternal.
  	self assert: 0 equals: ExternalType int32_t "long" allocateExternal.
  
  	self assert: 0 equals: ExternalType uint64_t "ulonglong" allocateExternal.
  	self assert: 0 equals: ExternalType int64_t "longlong" allocateExternal.
  
  	self assert: Character null equals: ExternalType schar allocateExternal.
  	self assert: Character null equals: ExternalType char allocateExternal.
  
  	self assert: 0.0 equals: ExternalType float allocateExternal.
  	self assert: 0.0 equals: ExternalType double allocateExternal.!

Item was added:
+ ----- Method: ExternalTypeTests>>testAtomicTypeRange (in category 'tests') -----
+ testAtomicTypeRange
+ 
+ 	self should: [ExternalType void minVal] raise: Error.
+ 	self should: [ExternalType void maxVal] raise: Error.
+ 
+ 	self should: [ExternalType bool minVal] raise: Error.
+ 	self should: [ExternalType bool maxVal] raise: Error.
+ 	
+ 	self assert: 0 equals: ExternalType uint8_t "byte" minVal.
+ 	self assert: 255 equals: ExternalType uint8_t "byte" maxVal.	
+ 	self assert: -128 equals: ExternalType int8_t "sbyte" minVal.
+ 	self assert: 127 equals: ExternalType int8_t "sbyte" maxVal.
+ 
+ 	self assert: 0 equals: ExternalType uint16_t "ushort" minVal.
+ 	self assert: 65535 equals: ExternalType uint16_t "ushort" maxVal.	
+ 	self assert: -32768 equals: ExternalType int16_t "short" minVal.
+ 	self assert: 32767 equals: ExternalType int16_t "short" maxVal.	
+ 
+ 	self assert: 0 equals: ExternalType uint32_t "ulong" minVal.
+ 	self assert: 4294967295 equals: ExternalType uint32_t "ulong" maxVal.	
+ 	self assert: -2147483648 equals: ExternalType int32_t "long" minVal.
+ 	self assert: 2147483647 equals: ExternalType int32_t "long" maxVal.	
+ 
+ 	self assert: 0 equals: ExternalType uint64_t "ulonglong" minVal.
+ 	self assert: 18446744073709551615 equals: ExternalType uint64_t "ulonglong" maxVal.	
+ 	self assert: -9223372036854775808 equals: ExternalType int64_t "longlong" minVal.
+ 	self assert: 9223372036854775807 equals: ExternalType int64_t "longlong" maxVal.	
+ 
+ 	self assert: Character null equals: ExternalType char "unsignedChar" minVal.
+ 	self assert: (Character value: 255) equals: ExternalType char "unsignedChar" maxVal.	
+ 	self assert: (Character value: 128) equals: ExternalType signedChar "schar" minVal.
+ 	self assert: (Character value: 127) equals: ExternalType signedChar "schar" maxVal.	
+ 
+ 	self assert: -3.4028234663852886e38 equals: ExternalType float minVal.
+ 	self assert: 3.4028234663852886e38 equals: ExternalType float maxVal.	 
+ 	self assert: -1.7976931348623157e308 equals: ExternalType double minVal. 
+ 	self assert: 1.7976931348623157e308 equals: ExternalType double maxVal.	 !

Item was added:
+ ----- Method: ExternalTypeTests>>testPrecisionFloatTypes (in category 'tests') -----
+ testPrecisionFloatTypes
+ 
+ 	self
+ 		assert: ExternalType float isSinglePrecision;
+ 		assert: ExternalType double
+ 		equals: ExternalType float asDoublePrecision;
+ 		assert: ExternalType double isDoublePrecision;
+ 		assert: ExternalType float
+ 		equals: ExternalType float asSinglePrecision.!

Item was added:
+ ----- Method: ExternalTypeTests>>testPrecisionIntegerTypes (in category 'tests') -----
+ testPrecisionIntegerTypes
+ 
+ 	AtomicTypeNames do: [:typeName |
+ 		| type |
+ 		type := ExternalType atomicTypeNamed: typeName.
+ 		type isIntegerType ifTrue: [
+ 			self
+ 				should: [type isSinglePrecision]
+ 				raise: Error;
+ 				should: [type isDoublePrecision]
+ 				raise: Error]].!