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

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

Name: FFI-PoolsTests-mt.10
Author: mt
Time: 12 June 2020, 7:45:27.681226 pm
UUID: 1edfe0bd-67f6-1e4d-ba6a-78e01548af1d
Ancestors: FFI-PoolsTests-mt.9

Complements FFI-Kernel-mt.105

=============== Diff against FFI-PoolsTests-mt.9 ===============

Item was changed:
  ----- Method: FFIExternalSharedPoolTest>>testInheritance (in category 'tests') -----
  testInheritance
  	| sharedPool definitions defaultDefinition emptyDefinition overrideDefinition |
  
  	sharedPool := FFITestInheritanceExternalSharedPool.
  	definitions := self resolvedDefinitionsFor: sharedPool.
  	self assert: definitions size equals: 3.
  
  	defaultDefinition := definitions detect: [:each | each isDefault].
  	emptyDefinition := definitions detect: [:each | each name = #empty].
  	overrideDefinition := definitions detect: [:each | each name = #override].
  	self
  		assertIsDefaultDefinition: defaultDefinition
  		for: sharedPool.
  
  	self
  		deny: emptyDefinition isDefault;
  		assert: emptyDefinition inheritsFrom isNil;
  		assert: emptyDefinition cCompiler equals: defaultDefinition cCompiler;
  		assert: emptyDefinition cFlags equals: defaultDefinition cFlags;
  		assert: emptyDefinition cHeaders equals: defaultDefinition cHeaders;
  		assert: emptyDefinition platform equals: defaultDefinition platform;
  		assert: emptyDefinition poolReadWriterClass equals: defaultDefinition poolReadWriterClass;
  		assert: emptyDefinition variablesAndTypes equals: defaultDefinition variablesAndTypes.
  
  	self
  		deny: overrideDefinition isDefault;
  		assert: overrideDefinition inheritsFrom equals: #empty;
  		assert: overrideDefinition cCompiler equals: 'testCompiler';
  		assert: overrideDefinition cFlags equals: 'testFlags';
  		assert: overrideDefinition cHeaders
  			equals: #('<testHeader.h>' '"testLocalHeader.h"' '<testImplicitGlobalHeader.h>');
  		assert: overrideDefinition platform equals: self newTestPlatform;
  		assert: overrideDefinition variablesAndTypes
+ 			equals: (Dictionary withAll: {#One -> ((ExternalType typeNamed: 'float') -> Float). #Two -> ((ExternalType typeNamed: 'long') -> Integer)}).!
- 			equals: (Dictionary withAll: {#One -> ((ExternalType atomicTypeNamed: 'float') -> Float). #Two -> ((ExternalType atomicTypeNamed: 'long') -> Integer)}).!