none/tests/unit_debuglog.c

   1 /* Test %f format specifier */
   2 #include <assert.h>
   3 #include <stdio.h>
   4 #include <stdlib.h>
   5 #include <string.h>
   6
   7 #include "pub_core_basics.h"
   8 #include "pub_core_libcbase.h"
   9 #include "pub_core_libcassert.h"
  10 #include "pub_core_libcprint.h"
  11
  12 #undef vg_assert
  13 #define vg_assert(e)                   assert(e)
  14 #undef vg_assert2
  15 #define vg_assert2(e, fmt, args...)    assert(e)
  16
  17 #include "coregrind/m_debuglog.c"
  18
  19 int run(const char *format, ...)
  20 {
  21   int n, num_stars;
  22   const char *p;
  23   printf_buf buf;
  24   va_list vargs;
  25
  26   // Count number of '*' in format
  27   num_stars = 0;
  28   for (p = format; *p; ++p)
  29     if (*p == '*') ++num_stars;
  30
  31   va_start(vargs, format);
  32   fprintf(stderr, "%s\tprintf =   ", format);
  33   n = vfprintf(stderr, format, vargs);
  34   fprintf(stderr, "\twrote %3d chars\n", n);
  35   va_end(vargs);
  36
  37   buf.n = 0;
  38   buf.buf[0] = 0;
  39
  40   fprintf(stderr, "%s\tdebuglog = ", format);
  41   va_start(vargs, format);
  42   n = VG_(debugLog_vprintf)(add_to_buf, &buf, format, vargs);
  43   va_end(vargs);
  44
  45   emit(buf.buf, strlen(buf.buf));
  46   fprintf(stderr, "\twrote %3d chars\n", n);
  47
  48   return num_stars;
  49 }
  50
  51 int main(int argc, char *argv[])
  52 {
  53   double value;
  54
  55   fprintf(stderr, "...testing value 0\n");
  56   value = 0.0;
  57   run("|%f|", value);
  58   run("|%2f|", value);
  59   run("|%9f|", value);
  60   run("|%8.0f|", value);
  61   run("|%8.1f|", value);
  62   run("|%8.2f|", value);
  63
  64   fprintf(stderr, "\n");
  65   fprintf(stderr, "...testing value 3.7  (with rounding)\n");
  66   value = 3.7;
  67   run("|%f|", value);
  68   run("|%4f|", value);
  69   run("|%9f|", value);
  70   run("|%4.0f|", value);
  71   run("|%4.1f|", value);
  72   run("|%4.2f|", value);
  73
  74   fprintf(stderr, "\n");
  75   fprintf(stderr, "...testing value 123.01\n");
  76   value = 123.01;
  77   run("|%f|", value);
  78   run("|%4f|", value);
  79   run("|%9f|", value);
  80   run("|%8.0f|", value);
  81   run("|%8.1f|", value);
  82   run("|%8.2f|", value);
  83   run("|%8.3f|", value);
  84
  85   fprintf(stderr, "\n");
  86   fprintf(stderr, "...testing value 3.0019  (with rounding)\n");
  87   value = 3.0019;
  88   run("|%f|", value);
  89   run("|%10f|", value);
  90   run("|%10.0f|", value);
  91   run("|%10.3f|", value);
  92   run("|%10.4f|", value);
  93   run("|%.4f|", value);
  94   run("|%.9f|", value);
  95
  96   fprintf(stderr, "\n");
  97   fprintf(stderr, "...testing value -123.456 (with rounding)\n");
  98   value = -123.456;
  99   run("|%f|", value);
 100   run("|%10f|", value);
 101   run("|%10.0f|", value);
 102   run("|%10.1f|", value);
 103   run("|%10.2f|", value);
 104   run("|%10.3f|", value);
 105   run("|%10.4f|", value);
 106   run("|%10.5f|", value);
 107   run("|%.4f|", value);
 108
 109   fprintf(stderr, "\n");
 110   fprintf(stderr, "...testing value = -123.456 width = '*'\n");
 111   value = -123.456;
 112   run("|%*f|", 10, value);
 113   run("|%*f|", 2, value);
 114   run("|%*f.1|", 10, value);
 115
 116   fprintf(stderr, "\n");
 117   fprintf(stderr, "...testing precision = '*'\n");
 118   value = -123.456;
 119   run("|%.*f|", 10, value);
 120   run("|%.*f|", 2, value);
 121   run("|%10.*f|", 2, value);
 122
 123   fprintf(stderr, "\n");
 124   fprintf(stderr, "...testing width/precision = '*'\n");
 125   value = -123.456;
 126   run("|%*.*f|", 20, 5, value);
 127   run("|%*.*f|", 1, 4, value);
 128
 129   fprintf(stderr, "\n");
 130   fprintf(stderr, "...testing left justification\n");
 131   value = 3.1415;
 132   run("|%10f|", value);
 133   run("|%-10f|", value);
 134
 135   fprintf(stderr, "\n");
 136   fprintf(stderr, "...testing strings\n");
 137   const char *str = "abcd";
 138   run("|%s|", str);
 139   run("|%9s|", str);
 140   run("|%-9s|", str);
 141   run("|%*s|", 6, str);
 142
 143   fprintf(stderr, "\n");
 144   fprintf(stderr, "...testing integers\n");
 145   long long ival = -1004005;
 146   run("|%lld|", ival);
 147   //  runint("|%'lld|", ival);     // locale specific (LC_NUMERIC)
 148   run("|%15lld|", ival);
 149   run("|%-15lld|", ival);
 150   //  runint("|%'-15lld|", ival);  // locale specific (LC_NUMERIC)
 151   run("|%100lld|", ival);
 152   run("|%*lld|", 13, ival);
 153
 154   value = 0.99685224;
 155   run("|%3.0f|", value);
 156   run("|%3.1f|", value);
 157   run("|%3.2f|", value);
 158   run("|%3.3f|", value);
 159   run("|%3.4f|", value);
 160   run("|%3.5f|", value);
 161
 162   return 0;
 163 }