/usr/share/otrs/scripts/test/Environment.t is in otrs2 3.3.5-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # --
# Environment.t - Environment tests
# Copyright (C) 2001-2014 OTRS AG, http://otrs.com/
# --
# 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 vars (qw($Self));
use Kernel::System::Environment;
# create local objects
my $EnvironmentObject = Kernel::System::Environment->new( %{$Self} );
my %OSInfo = $EnvironmentObject->OSInfoGet();
for my $Attribute (qw(Hostname OS OSName User)) {
$Self->True(
$OSInfo{$Attribute},
"OSInfoGet - returned $Attribute",
);
}
$Self->True(
$OSInfo{OSName} !~ m{\A Unknown }xms,
"OSInfoGet - OSName is not unknown but '$OSInfo{OSName}'",
);
my %PerlInfo = $EnvironmentObject->PerlInfoGet();
$Self->True(
$PerlInfo{PerlVersion} =~ /^\d.\d\d.\d/,
"PerlInfoGet - retrieved Perl version.",
);
$Self->False(
$PerlInfo{Modules},
"PerlInfoGet - no module versions if not specified.",
);
%PerlInfo = $EnvironmentObject->PerlInfoGet(
BundledModules => 1,
);
$Self->True(
$PerlInfo{PerlVersion} =~ /^\d.\d\d.\d/,
"PerlInfoGet w/ BundledModules - retrieved Perl version.",
);
$Self->True(
$PerlInfo{Modules}{CGI} =~ /^\d.\d\d$/,
"PerlInfoGet w/ BundledModules - found version for CGI $PerlInfo{Modules}->{CGI}",
);
$Self->True(
$PerlInfo{Modules}->{'JSON::PP'} =~ /^\d.\d\d/,
"PerlInfoGet w/ BundledModules - found version for JSON::PP $PerlInfo{Modules}->{'JSON::PP'}",
);
my $Version = $EnvironmentObject->ModuleVersionGet(
Module => 'MIME::Parser',
);
$Self->True(
$Version =~ /^\d\.\d\d\d$/,
"ModuleVersionGet - Version for MIME::Parser is $Version.",
);
$Version = $EnvironmentObject->ModuleVersionGet(
Module => 'SCHMIME::Parser',
);
$Self->False(
$Version,
"ModuleVersionGet - Version for SCMIME::Parser does not exist.",
);
my %DBInfo = $EnvironmentObject->DBInfoGet();
for my $Key (qw(Database Host Type User Version)) {
$Self->True(
$DBInfo{$Key} =~ /\w\w/,
"DBInfoGet - returned value for $Key",
);
}
my %OTRSInfo = $EnvironmentObject->OTRSInfoGet();
for my $Key (qw(Version Home Host Product SystemID DefaultLanguage)) {
$Self->True(
$OTRSInfo{$Key},
"OTRSInfoGet - returned value for $Key",
);
}
1;
|