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
|
# --
# 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));
my $ValidObject = $Kernel::OM->Get('Kernel::System::Valid');
$Self->False(
$ValidObject->can('AutoLoadTest'),
'Valid object has no method AutoLoadTest by default.',
);
my $HelperObject = $Kernel::OM->Get('Kernel::System::UnitTest::Helper');
$HelperObject->ConfigSettingChange(
Valid => 1,
Key => 'AutoloadPerlPackages###1000-Test',
Value => ['Kernel::Autoload::Test'],
);
# Recreate config object, which calls the autoload.
$Kernel::OM->ObjectsDiscard( Objects => ['Kernel::Config'] );
$Kernel::OM->Get('Kernel::Config');
$Self->Is(
$Kernel::OM->Get('Kernel::System::Valid')->AutoloadTest(),
1,
"Autoload correctly added a new function to Kernel::System::Valid",
);
1;
|
