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

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

Name: FFI-Tests-mt.31
Author: mt
Time: 8 May 2021, 7:58:33.518404 pm
UUID: 7593fdcc-becc-bc4c-99f6-2387234347c2
Ancestors: FFI-Tests-mt.30

Adds test for a linked list in external memory.

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

Item was added:
+ ----- Method: ExternalStructureTests>>test03LinkedList (in category 'tests - external structure') -----
+ test03LinkedList
+ 
+ 	| link1 link2 link3 |
+ [	link1 := FFITestLink allocateExternal.
+ 	link2 := FFITestLink allocateExternal.
+ 	link3 := FFITestLink allocateExternal.
+ 	link1 next: link2. link2 prev: link1.
+ 	link2 next: link3. link3 prev: link2.
+ 	link3 next: link1. link1 prev: link3.
+ 	self assert: link1 next = link2.
+ 	self assert: link2 next = link3.
+ 	self assert: link3 next = link1.
+ 
+ 	self assert: link3 prev = link2.
+ 	self assert: link2 prev = link1.
+ 	self assert: link1 prev = link3.	
+ 	
+ ] ensure: [
+ 	link1 free.
+ 	link2 free.
+ 	link3 free.
+ ]!

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

Item was added:
+ ----- Method: FFITestLink class>>fields (in category 'field definition') -----
+ fields
+ 	"
+ 	self defineFields.
+ 	"
+ 	^ #(
+ 		(prev 'FFITestLink*')
+ 		(next 'FFITestLink*')
+ 	)!

Item was added:
+ ----- Method: FFITestLink>>= (in category 'comparing') -----
+ = other
+ 
+ 	(other isKindOf: ExternalStructure) ifFalse: [^ false].
+ 	self externalType = other externalType ifFalse: [^ false].
+ 	^ other getHandle = self getHandle!

Item was added:
+ ----- Method: FFITestLink>>hash (in category 'comparing') -----
+ hash
+ 
+ 	^ ExternalObject hash bitXor: self getHandle hash!