FFI: FFI-PoolsTests-mt.10.mcz

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)}).!