FFI: FFI-Tests-mt.41.mcz

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

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

Name: FFI-Tests-mt.41
Author: mt
Time: 16 May 2021, 2:31:15.844808 pm
UUID: adf2f023-0388-9345-b404-41adb308b192
Ancestors: FFI-Tests-mt.40

Adds a minor test to check whether we can read smaller integer types from space allocated for bigger integer types.

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

Item was removed:
- ----- Method: FFIAllocateTests>>test01AllocateAtomics (in category 'tests - atomics') -----
- test01AllocateAtomics
-
- self should: [(self allocate: ExternalType void)] raise: Error.
- self assert: false equals: (self allocate: ExternalType bool) value.
-
- self assert: 0 equals: (self allocate: ExternalType int8_t "sbyte") value.
- self assert: 0 equals: (self allocate: ExternalType uint8_t "byte") value.
-
- self assert: 0 equals: (self allocate: ExternalType uint16_t "ushort") value.
- self assert: 0 equals: (self allocate: ExternalType int16_t "short") value.
-
- self assert: 0 equals: (self allocate: ExternalType uint32_t "ulong") value.
- self assert: 0 equals: (self allocate: ExternalType int32_t "long") value.
-
- self assert: 0 equals: (self allocate: ExternalType uint64_t "ulonglong") value.
- self assert: 0 equals: (self allocate: ExternalType int64_t "longlong") value.
-
- self assert: Character null equals: (self allocate: ExternalType schar) value.
- self assert: Character null equals: (self allocate: ExternalType char) value.
-
- self assert: 0.0 equals: (self allocate: ExternalType float) value.
- self assert: 0.0 equals: (self allocate: ExternalType double) value.!

Item was added:
+ ----- Method: FFIAllocateTests>>test01AtomicsAllocated (in category 'tests - atomics') -----
+ test01AtomicsAllocated
+
+ self should: [(self allocate: ExternalType void)] raise: Error.
+ self assert: false equals: (self allocate: ExternalType bool) value.
+
+ self assert: 0 equals: (self allocate: ExternalType int8_t "sbyte") value.
+ self assert: 0 equals: (self allocate: ExternalType uint8_t "byte") value.
+
+ self assert: 0 equals: (self allocate: ExternalType uint16_t "ushort") value.
+ self assert: 0 equals: (self allocate: ExternalType int16_t "short") value.
+
+ self assert: 0 equals: (self allocate: ExternalType uint32_t "ulong") value.
+ self assert: 0 equals: (self allocate: ExternalType int32_t "long") value.
+
+ self assert: 0 equals: (self allocate: ExternalType uint64_t "ulonglong") value.
+ self assert: 0 equals: (self allocate: ExternalType int64_t "longlong") value.
+
+ self assert: Character null equals: (self allocate: ExternalType schar) value.
+ self assert: Character null equals: (self allocate: ExternalType char) value.
+
+ self assert: 0.0 equals: (self allocate: ExternalType float) value.
+ self assert: 0.0 equals: (self allocate: ExternalType double) value.!

Item was added:
+ ----- Method: FFIAllocateTests>>test02AtomicsReinterpreted (in category 'tests - atomics') -----
+ test02AtomicsReinterpreted
+
+ #(
+ int8_t int16_t minVal
+ int8_t int16_t maxVal
+ int16_t int32_t minVal
+ int16_t int32_t maxVal
+ int32_t int64_t minVal
+ int32_t int64_t maxVal
+ ) groupsDo: [:smallIntegerTypeName :bigIntegerTypeName :valueSelector |
+ | smallIntegerType bigIntegerType value data |
+ smallIntegerType := ExternalType typeNamed: smallIntegerTypeName.
+ bigIntegerType := ExternalType typeNamed: bigIntegerTypeName.
+ value := smallIntegerType perform: valueSelector.
+ data := self allocate: bigIntegerType.
+ data value: value.
+ data setContentType: smallIntegerType.
+ self assert: value equals: data value]!