sdcc/support/regression/fwk/lib/testfwk.c

   1 /** Test framework support functions.
   2  */
   3 #include <testfwk.h>
   4 #ifndef NO_VARARGS
   5 #include <stdarg.h>
   6 #endif
   7
   8 #ifdef __SDCC_ds390
   9 #include <tinibios.h> /* main() must see the ISR declarations */
  10 #endif
  11
  12 #ifdef __SDCC_mcs51
  13 /* until changed, isr's must have a prototype in the module containing main */
  14 void T2_isr (void) __interrupt (5);
  15 #define MEMSPACE_BUF __idata
  16 #else
  17 #define MEMSPACE_BUF
  18 #endif
  19
  20 /** Define this if the port's div or mod functions are broken.
  21     A slow loop based method will be substituded.
  22 */
  23 //#define BROKEN_DIV_MOD                1
  24
  25 extern void _putchar(char c);
  26 extern void _initEmu(void);
  27 extern void _exitEmu(void);
  28
  29 int __numTests = 0;
  30 static int __numFailures = 0;
  31
  32 #if BROKEN_DIV_MOD && !defined(TARGET_VERY_LOW_MEMORY)
  33 static int
  34 __div(int num, int denom)
  35 {
  36   int q = 0;
  37   while (num >= denom)
  38     {
  39       q++;
  40       num -= denom;
  41     }
  42   return q;
  43 }
  44
  45 static int
  46 __mod (int num, int denom)
  47 {
  48   while (num >= denom)
  49     {
  50       num -= denom;
  51     }
  52   return num;
  53 }
  54 #else
  55 #define __div(num, denom) ((num) / (denom))
  56 #define __mod(num, denom) ((num) % (denom))
  57 #endif
  58
  59 void
  60 __prints (const char *s)
  61 {
  62   char c;
  63
  64   while ('\0' != (c = *s))
  65     {
  66       _putchar(c);
  67       ++s;
  68     }
  69 }
  70
  71 #ifdef TARGET_VERY_LOW_MEMORY
  72 static void
  73 __printNibble (unsigned char c)
  74 {
  75   c &= 0x0F;
  76   if (c <= 9 )
  77     c += '0';
  78   else
  79     c += 'A' - 10;
  80   _putchar(c);
  81 }
  82 void
  83 __printd (int n)
  84 {
  85   unsigned char chr;
  86   #define SWAP_BYTE(x)  ((x) >> 4 | (x) << 4)
  87
  88   if (0 > n)
  89     {
  90       n = -n;
  91       _putchar('-');
  92     }
  93   _putchar('x');
  94
  95   // This seems to be the most efficient way to do it for PDK (both in RAM & ROM)
  96   chr = n >> 8;
  97   chr = SWAP_BYTE(chr);
  98   __printNibble(chr);
  99   chr = SWAP_BYTE(chr);
 100   __printNibble(chr);
 101
 102   chr = n & 0xFF;
 103   chr = SWAP_BYTE(chr);
 104   __printNibble(chr);
 105   chr = SWAP_BYTE(chr);
 106   __printNibble(chr);
 107 }
 108 #else
 109 void
 110 __printd (int n)
 111 {
 112   if (0 == n)
 113     {
 114       _putchar('0');
 115     }
 116   else
 117     {
 118       static char MEMSPACE_BUF buf[6];
 119       char MEMSPACE_BUF *p = &buf[sizeof (buf) - 1];
 120       char neg = 0;
 121
 122       buf[sizeof(buf) - 1] = '\0';
 123
 124       if (0 > n)
 125         {
 126           n = -n;
 127           neg = 1;
 128         }
 129
 130       while (0 != n)
 131         {
 132           *--p = '0' + __mod (n, 10);
 133           n = __div (n, 10);
 134         }
 135
 136       if (neg)
 137         _putchar('-');
 138
 139       __prints(p);
 140     }
 141 }
 142
 143 void
 144 __printu (unsigned int n)
 145 {
 146   if (0 == n)
 147     {
 148       _putchar('0');
 149     }
 150   else
 151     {
 152       static char MEMSPACE_BUF buf[6];
 153       char MEMSPACE_BUF *p = &buf[sizeof (buf) - 1];
 154
 155       buf[sizeof(buf) - 1] = '\0';
 156
 157       while (0 != n)
 158         {
 159           *--p = '0' + __mod (n, 10);
 160           n = __div (n, 10);
 161         }
 162
 163       __prints(p);
 164     }
 165 }
 166 #endif
 167
 168 #ifndef NO_VARARGS
 169 void
 170 __printf (const char *szFormat, ...)
 171 {
 172   va_list ap;
 173   va_start (ap, szFormat);
 174
 175   while (*szFormat)
 176     {
 177       if (*szFormat == '%')
 178         {
 179           switch (*++szFormat)
 180             {
 181             case 's':
 182               {
 183                 char *sz = va_arg (ap, char *);
 184                 __prints(sz);
 185                 break;
 186               }
 187
 188             case 'd':
 189               {
 190                 int i = va_arg (ap, int);
 191                 __printd (i);
 192                 break;
 193              }
 194
 195             case 'u':
 196               {
 197                 unsigned int i = va_arg (ap, unsigned int);
 198                 __printu (i);
 199                 break;
 200              }
 201
 202            case '%':
 203              _putchar ('%');
 204              break;
 205
 206            default:
 207              break;
 208           }
 209       }
 210     else
 211       {
 212         _putchar (*szFormat);
 213       }
 214     szFormat++;
 215   }
 216   va_end (ap);
 217 }
 218
 219 void
 220 __fail (__code const char *szMsg, __code const char *szCond, __code const char *szFile, int line)
 221 {
 222   __printf("--- FAIL: \"%s\" on %s at %s:%u\n", szMsg, szCond, szFile, line);
 223   __numFailures++;
 224 }
 225
 226 int
 227 main (void)
 228 {
 229   _initEmu();
 230
 231   __printf("--- Running: %s\n", __getSuiteName());
 232
 233   __runSuite();
 234
 235   __printf("--- Summary: %u/%u/%u: %u failed of %u tests in %u cases.\n",
 236      __numFailures, __numTests, __numCases,
 237      __numFailures, __numTests, __numCases
 238      );
 239
 240   _exitEmu();
 241
 242   return 0;
 243 }
 244 #else
 245 void
 246 __fail (__code const char *szMsg, __code const char *szCond, __code const char *szFile, int line)
 247 {
 248   __prints("--- FAIL: \"");
 249   __prints(szMsg);
 250   __prints("\" on ");
 251   __prints(szCond);
 252   __prints(" at ");
 253   __prints(szFile);
 254   _putchar(':');
 255   __printd(line);
 256   _putchar('\n');
 257
 258   __numFailures++;
 259 }
 260
 261 int
 262 main (void)
 263 {
 264   _initEmu();
 265
 266   __prints("--- Running: ");
 267   __prints(__getSuiteName());
 268   _putchar('\n');
 269
 270   __runSuite();
 271
 272   __prints("--- Summary: ");
 273   __printd(__numFailures);
 274   _putchar('/');
 275   __printd(__numTests);
 276   _putchar('/');
 277   __printd(__numCases);
 278
 279   #ifndef TARGET_VERY_LOW_MEMORY
 280   __prints(": ");
 281   __printd(__numFailures);
 282   __prints(" failed of ");
 283   __printd(__numTests);
 284   __prints(" tests in ");
 285   __printd(__numCases);
 286   __prints(" cases.\n");
 287   #else
 288   _putchar('\n');
 289   #endif
 290
 291   _exitEmu();
 292
 293   return 0;
 294 }
 295 #endif