Macintosh-Tools/Retro68
1
0
Fork 0
mirror of https://github.com/autc04/Retro68.git synced 2024-11-24 23:32:06 +00:00
Code Issues Projects Releases Wiki Activity

add automated test for pascal string literals

Browse Source
This commit is contained in:
Wolfgang Thaller 2022-10-28 11:39:46 +02:00
parent ca8e6715cb
commit 74fc6d3995
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
AutomatedTests/CMakeLists.txt
View File

@ -86,3 +86,5 @@ test(Exceptions.cc PROPERTIES PASS_REGULAR_EXPRESSION "OK")
configure_file(PascalTrap.c PascalTrapCPP.cc)
test(PascalTrap.c PROPERTIES PASS_REGULAR_EXPRESSION "OK")
test(${CMAKE_CURRENT_BINARY_DIR}/PascalTrapCPP.cc PROPERTIES PASS_REGULAR_EXPRESSION "OK")
test(PascalString.c PROPERTIES PASS_REGULAR_EXPRESSION "OK")

25
AutomatedTests/PascalString.c Normal file
View File

@ -0,0 +1,25 @@
#include "Test.h"
int main()
{
const unsigned char *pstr = "\pHello, world.";
const char *cstr = "Hello, world.";
if (pstr[0] != 13)
{
TEST_LOG_NO();
return 1;
}
for (int i = 0; cstr[i]; ++i)
{
if (cstr[i] != (char) pstr[i+1])
{
TEST_LOG_NO();
return 1;
}
}
TEST_LOG_OK();
return 0;
}