kolan
/
CMake
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
CMake/Utilities/KWIML/test/test_INT_format.h.in

189 lines
8.4 KiB
C
Raw Normal View History

KWIML: The Kitware Information Macro Library Provides header files that use preprocessor tests to detect and provide information about the compiler and its target architecture. The headers contain no configuration-time test results and thus may be installed into an architecture-independent include directory. This makes them suitable for use in the public interface of any package.
2011-06-27 21:58:32 +04:00
/*============================================================================
Kitware Information Macro Library
Copyright 2010-2011 Kitware, Inc.
Distributed under the OSI-approved BSD License (the "License");
see accompanying file Copyright.txt for details.
This software is distributed WITHOUT ANY WARRANTY; without even the
implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the License for more information.
============================================================================*/
#include <stdio.h>
#include <string.h>
#ifdef __cplusplus
# define LANG "C++ "
#else
# define LANG "C "
#endif
#define VALUE(T, U) \
(@KWIML@_INT_##T)((@KWIML@_INT_##U)0xab << \
((sizeof(@KWIML@_INT_##T)-1)<<3)) \
#define TEST_C(C, V, PRI, T, U) \
{ \
@KWIML@_INT_##T const x = VALUE(T, U); \
@KWIML@_INT_##T y = @KWIML@_INT_##C(V); \
printf(LANG "@KWIML@_INT_" #C ":" \
" expression [%"@KWIML@_INT_PRI##PRI"]," \
" literal [%"@KWIML@_INT_PRI##PRI"]", x, y); \
if(x == y) \
{ \
printf(", PASSED\n"); \
} \
else \
{ \
printf(", FAILED\n"); \
result = 0; \
} \
}
#define TEST_PRI(PRI, T, U, STR) \
{ \
@KWIML@_INT_##T const x = VALUE(T, U); \
char const* str = STR; \
sprintf(buf, "%"@KWIML@_INT_PRI##PRI, x); \
printf(LANG "@KWIML@_INT_PRI" #PRI ":" \
" expected [%s], got [%s]", str, buf); \
if(strcmp(str, buf) == 0) \
{ \
printf(", PASSED\n"); \
} \
else \
{ \
printf(", FAILED\n"); \
result = 0; \
} \
}
#define TEST_SCN(SCN, T, U, STR) TEST_SCN2(SCN, SCN, T, U, STR)
#define TEST_SCN2(PRI, SCN, T, U, STR) \
{ \
@KWIML@_INT_##T const x = VALUE(T, U); \
@KWIML@_INT_##T y; \
char const* str = STR; \
if(sscanf(str, "%"@KWIML@_INT_SCN##SCN, &y) != 1) \
{ \
y = 0; \
} \
printf(LANG "@KWIML@_INT_SCN" #SCN ":" \
" expected [%"@KWIML@_INT_PRI##PRI"]," \
" got [%"@KWIML@_INT_PRI##PRI"]", x, y); \
if(x == y) \
{ \
printf(", PASSED\n"); \
} \
else \
{ \
printf(", FAILED\n"); \
result = 0; \
} \
}
#define TEST(FMT, T, U, STR) TEST2(FMT, FMT, T, U, STR)
#define TEST2(PRI, SCN, T, U, STR) \
TEST_PRI(PRI, T, U, STR) \
TEST_SCN2(PRI, SCN, T, U, STR)
static int test_INT_format(void)
{
int result = 1;
char buf[256];
TEST_PRI(i8, int8_t, uint8_t, "-85")
#if defined(@KWIML@_INT_SCNi8)
TEST_SCN(i8, int8_t, uint8_t, "-85")
#endif
TEST_PRI(d8, int8_t, uint8_t, "-85")
#if defined(@KWIML@_INT_SCNd8)
TEST_SCN(d8, int8_t, uint8_t, "-85")
#endif
TEST_PRI(o8, uint8_t, uint8_t, "253")
#if defined(@KWIML@_INT_SCNo8)
TEST_SCN(o8, uint8_t, uint8_t, "253")
#endif
TEST_PRI(u8, uint8_t, uint8_t, "171")
#if defined(@KWIML@_INT_SCNu8)
TEST_SCN(u8, uint8_t, uint8_t, "171")
#endif
TEST_PRI(x8, uint8_t, uint8_t, "ab")
TEST_PRI(X8, uint8_t, uint8_t, "AB")
#if defined(@KWIML@_INT_SCNx8)
TEST_SCN(x8, uint8_t, uint8_t, "ab")
TEST_SCN2(X8, x8, uint8_t, uint8_t, "AB")
#endif
TEST(i16, int16_t, uint16_t, "-21760")
TEST(d16, int16_t, uint16_t, "-21760")
TEST(o16, uint16_t, uint16_t, "125400")
TEST(u16, uint16_t, uint16_t, "43776")
TEST(x16, uint16_t, uint16_t, "ab00")
TEST2(X16, x16, uint16_t, uint16_t, "AB00")
TEST(i32, int32_t, uint32_t, "-1426063360")
TEST(d32, int32_t, uint32_t, "-1426063360")
TEST(o32, uint32_t, uint32_t, "25300000000")
TEST(u32, uint32_t, uint32_t, "2868903936")
TEST(x32, uint32_t, uint32_t, "ab000000")
TEST2(X32, x32, uint32_t, uint32_t, "AB000000")
TEST_PRI(i64, int64_t, uint64_t, "-6124895493223874560")
#if defined(@KWIML@_INT_SCNi64)
TEST_SCN(i64, int64_t, uint64_t, "-6124895493223874560")
#endif
TEST_PRI(d64, int64_t, uint64_t, "-6124895493223874560")
#if defined(@KWIML@_INT_SCNd64)
TEST_SCN(d64, int64_t, uint64_t, "-6124895493223874560")
#endif
TEST_PRI(o64, uint64_t, uint64_t, "1254000000000000000000")
#if defined(@KWIML@_INT_SCNo64)
TEST_SCN(o64, uint64_t, uint64_t, "1254000000000000000000")
#endif
TEST_PRI(u64, uint64_t, uint64_t, "12321848580485677056")
#if defined(@KWIML@_INT_SCNu64)
TEST_SCN(u64, uint64_t, uint64_t, "12321848580485677056")
#endif
TEST_PRI(x64, uint64_t, uint64_t, "ab00000000000000")
TEST_PRI(X64, uint64_t, uint64_t, "AB00000000000000")
#if defined(@KWIML@_INT_SCNx64)
TEST_SCN(x64, uint64_t, uint64_t, "ab00000000000000")
TEST_SCN2(X64, x64, uint64_t, uint64_t, "AB00000000000000")
#endif
#if !defined(@KWIML@_INT_NO_INTPTR_T)
# if @KWIML@_ABI_SIZEOF_DATA_PTR == 4
TEST(iPTR, intptr_t, uint32_t, "-1426063360")
TEST(dPTR, intptr_t, uint32_t, "-1426063360")
# else
TEST(iPTR, intptr_t, uint64_t, "-6124895493223874560")
TEST(dPTR, intptr_t, uint64_t, "-6124895493223874560")
# endif
#endif
#if !defined(@KWIML@_INT_NO_UINTPTR_T)
# if @KWIML@_ABI_SIZEOF_DATA_PTR == 4
TEST(oPTR, uintptr_t, uintptr_t, "25300000000")
TEST(uPTR, uintptr_t, uintptr_t, "2868903936")
TEST(xPTR, uintptr_t, uintptr_t, "ab000000")
TEST2(XPTR, xPTR, uintptr_t, uintptr_t, "AB000000")
# else
TEST(oPTR, uintptr_t, uintptr_t, "1254000000000000000000")
TEST(uPTR, uintptr_t, uintptr_t, "12321848580485677056")
TEST(xPTR, uintptr_t, uintptr_t, "ab00000000000000")
TEST2(XPTR, xPTR, uintptr_t, uintptr_t, "AB00000000000000")
# endif
#endif
TEST_C(INT8_C, -0x55, i8, int8_t, uint8_t)
TEST_C(UINT8_C, 0xAB, u8, uint8_t, uint8_t)
TEST_C(INT16_C, -0x5500, i16, int16_t, uint16_t)
TEST_C(UINT16_C, 0xAB00, u16, uint16_t, uint16_t)
TEST_C(INT32_C, -0x55000000, i32, int32_t, uint32_t)
TEST_C(UINT32_C, 0xAB000000, u32, uint32_t, uint32_t)
TEST_C(INT64_C, -0x5500000000000000, i64, int64_t, uint64_t)
TEST_C(UINT64_C, 0xAB00000000000000, u64, uint64_t, uint64_t)
return result;
}