FFI: FFI-Tests-mt.35.mcz

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

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

Name: FFI-Tests-mt.35
Author: mt
Time: 15 May 2021, 5:13:37.884141 pm
UUID: da76b19f-4787-5641-92cb-4a80f44054b8
Ancestors: FFI-Tests-mt.34

Complements FFI-Kernel-mt.148

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

Item was removed:
- ----- Method: FFIAllocateTests>>test05ArrayFromCString (in category 'tests - array') -----
- test05ArrayFromCString
-
- | data |
-
- ExternalData allowDetectForUnknownSizeDuring: [
- data := self allocate: ExternalType char size: 4.
- data setContentType: ExternalType byte.
- data setSize: nil.
- self assert: data size isNil.
-
- #[65 66 67 0] withIndexDo: [:byte :index | data at: index put: byte].
- data setContentType: ExternalType char.
- self assert: 'ABC' equals: data fromCString.
-
- data := self allocate: ExternalType char size: 9.
- data setType: ExternalType byte.
- self assert: data size isNil.
-
- #[65 66 67 0 68 69 70 0 0] withIndexDo: [:byte :index | data at: index put: byte].
- data setType: ExternalType char.
- self assert:#('ABC' 'DEF') equals: data fromCStrings].!

Item was added:
+ ----- Method: FFIAllocateTests>>test05ArrayReadWriteCString (in category 'tests - array') -----
+ test05ArrayReadWriteCString
+
+ | array string |
+ string := 'Hello Squeak!!'.
+ self assert: string isByteString.
+
+ ExternalData allowDetectForUnknownSizeDuring: [
+ array := self allocate: ExternalType byte size: 0.
+ self should: [array toCString: string] raise: Error. "Wrong type"
+ array := self allocate: ExternalType char size: string size.
+ self should: [array toCString: string] raise: Error. "Wrong size"
+
+ array := self allocate: ExternalType char size: string size + 1.
+ array toCString: string.
+ self assert: array size isNil. "It's NUL-terminated now."
+ self assert: string equals: array fromCString.
+
+ array := self allocate: ExternalType string size: string size + 1.
+ self should: [array toCString: string] raise: Error. "Use 'char' for allocation."].!

Item was added:
+ ----- Method: FFIAllocateTests>>test09ArrayReadCStringList (in category 'tests - array') -----
+ test09ArrayReadCStringList
+
+ | data |
+ ExternalData allowDetectForUnknownSizeDuring: [
+ data := self allocate: ExternalType char size: 9.
+ data setType: ExternalType byte.
+ self assert: data size isNil.
+
+ #[65 66 67 0 68 69 70 0 0] withIndexDo: [:byte :index | data at: index put: byte].
+ data setType: ExternalType char.
+ self assert:#('ABC' 'DEF') equals: data fromCStrings].!