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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
# --
# Copyright (C) 2021 Znuny GmbH, https://znuny.org/
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (AGPL). If you
# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
# --
use strict;
use warnings;
use utf8;
use vars (qw($Self));
use Kernel::System::VariableCheck qw(:all);
$Kernel::OM->ObjectParamAdd(
'Kernel::System::UnitTest::Helper' => {
RestoreDatabase => 1,
},
);
# get needed objects
my $HelperObject = $Kernel::OM->Get('Kernel::System::UnitTest::Helper');
my @Tests = (
{
Name => "No 'Parameter'",
CommandModule => 'Kernel::System::Console::Command::Help',
ExitCode => 1,
STDERR => "Error: please provide a value for argument 'command'",
},
{
Name => "Non functional 'Parameter'",
CommandModule => 'Kernel::System::Console::Command::Help',
Parameter => 'Help',
ExitCode => 0,
STDOUT => 'otrs.Console.pl Help command',
},
{
Name => "Functional 'Parameter'",
CommandModule => 'Kernel::System::Console::Command::Help',
Parameter => 'Lis',
ExitCode => 0,
STDOUT => 'List all installed packages',
},
{
Name => "Expected invalid 'Parameter'",
CommandModule => 'Kernel::System::Console::Command::Help',
Parameter => 'NonExistingSearchTerm',
ExitCode => 0,
STDOUT => 'No commands found.',
},
{
Name => "Expected list 'Parameter'",
CommandModule => 'Kernel::System::Console::Command::Maint::Cache::Delete',
Parameter => [ '--type', 'Znuny' ],
ExitCode => 0,
STDOUT => 'Deleting cache...',
},
);
for my $Test (@Tests) {
my $Result = $HelperObject->ConsoleCommand(
CommandModule => $Test->{CommandModule},
Parameter => $Test->{Parameter},
);
$Self->True(
scalar IsHashRefWithData($Result),
"ConsoleCommand returns a HashRef with data ($Test->{Name})",
) || return 1;
$Self->Is(
$Result->{ExitCode},
$Test->{ExitCode},
"Expected ExitCode ($Test->{Name})",
);
STD:
for my $STD (qw(STDOUT STDERR)) {
next STD if !IsStringWithData( $Test->{$STD} );
$Self->True(
index( $Result->{$STD}, $Test->{$STD} ) > -1,
"$STD contains '$Test->{ $STD }' ($Test->{Name})",
);
}
}
1;
|
