Files
modules/lib/testutil-getgroups.c
Xavier Delaruelle 166096f4d8 ts/lib: test tcl ext lib against a failed getgroups call
Add an utility library that supersedes the getgroups function from libc.
The getgroups function from this added library always returns an error
(-1). It is used for coverage test of the getgroups call made within the
Envmodules_InitStateUsergroupsObjCmd function of the Tcl extension
library.
2020-07-16 21:53:51 +02:00

29 lines
1.0 KiB
C

/*************************************************************************
*
* TESTUTIL-GETGROUPS.C, Superseded getgroups function for test purpose
* Copyright (C) 2020 Xavier Delaruelle
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*
************************************************************************/
#include <unistd.h>
int getgroups(int size, gid_t list[])
{
return -1;
}
/* vim:set tabstop=3 shiftwidth=3 expandtab autoindent: */