diff options
| author | Marc Chevrier <marc.chevrier@gmail.com> | 2023-06-16 13:09:57 (GMT) |
|---|---|---|
| committer | Marc Chevrier <marc.chevrier@gmail.com> | 2023-06-16 13:14:03 (GMT) |
| commit | 1cfaed0684e7e26687a3a0a607925456dc656c57 (patch) | |
| tree | a4a11f521e29e6bcfeed94c21d3daaa39d5d5e6f /Tests | |
| parent | 8a99acd289e405c42e4b129cc6cf413fffd88769 (diff) | |
| download | CMake-1cfaed0684e7e26687a3a0a607925456dc656c57.zip CMake-1cfaed0684e7e26687a3a0a607925456dc656c57.tar.gz CMake-1cfaed0684e7e26687a3a0a607925456dc656c57.tar.bz2 | |
list(): restore SUBLIST behavior
Fixes: #25002
Diffstat (limited to 'Tests')
| -rw-r--r-- | Tests/RunCMake/list/SUBLIST.cmake | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/Tests/RunCMake/list/SUBLIST.cmake b/Tests/RunCMake/list/SUBLIST.cmake index fd15c28..6a33add 100644 --- a/Tests/RunCMake/list/SUBLIST.cmake +++ b/Tests/RunCMake/list/SUBLIST.cmake @@ -44,3 +44,54 @@ list(SUBLIST mylist 1 -1 result) if (NOT result STREQUAL "bravo;charlie;delta") message (FATAL_ERROR "SUBLIST is \"${result}\", expected is \"bravo;charlie;delta\"") endif() + + +set(mylist ";;") + +unset(result) +list(SUBLIST mylist 0 0 result) + +if (NOT result STREQUAL "") + message (FATAL_ERROR "SUBLIST is \"${result}\", expected is \"\"") +endif() + +unset(result) +list(SUBLIST mylist 0 1 result) + +if (NOT result STREQUAL "") + message (FATAL_ERROR "SUBLIST is \"${result}\", expected is \"\"") +endif() + +unset(result) +list(SUBLIST mylist 0 2 result) + +if (NOT result STREQUAL ";") + message (FATAL_ERROR "SUBLIST is \"${result}\", expected is \";\"") +endif() + +unset(result) +list(SUBLIST mylist 0 3 result) + +if (NOT result STREQUAL ";;") + message (FATAL_ERROR "SUBLIST is \"${result}\", expected is \";;\"") +endif() + + +set(mylist [[a\;b;c\;d;e]]) + +unset(result) +list(SUBLIST mylist 1 2 result) + +if (NOT result STREQUAL "c;d;e") + message (FATAL_ERROR "SUBLIST is \"${result}\", expected is \"c;d;e\"") +endif() + + +set(mylist [[a\;b;c\\;d;e;f;g;h]]) + +unset(result) +list(SUBLIST mylist 1 -1 result) + +if (NOT result STREQUAL "c\\;d;e;f;g;h") + message (FATAL_ERROR "SUBLIST is \"${result}\", expected is \"c\\;d;e;f;g;h\"") +endif() |