Marcel Taeumel uploaded a new version of FFI-Tests to project FFI: http://source.squeak.org/FFI/FFI-Tests-mt.65.mcz
==================== Summary ====================
Name: FFI-Tests-mt.65 Author: mt Time: 16 September 2021, 11:49:09.677662 am UUID: 44aeda08-104d-f844-add1-43d453c70bf3 Ancestors: FFI-Tests-mt.64
Complements FFI-Pools-mt.39 and FFI-Kernel-mt.220
=============== Diff against FFI-Tests-mt.64 ===============
Item was changed: ----- Method: ExternalTypeTests>>testIntegerTypesAsCharTypes (in category 'tests - atomic integer types') ----- testIntegerTypesAsCharTypes
#( int8_t int16_t int32_t ) do: [:typeName | | integerType | integerType := ExternalType typeNamed: typeName. self + deny: integerType isCharType; - assert: integerType isSigned; assert: integerType asCharType isCharType; assert: integerType byteSize equals: integerType asCharType byteSize; - assert: integerType isSigned equals: integerType asCharType isSigned; + deny: integerType asUnsigned isCharType; - assert: integerType asUnsigned isUnsigned; assert: integerType asUnsigned asCharType isCharType; + assert: integerType asUnsigned byteSize equals: integerType asUnsigned asCharType byteSize].! - assert: integerType asUnsigned byteSize equals: integerType asUnsigned asCharType byteSize; - assert: integerType asUnsigned isUnsigned equals: integerType asUnsigned asCharType isUnsigned].!
Item was changed: ----- Method: FFIPluginTests>>expectedFailures (in category 'failures') ----- expectedFailures
^ #( testIntAliasCallReturnIntAlias "return-type coercing failed - check referentClass notNil missing?" testIntCallReturnIntAlias "return-type coercing failed - check referentClass notNil missing?" testMixedDoublesAndLongsSum "more than 15 method args needed" + testSumStructSslf4 "some overflow issue, maybe expected" + testPrintWideString "no support for WideString arguments yet")! - testSumStructSslf4 "some overflow issue, maybe expected")!
Item was added: + ----- Method: FFIPluginTests>>testPrintWideString (in category 'tests - other') ----- + testPrintWideString + + | string result | + string := 'Hello World!!', (Character value: 1024). + result := self invoke: 'ffiPrintWideString' with: string. + self assert: result = string.!
Item was added: + ----- Method: FFITestLibrary class>>ffiPrintWideString: (in category 'other') ----- + ffiPrintWideString: aString + " + FFITestLibrary ffiPrintString: 'Hello' + " + <cdecl: uchar32_t* 'ffiPrintString' (uchar32_t *) module:'SqueakFFIPrims'> + ^self externalCallFailed!