diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 05:55:27 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 05:55:27 +0000 |
commit | 32e0ba8ebdadc47ac1a0da8d9a9668ff21909e4f (patch) | |
tree | ebaa5eacafe874b431d69e52f0f73c013c3017ae /testsuite/test3.pl | |
parent | Initial commit. (diff) | |
download | adduser-32e0ba8ebdadc47ac1a0da8d9a9668ff21909e4f.tar.xz adduser-32e0ba8ebdadc47ac1a0da8d9a9668ff21909e4f.zip |
Adding upstream version 3.118+deb11u1.upstream/3.118+deb11u1upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to '')
-rw-r--r-- | testsuite/test3.pl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/testsuite/test3.pl b/testsuite/test3.pl new file mode 100644 index 0000000..b627f91 --- /dev/null +++ b/testsuite/test3.pl @@ -0,0 +1,32 @@ +#!/usr/bin/perl -w + +# expect: +# - a new user $USER +# - added to group nogroup +# - no home directory /home/$USER + +use strict; +use lib_test; + +my $groupname = "nogroup"; +my $username = find_unused_name(); +my $cmd = "adduser --system --no-create-home $username"; + +my $homedir = "/home/$username"; + +if (!defined (getpwnam($username))) { + print "Testing $cmd... "; + `$cmd`; + my $error = ($?>>8); + if ($error) { + print "failed\n adduser returned an errorcode != 0 ($error)\n"; + exit $error; + } + + assert(check_user_exist ($username)); + assert(check_group_exist($groupname)); + assert(check_user_in_group($username,$groupname)); + assert(check_homedir_not_exist($homedir)); + print "ok\n"; +} + |