Blame gnulib/tests/test-setenv.c

Packit Service a2ae7a
/* Tests of setenv.
Packit Service a2ae7a
   Copyright (C) 2009-2019 Free Software Foundation, Inc.
Packit Service a2ae7a
Packit Service a2ae7a
   This program is free software: you can redistribute it and/or modify
Packit Service a2ae7a
   it under the terms of the GNU General Public License as published by
Packit Service a2ae7a
   the Free Software Foundation; either version 3 of the License, or
Packit Service a2ae7a
   (at your option) any later version.
Packit Service a2ae7a
Packit Service a2ae7a
   This program is distributed in the hope that it will be useful,
Packit Service a2ae7a
   but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit Service a2ae7a
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Packit Service a2ae7a
   GNU General Public License for more details.
Packit Service a2ae7a
Packit Service a2ae7a
   You should have received a copy of the GNU General Public License
Packit Service a2ae7a
   along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
Packit Service a2ae7a
Packit Service a2ae7a
/* Written by Eric Blake <ebb9@byu.net>, 2009.  */
Packit Service a2ae7a
Packit Service a2ae7a
#include <config.h>
Packit Service a2ae7a
Packit Service a2ae7a
#include <stdlib.h>
Packit Service a2ae7a
Packit Service a2ae7a
#include "signature.h"
Packit Service a2ae7a
SIGNATURE_CHECK (setenv, int, (char const *, char const *, int));
Packit Service a2ae7a
Packit Service a2ae7a
#include <errno.h>
Packit Service a2ae7a
#include <string.h>
Packit Service a2ae7a
#include <unistd.h>
Packit Service a2ae7a
Packit Service a2ae7a
#include "macros.h"
Packit Service a2ae7a
Packit Service a2ae7a
int
Packit Service a2ae7a
main (void)
Packit Service a2ae7a
{
Packit Service a2ae7a
  /* Test overwriting.  */
Packit Service a2ae7a
  ASSERT (setenv ("a", "==", -1) == 0);
Packit Service a2ae7a
  ASSERT (setenv ("a", "2", 0) == 0);
Packit Service a2ae7a
  ASSERT (strcmp (getenv ("a"), "==") == 0);
Packit Service a2ae7a
Packit Service a2ae7a
  /* Required to fail with EINVAL.  */
Packit Service a2ae7a
  errno = 0;
Packit Service a2ae7a
  ASSERT (setenv ("", "", 1) == -1);
Packit Service a2ae7a
  ASSERT (errno == EINVAL);
Packit Service a2ae7a
  errno = 0;
Packit Service a2ae7a
  ASSERT (setenv ("a=b", "", 0) == -1);
Packit Service a2ae7a
  ASSERT (errno == EINVAL);
Packit Service a2ae7a
#if 0
Packit Service a2ae7a
  /* glibc and gnulib's implementation guarantee this, but POSIX no
Packit Service a2ae7a
     longer requires it: http://austingroupbugs.net/view.php?id=185  */
Packit Service a2ae7a
  errno = 0;
Packit Service a2ae7a
  ASSERT (setenv (NULL, "", 0) == -1);
Packit Service a2ae7a
  ASSERT (errno == EINVAL);
Packit Service a2ae7a
#endif
Packit Service a2ae7a
Packit Service a2ae7a
  return 0;
Packit Service a2ae7a
}