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
|
# --
# Copyright (C) 2001-2021 OTRS AG, https://otrs.com/
# 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 (GPL). If you
# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
# --
use strict;
use warnings;
use utf8;
use vars (qw($Self));
# get needed objects
my $ConfigObject = $Kernel::OM->Get('Kernel::Config');
my $StatsObject = $Kernel::OM->Get('Kernel::System::Stats');
my $Stats = $StatsObject->StatsListGet(
UserID => 1,
);
# get helper object
$Kernel::OM->ObjectParamAdd(
'Kernel::System::UnitTest::Helper' => {
RestoreDatabase => 1,
},
);
my $HelperObject = $Kernel::OM->Get('Kernel::System::UnitTest::Helper');
$Self->True(
scalar keys %{$Stats},
( scalar keys %{$Stats} ) . " Stats found",
);
STATID:
for my $StatID ( sort { int $a <=> int $b } keys %{$Stats} ) {
my $Stat = $StatsObject->StatsGet( StatID => $StatID );
next STATID if ( $Stat->{StatType} eq 'static' );
my $ResultLive = $StatsObject->StatsRun(
StatID => $StatID,
GetParam => $Stat,
UserID => 1,
);
$Self->True(
ref $ResultLive eq 'ARRAY',
"StatsRun live mode (StatID $StatID)",
);
my $ResultPreview = $StatsObject->StatsRun(
StatID => $StatID,
GetParam => $Stat,
Preview => 1,
UserID => 1,
);
$Self->True(
ref $ResultPreview eq 'ARRAY',
"StatsRun preview mode (StatID $StatID) $Stat->{Object}",
) || next STATID;
$Self->True(
ref $ResultPreview->[1] eq 'ARRAY',
"StatsRun preview mode headline (StatID $StatID) $Stat->{Object}",
) || next STATID;
$Self->Is(
scalar @{ $ResultPreview->[1] },
scalar @{ $ResultLive->[1] },
"StatsRun preview result has same number of columns in Row 1 as live result (StatID $StatID) $Stat->{Object}",
);
# TicketList stats make a ticket search and that could return identical results in preview and live
# if there are not enough tickets in the system (for example just one).
if ( $Stat->{Object} ne 'TicketList' ) {
$Self->IsNotDeeply(
$ResultLive,
$ResultPreview,
"StatsRun differs between live and preview (StatID $StatID)",
);
}
}
# cleanup is done by RestoreDatabase.
1;
|
