Examples/test-suite/lua/char_strings_runme.lua - master - niceSOFT/swig

Examples/test-suite/lua/char_strings_runme.lua
78 строк3 KB
William S Fulton
Add char *& string typemaps to all languages and char_strings runme parity
09 июл 2026, 23:55
09 июл 2026, 23:553dda830
require("char_strings")

local CPLUSPLUS_MSG = "A message from the deep dark world of C++, where anything is possible."
local OTHERLAND_MSG = "Little message from the safe world."

local count = 5

-- Each set function takes (string, number) and returns true when the string
-- received matches OTHERLAND_MSG concatenated with number.
local function test_set(setter)
  for i = 0, count - 1 do
    assert(setter(OTHERLAND_MSG .. i, i) == true)
  end
end

local function test_pingpong(pp)
  for i = 0, count - 1 do
    local msg = OTHERLAND_MSG .. i
    assert(pp(msg) == msg)
  end
end

-- get functions
for i = 0, count - 1 do
  assert(char_strings.GetCharHeapString() == CPLUSPLUS_MSG)
  char_strings.DeleteCharHeapString()
end
for i = 0, count - 1 do
  assert(char_strings.GetConstCharProgramCodeString() == CPLUSPLUS_MSG)
  char_strings.DeleteCharHeapString()
end
assert(char_strings.GetCharStaticString() == CPLUSPLUS_MSG)
assert(char_strings.GetCharStaticStringFixed() == CPLUSPLUS_MSG)
assert(char_strings.GetConstCharStaticStringFixed() == CPLUSPLUS_MSG)

-- set functions
test_set(char_strings.SetCharHeapString)
test_set(char_strings.SetCharStaticString)
test_set(char_strings.SetCharArrayStaticString)
test_set(char_strings.SetConstCharHeapString)
test_set(char_strings.SetConstCharStaticString)
test_set(char_strings.SetConstCharArrayStaticString)
test_set(char_strings.SetCharConstStaticString)
test_set(char_strings.SetConstCharConstStaticString)
test_set(char_strings.SetConstCharTypedefString)

-- get set function
test_pingpong(char_strings.CharPingPong)
test_pingpong(char_strings.CharArrayPingPong)
test_pingpong(char_strings.CharArrayDimsPingPong)

-- variables: settable globals - set then read back
for i = 0, count - 1 do
  local msg = OTHERLAND_MSG .. i
  char_strings.global_char = msg
  assert(char_strings.global_char == msg)
end
for i = 0, count - 1 do
  local msg = OTHERLAND_MSG .. i
  char_strings.global_char_array1 = msg
  assert(char_strings.global_char_array1 == msg)
end
for i = 0, count - 1 do
  local msg = OTHERLAND_MSG .. i
  char_strings.global_char_array2 = msg
  assert(char_strings.global_char_array2 == msg)
end

-- variables: read-only const globals
assert(char_strings.global_const_char == CPLUSPLUS_MSG)
assert(char_strings.global_const_char_array1 == CPLUSPLUS_MSG)
assert(char_strings.global_const_char_array2 == CPLUSPLUS_MSG)

-- char *& tests
assert(char_strings.GetCharPointerRef() == CPLUSPLUS_MSG)
test_set(char_strings.SetCharPointerRef)
assert(char_strings.GetConstCharPointerRef() == CPLUSPLUS_MSG)
test_set(char_strings.SetConstCharPointerRef)