1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#! /usr/bin/perl -Idebian/tests/lib
use diagnostics;
use strict;
use warnings;
my $name='duq';
use AdduserTestsCommon;
END {
remove_tree("/home/$name");
remove_tree("/var/mail/$name");
}
assert_user_does_not_exist($name);
assert_command_success(
'/usr/sbin/adduser',
'--stdoutmsglevel=error', '--stderrmsglevel=error',
'--system',
$name
);
assert_user_exists($name);
my $output = `/usr/sbin/deluser --stdoutmsglevel=error --stderrmsglevel=error $name 2>&1`;
is($output, '', 'option "--stdoutmsglevel=error" silences deluser output under normal use');
assert_user_does_not_exist($name);
# vim: tabstop=4 shiftwidth=4 expandtab
|
