module __VMTEST.assign_ops

use com.livecode.foreign

foreign handler MCValueGetTypeInfo(in pValue as Pointer) returns Pointer binds to "<builtin>"

foreign handler MCTypeInfoIsForeign(in pTypeInfo as Pointer) returns CBool binds to "<builtin>"

foreign handler MCArrayFetchValue(in pArray as Array, in pCaseSensitive as CBool, in pKey as Pointer, out rValue as Pointer) returns CBool binds to "<builtin>"

foreign handler MCNameCreate(in pString as String, out rName as Pointer) returns CBool binds to "<builtin>"

foreign handler MCProperListFetchElementAtIndex(in pList as List, in pIndex as LCUIndex) returns Pointer binds to "<builtin>"

unsafe handler __IsForeignValue(in pValue as Pointer) returns Boolean

return MCTypeInfoIsForeign(MCValueGetTypeInfo(pValue))

end handler

public handler TestAssignArrayOpForeignBridge()

unsafe

variable tVar as CBool

put false into tVar

variable tKey as Pointer

MCNameCreate("key", tKey)

variable tValue as Pointer

MCArrayFetchValue({"key": tVar}, false, tKey, tValue)

test "foreign value bridged to optional any in array assign" \

when not __IsForeignValue(tValue)

end unsafe

end handler

public handler TestAssignListOpForeignBridge()

unsafe

variable tVar as CBool

put false into tVar

variable tValue as Pointer

put MCProperListFetchElementAtIndex([tVar], 1) into tValue

test "foreign value bridged to optional any in list assign" \

when not __IsForeignValue(tValue)

end unsafe

end handler

end module