test/test-migration.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <string.h>
   4 #include <unistd.h>
   5 #include <sys/types.h>
   6 #include <dirent.h>
   7 #include <fontconfig/fontconfig.h>
   8
   9 FcBool
  10 mkdir_p(const char *dir)
  11 {
  12     char *parent;
  13     FcBool ret;
  14
  15     if (strlen (dir) == 0)
  16         return FcFalse;
  17     parent = (char *) FcStrDirname (dir);
  18     if (!parent)
  19         return FcFalse;
  20     if (access (parent, F_OK) == 0)
  21         ret = mkdir (dir, 0755) == 0 && chmod (dir, 0755) == 0;
  22     else if (access (parent, F_OK) == -1)
  23         ret = mkdir_p (parent) && (mkdir (dir, 0755) == 0) && chmod (dir, 0755) == 0;
  24     else
  25         ret = FcFalse;
  26     free (parent);
  27
  28     return ret;
  29 }
  30
  31 FcBool
  32 unlink_dirs(const char *dir)
  33 {
  34     DIR *d = opendir (dir);
  35     struct dirent *e;
  36     size_t len = strlen (dir);
  37     char *n = NULL;
  38     FcBool ret = FcTrue;
  39
  40     if (!d)
  41         return FcFalse;
  42     while ((e = readdir(d)) != NULL)
  43     {
  44         size_t l;
  45
  46         if (strcmp (e->d_name, ".") == 0 ||
  47             strcmp (e->d_name, "..") == 0)
  48             continue;
  49         l = strlen (e->d_name) + 1;
  50         if (n)
  51             free (n);
  52         n = malloc (l + len + 1);
  53         strcpy (n, dir);
  54         n[len] = '/';
  55         strcpy (&n[len + 1], e->d_name);
  56         if (e->d_type == DT_DIR)
  57         {
  58             if (!unlink_dirs (n))
  59             {
  60                 fprintf (stderr, "E: %s\n", n);
  61                 ret = FcFalse;
  62                 break;
  63             }
  64         }
  65         else
  66         {
  67             if (unlink (n) == -1)
  68             {
  69                 fprintf (stderr, "E: %s\n", n);
  70                 ret = FcFalse;
  71                 break;
  72             }
  73         }
  74     }
  75     if (n)
  76         free (n);
  77     closedir (d);
  78
  79     if (rmdir (dir) == -1)
  80     {
  81         fprintf (stderr, "E: %s\n", dir);
  82         return FcFalse;
  83     }
  84
  85     return ret;
  86 }
  87
  88 int
  89 main(void)
  90 {
  91     char template[32] = "fontconfig-XXXXXXXX";
  92     char *tmp = mkdtemp (template);
  93     size_t len = strlen (tmp), xlen, dlen;
  94     char xdg[256], confd[256], fn[256], nfn[256], ud[256], nud[256];
  95     int ret = -1;
  96     FILE *fp;
  97     char *content = "<fontconfig></fontconfig>";
  98
  99     strcpy (xdg, tmp);
 100     strcpy (&xdg[len], "/.config");
 101     setenv ("HOME", tmp, 1);
 102     setenv ("XDG_CONFIG_HOME", xdg, 1);
 103     xlen = strlen (xdg);
 104     strcpy (confd, xdg);
 105     strcpy (&confd[xlen], "/fontconfig");
 106     dlen = strlen (confd);
 107     /* In case there are no configuration files nor directory */
 108     FcInit ();
 109     if (access (confd, F_OK) == 0)
 110     {
 111         fprintf (stderr, "%s unexpectedly exists\n", confd);
 112         goto bail;
 113     }
 114     FcFini ();
 115     if (!unlink_dirs (tmp))
 116     {
 117         fprintf (stderr, "Unable to clean up\n");
 118         goto bail;
 119     }
 120     /* In case there are the user configuration file */
 121     strcpy (fn, tmp);
 122     strcpy (&fn[len], "/.fonts.conf");
 123     strcpy (nfn, confd);
 124     strcpy (&nfn[dlen], "/fonts.conf");
 125     if (!mkdir_p (confd))
 126     {
 127         fprintf (stderr, "Unable to create a config dir: %s\n", confd);
 128         goto bail;
 129     }
 130     if ((fp = fopen (fn, "wb")) == NULL)
 131     {
 132         fprintf (stderr, "Unable to create a config file: %s\n", fn);
 133         goto bail;
 134     }
 135     fwrite (content, sizeof (char), strlen (content), fp);
 136     fclose (fp);
 137     FcInit ();
 138     if (access (nfn, F_OK) != 0)
 139     {
 140         fprintf (stderr, "migration failed for %s\n", nfn);
 141         goto bail;
 142     }
 143     FcFini ();
 144     if (!unlink_dirs (tmp))
 145     {
 146         fprintf (stderr, "Unable to clean up\n");
 147         goto bail;
 148     }
 149     /* In case there are the user configuration dir */
 150     strcpy (ud, tmp);
 151     strcpy (&ud[len], "/.fonts.conf.d");
 152     strcpy (nud, confd);
 153     strcpy (&nud[dlen], "/conf.d");
 154     if (!mkdir_p (ud))
 155     {
 156         fprintf (stderr, "Unable to create a config dir: %s\n", ud);
 157         goto bail;
 158     }
 159     FcInit ();
 160     if (access (nud, F_OK) != 0)
 161     {
 162         fprintf (stderr, "migration failed for %s\n", nud);
 163         goto bail;
 164     }
 165     FcFini ();
 166
 167     ret = 0;
 168 bail:
 169     unlink_dirs (tmp);
 170
 171     return ret;
 172 }