MACRO(TEST command expected)
  IF("x${result}" STREQUAL "x${expected}")
    MESSAGE("TEST \"${command}\" success: \"${result}\" expected: \"${expected}\"")
  ELSE("x${result}" STREQUAL "x${expected}")
    MESSAGE(SEND_ERROR "TEST \"${command}\" failed: \"${result}\" expected: \"${expected}\"")
  ENDIF("x${result}" STREQUAL "x${expected}")
ENDMACRO(TEST command expected)

SET(mylist andy bill ken brad)

LIST(LENGTH mylist result)
TEST("LENGTH mylist result" "4")
LIST(LENGTH "mylist" result)
TEST("LENGTH \"mylist\" result" "4")

LIST(GET mylist 3 2 1 0 result)
TEST("GET mylist 3 2 1 0 result" "brad;ken;bill;andy")

LIST(GET mylist 0 item0)
LIST(GET mylist 1 item1)
LIST(GET mylist 2 item2)
LIST(GET mylist 3 item3)
SET(result "${item3}" "${item0}" "${item1}" "${item2}")
TEST("GET individual 3 2 1 0 result" "brad;andy;bill;ken")

LIST(GET mylist -1 -2 -3 -4 result)
TEST("GET mylist -1 -2 -3 -4 result" "brad;ken;bill;andy")

LIST(GET mylist -1 2 -3 0 result)
TEST("GET mylist -1 2 -3 0 ${result}" "brad;ken;bill;andy")

SET(result andy)
LIST(SET result brad)
TEST("SET result brad" "andy;brad")

SET(result andy brad)
LIST(INSERT result -1 bill ken)
TEST("INSERT result -1 bill ken" "andy;bill;ken;brad")

SET(result andy bill brad ken bob)
LIST(REMOVE result bob)
TEST("REMOVE result bob" "andy;bill;brad;ken")

SET(result andy bill bob brad ken peter)
LIST(REMOVE result peter bob)
TEST("REMOVE result peter bob" "andy;bill;brad;ken")

SET(result andy bill bob brad ken peter)
LIST(REMOVE_ITEM result 2 -1)
TEST("REMOVE_ITEM result 2 -1" "andy;bill;brad;ken")