diff options
Diffstat (limited to 'testsuite/test6.pl')
| -rw-r--r-- | testsuite/test6.pl | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/testsuite/test6.pl b/testsuite/test6.pl new file mode 100644 index 0000000..08a333b --- /dev/null +++ b/testsuite/test6.pl @@ -0,0 +1,31 @@ +#!/usr/bin/perl -w + +# expect: +# - a new user $USER with uid $want_uid and gid 0 +# - added to group nogroup +# - no home directory /home/$USER + +use strict; +use lib_test; + +my $username = find_unused_name(); +my $want_uid = find_unused_uid("system"); +my $want_gid = 0; + +my $cmd = "adduser --system --uid $want_uid --gid $want_gid $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, $want_uid)); + assert(check_homedir_exist ($username)); + assert(check_user_has_gid($username,$want_gid)); + print "ok\n"; +} + |