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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
# --
# 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 Data::Dumper;
use Kernel::System::VariableCheck qw(:all);
my $ConfigObject = $Kernel::OM->Get('Kernel::Config');
my $SeleniumObject = $Kernel::OM->Get('Kernel::System::UnitTest::Selenium');
my $HelperObject = $Kernel::OM->Get('Kernel::System::UnitTest::Helper');
my $DateTimeObject = $Kernel::OM->Create('Kernel::System::DateTime');
# GetScreenshotFileName
my @Tests = (
{
Name => 'Filename',
Data => {
Filename => 'ZnunyRocks',
},
Expected => "ZnunyRocks.png",
},
);
for my $Test (@Tests) {
my $ScreenshotFileName = $SeleniumObject->GetScreenshotFileName(
%{ $Test->{Data} },
);
$Self->Is(
$ScreenshotFileName,
$Test->{Expected},
$Test->{Name},
);
}
# GetScreenshotDirectory
my $Home = $SeleniumObject->{Home};
my $WebPath = $ConfigObject->Get('Frontend::WebPath');
@Tests = (
{
Name => 'Default',
Data => {},
Expected => {
WebPath => $WebPath . 'SeleniumScreenshots',
FullPath => $Home . '/var/httpd/htdocs/SeleniumScreenshots',
}
},
{
Name => 'Additional Directory',
Data => {
Directory => 'ZnunyRocks',
},
Expected => {
WebPath => $WebPath . 'SeleniumScreenshots/ZnunyRocks',
FullPath => $Home . '/var/httpd/htdocs/SeleniumScreenshots/ZnunyRocks',
}
},
);
for my $Test (@Tests) {
my %ScreenshotDirectory = $SeleniumObject->GetScreenshotDirectory(
%{ $Test->{Data} },
);
$Self->IsDeeply(
\%ScreenshotDirectory,
$Test->{Expected},
$Test->{Name},
);
}
# GetScreenshotURL
my $HttpType = $ConfigObject->Get('HttpType');
my $Hostname = $HelperObject->GetTestHTTPHostname();
@Tests = (
{
Name => 'Default',
Data => {
WebPath => '/otrs-web/SeleniumScreenshots/ZnunyRocks',
Filename => 'AgentTicketZoom',
},
Expected => "$HttpType://$Hostname" . "/otrs-web/SeleniumScreenshots/ZnunyRocks/AgentTicketZoom",
},
);
for my $Test (@Tests) {
my $ScreenshotURL = $SeleniumObject->GetScreenshotURL(
%{ $Test->{Data} },
);
$Self->Is(
$ScreenshotURL,
$Test->{Expected},
$Test->{Name},
);
}
1;
|
