|
|
/* incomplete test suite for convert functions
Current functions tested: all isxxxxx functions toupper tolower atoi atol strtol strtoul swab itoa ltoa ultoa*/
#include <stdlib.h>
#include <stdio.h>
#include <limits.h>
#include <errno.h>
fail(int n){ printf("Test #%d failed.\n", n);}
main(){ char s[512]; char t[512]; char *p;
/* test isxxxx functions */ if (!iscntrl(0x7)) fail(1); if (iscntrl('c')) fail(2); if (!isdigit('0')) fail(3); if (isdigit('A')) fail(4); if (!isgraph(';')) fail(5); if (isgraph(' ')) fail(6); if (!islower('f')) fail(7); if (islower('F')) fail(8); if (!isprint('S')) fail(9); if (isprint('\v')) fail(10); if (!ispunct('.')) fail(11); if (ispunct('A')) fail(12); if (!isspace('\v')) fail(13); if (isspace('D')) fail(14); if (!isupper('D')) fail(15); if (isupper('z')) fail(16); if (!isxdigit('D')) fail(17); if (isxdigit('G')) fail(18); if (!isalnum('7')) fail(19); if (isalnum(';')) fail(20); if (!isalpha('j')) fail(21); if (isalpha('$')) fail(22); if (!isascii(0x3)) fail(23); if (isascii(234)) fail(24); if (!iscsym('d')) fail(25); if (iscsym('$')) fail(26); if (!iscsymf('A')) fail(27); if (iscsymf('5')) fail(28);
/* test toupper and tolower */ if (tolower('C') != 'c') fail(29); if (tolower('d') != 'd') fail(30); if (tolower('$') != '$') fail(31); if (toupper('q') != 'Q') fail(32); if (toupper('A') != 'A') fail(33); if (toupper(';') != ';') fail(34);
/* test atol/atoi */ if (atol("-123") != -123) fail(35); if (atoi("32767") != 32767) fail(36); if (atoi("-32767") != -32767) fail(36); if (atol("0") != 0) fail(37); if (atol("2147483647") != 2147483647) fail(38); if (atol("-2147483647") != -2147483647) fail(39); if (atol("123456") != 123456) fail(40); if (atol("-123456") != -123456) fail(41);
/* test strtol */ if (strtol("-123", NULL, 10) != -123) fail(42); if (strtol(" 2147483646", NULL, 10) != 2147483646) fail(43); if (strtol("-2147483646$$", NULL, 10) != -2147483646) fail(44); if (strtol(" 2147483648x", NULL, 10) != LONG_MAX) fail(45); if (strtol(" -2147483648", NULL, 10) != LONG_MIN) fail(46); if (strtol("0", NULL, 10) != 0) fail(47); if (strtol("981235b", NULL, 10) != 981235) fail(48); if (strtol(" -1234567a", NULL, 10) != -1234567) fail(49); if (strtol("FFDE", NULL, 16) != 0xFFDE) fail(50); if (strtol("7FFFFFFE", NULL, 16) != 0x7FFFFFFE) fail(51); if (strtol("-0x45", NULL, 16) != -0x45) fail(52); if (strtol("23478", NULL, 8) != 02347) fail(53); if (strtol(" -0x123D", NULL, 0) != -0x123d) fail(54); if (strtol(" 01238", NULL, 0) != 0123) fail(55); if (strtol(" -678899", NULL, 0) != -678899) fail(56);
errno = 0; strtol("2147483647", NULL, 10); if (errno != 0) fail(57); errno = 0; strtol("2147483648", NULL, 10); if (errno != ERANGE) fail(58); errno = 0; strtol("63234283743", NULL, 10); if (errno != ERANGE) fail(59); strcpy(s, " 8983"); strtol(s, &p, 8); if (s != p) fail(60); strcpy(s, "12345678901234567890XX"); strtol(s, &p, 0); if (p != s+20) fail(61); strcpy(s, " 111"); strtol(s, &p, 1); if (p != s) fail(62);
errno = 0; if (strtoul("4294967295", NULL, 10) != ULONG_MAX) fail(63); if (errno != 0) fail(64); errno = 0; strtoul("4294967296", NULL, 10); if (errno != ERANGE) fail(65); errno = 0; strtoul("63234283743", NULL, 10); if (errno != ERANGE) fail(66);
/* test swab */ strcpy(s, "abcdefghijklmn"); swab(s, t, 14); if (strcmp(t, "badcfehgjilknm") != 0) fail(67); strcpy(t, s); swab(s, t, 7); if (strcmp(t, "badcfeghijklmn") != 0) fail(68); strcpy(t, s); swab(s, t, -5); if (strcmp(s, t) != 0) fail(69);
/* test itoa/ltoa/ultoa */ if (strcmp(itoa(345, s, 10), "345") != 0) fail(70); if (strcmp(itoa(-345, s, 10), "-345") != 0) fail(71); if (strcmp(itoa(33, s, 36), "x") != 0) fail(72); if (strcmp(itoa(65535U, s, 16), "ffff") != 0) fail(73); if (strcmp(ltoa(123457, s, 10), "123457") != 0) fail(74); if (strcmp(ltoa(-123457, s, 10), "-123457") != 0) fail(75); if (strcmp(ltoa(076512L, s, 8), "76512") != 0) fail(76); if (strcmp(ltoa(-1L, s, 10), "-1") != 0) fail(77); if (strcmp(ltoa(-1L, s, 16), "ffffffff") != 0) fail(78); if (strcmp(ultoa(-1L, s, 10), "4294967295") != 0) fail(79);
}
|
