gnu/dist/gcc4/gcc/testsuite/gcc.dg/cpp/strify2.c

   1 /* Copyright (C) 2000 Free Software Foundation, Inc.  */
   2
   3 /* { dg-do run } */
   4 /* { dg-options "-std=c99 -pedantic-errors -fno-show-column" } */
   5
   6 /* Tests a whole bunch of things are correctly stringified.  */
   7
   8 extern int strcmp (const char *, const char *);
   9 extern int puts (const char *);
  10 extern void abort (void);
  11 #define err(str) do { puts(str); abort(); } while (0)
  12
  13 #define str(x) #x
  14 #define xstr(x) str(x)
  15 #define strvar(...) #__VA_ARGS__
  16
  17 #define glibc_str(x) glibc_str2 (w, x)
  18 #define glibc_str2(w, x) #x
  19 #define ver GLIBC_2.2
  20
  21 int main (int argc, char *argv[])
  22 {
  23   str (\);              /* { dg-warning "valid string" "str(\\)" } */
  24   str (\\);             /* OK.  */
  25   str (\\\);            /* { dg-warning "valid string" "str(\\\\\\)" } */
  26
  27   /* This also serves as a useful test of the value of __INCLUDE_LEVEL.  */
  28   if (strcmp (xstr (__INCLUDE_LEVEL__), "0"))
  29     err ("macro expansion");
  30
  31   if (strcmp(str (__INCLUDE_LEVEL__), "__INCLUDE_LEVEL__"))
  32     err ("macro name");
  33
  34   if (strcmp(str(), "") || strcmp(str( ), ""))
  35     err ("empty string");
  36
  37   if (strcmp(str ("s\n"), "\"s\\n\""))
  38     err ("quoted string");
  39
  40   if (strcmp (str (a € b), "a \200 b"))
  41     err ("unprintable char");
  42
  43   if (strcmp (str (     a    b@ c   ), "a b@ c"))
  44     err ("internal whitespace");
  45
  46   if (strcmp (str(a \n), "a \n"))
  47     err ("backslash token");
  48
  49   if (strcmp (strvar (foo, bar), "foo, bar"))
  50     err ("variable arguments");
  51
  52   if (strcmp (glibc_str (ver), "GLIBC_2.2"))
  53     err ("whitespace");
  54
  55   return 0;
  56 }