root/maint/gnulib/tests/test-getprogname.c

/* [previous][next][first][last][top][bottom][index][help] */

DEFINITIONS

This source file includes following definitions.
  1. main

   1 /* Test the gnulib getprogname module.
   2    Copyright (C) 2016-2021 Free Software Foundation, Inc.
   3 
   4    This program is free software: you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation; either version 3 of the License, or
   7    (at your option) any later version.
   8 
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13 
  14    You should have received a copy of the GNU General Public License
  15    along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
  16 
  17 #include <config.h>
  18 
  19 #include "getprogname.h"
  20 #include <string.h>
  21 #include <assert.h>
  22 
  23 #ifdef __hpux
  24 # define STREQ(a, b) (strncmp (a, b, 14) == 0)
  25 #else
  26 # define STREQ(a, b) (strcmp (a, b) == 0)
  27 #endif
  28 
  29 int
  30 main (void)
     /* [previous][next][first][last][top][bottom][index][help] */
  31 {
  32   char const *p = getprogname ();
  33 
  34   /* libtool creates a temporary executable whose name is sometimes prefixed
  35      with "lt-" (depends on the platform).  But the name of the temporary
  36      executable is a detail that should not be visible to the end user and to
  37      the test suite.  Remove this "lt-" prefix here.  */
  38   if (strncmp (p, "lt-", 3) == 0)
  39     p += 3;
  40 
  41   /* Note: You can make this test fail
  42      a) by running it on a case-insensitive file system (such as on Windows,
  43         Cygwin, or on Mac OS X with a case-insensitive HFS+ file system),
  44         with an invocation that contains upper case characters, e.g.
  45         test-GETPROGNAME,
  46      b) by hardlinking or symlinking it to a different name (e.g. test-foo)
  47         and invoking it through that name.
  48      That's not the intended use. The Makefile always invokes it as
  49      'test-getprogname${EXEEXT}'. */
  50 #if defined __CYGWIN__
  51   /* The Cygwin getprogname() function strips the ".exe" suffix. */
  52   assert (STREQ (p, "test-getprogname"));
  53 #else
  54   assert (STREQ (p, "test-getprogname" EXEEXT));
  55 #endif
  56 
  57   return 0;
  58 }

/* [previous][next][first][last][top][bottom][index][help] */