Skip to content

Commit 354669f

Browse files
authored
Merge pull request #20 from RotherOSS/issue-#7-unit_tests
Issue #7 unit tests
2 parents a138730 + 480485d commit 354669f

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

44 files changed

+497
-248
lines changed

FAQ.sopm

+16-16
Original file line numberDiff line numberDiff line change
@@ -435,58 +435,58 @@
435435
<CodeInstall Type="post"><![CDATA[
436436
437437
# create the package name
438-
my $CodeModule = 'var::packagesetup::' . $Param{Structure}-&gt;{Name}-&gt;{Content};
438+
my $CodeModule = 'var::packagesetup::' . $Param{Structure}->{Name}->{Content};
439439
440-
$Kernel::OM-&gt;Get($CodeModule)-&gt;CodeInstall();
440+
$Kernel::OM->Get($CodeModule)->CodeInstall();
441441
]]></CodeInstall>
442442
<CodeUpgrade Type="post"><![CDATA[
443443
444444
# create the package name
445-
my $CodeModule = 'var::packagesetup::' . $Param{Structure}-&gt;{Name}-&gt;{Content};
445+
my $CodeModule = 'var::packagesetup::' . $Param{Structure}->{Name}->{Content};
446446
447-
$Kernel::OM-&gt;Get($CodeModule)-&gt;CodeUpgrade();
447+
$Kernel::OM->Get($CodeModule)->CodeUpgrade();
448448
]]></CodeUpgrade>
449449
<CodeUpgrade Type="post" Version="1.5.3"><![CDATA[
450450
451451
# create the package name
452-
my $CodeModule = 'var::packagesetup::' . $Param{Structure}-&gt;{Name}-&gt;{Content};
452+
my $CodeModule = 'var::packagesetup::' . $Param{Structure}->{Name}->{Content};
453453
454-
$Kernel::OM-&gt;Get($CodeModule)-&gt;CodeUpgradeSpecial();
454+
$Kernel::OM->Get($CodeModule)->CodeUpgradeSpecial();
455455
]]></CodeUpgrade>
456456
<CodeUpgrade Type="post" Version="4.0.1"><![CDATA[
457457
458458
# create the package name
459-
my $CodeModule = 'var::packagesetup::' . $Param{Structure}-&gt;{Name}-&gt;{Content};
459+
my $CodeModule = 'var::packagesetup::' . $Param{Structure}->{Name}->{Content};
460460
461-
$Kernel::OM-&gt;Get($CodeModule)-&gt;CodeUpgradeFromLowerThan_4_0_1();
461+
$Kernel::OM->Get($CodeModule)->CodeUpgradeFromLowerThan_4_0_1();
462462
]]></CodeUpgrade>
463463
<CodeUpgrade Type="post" Version="4.0.91"><![CDATA[
464464
465465
# create the package name
466-
my $CodeModule = 'var::packagesetup::' . $Param{Structure}-&gt;{Name}-&gt;{Content};
466+
my $CodeModule = 'var::packagesetup::' . $Param{Structure}->{Name}->{Content};
467467
468-
$Kernel::OM-&gt;Get($CodeModule)-&gt;CodeUpgradeFromLowerThan_4_0_91();
468+
$Kernel::OM->Get($CodeModule)->CodeUpgradeFromLowerThan_4_0_91();
469469
]]></CodeUpgrade>
470470
<CodeUpgrade Type="post" Version="5.0.92"><![CDATA[
471471
472472
# create the package name
473-
my $CodeModule = 'var::packagesetup::' . $Param{Structure}-&gt;{Name}-&gt;{Content};
473+
my $CodeModule = 'var::packagesetup::' . $Param{Structure}->{Name}->{Content};
474474
475-
$Kernel::OM-&gt;Get($CodeModule)-&gt;CodeUpgradeFromLowerThan_5_0_92();
475+
$Kernel::OM->Get($CodeModule)->CodeUpgradeFromLowerThan_5_0_92();
476476
]]></CodeUpgrade>
477477
<CodeUninstall Type="pre"><![CDATA[
478478
479479
# create the package name
480-
my $CodeModule = 'var::packagesetup::' . $Param{Structure}-&gt;{Name}-&gt;{Content};
480+
my $CodeModule = 'var::packagesetup::' . $Param{Structure}->{Name}->{Content};
481481
482-
$Kernel::OM-&gt;Get($CodeModule)-&gt;CodeUninstall();
482+
$Kernel::OM->Get($CodeModule)->CodeUninstall();
483483
]]></CodeUninstall>
484484
<CodeReinstall Type="post"><![CDATA[
485485
486486
# create the package name
487-
my $CodeModule = 'var::packagesetup::' . $Param{Structure}-&gt;{Name}-&gt;{Content};
487+
my $CodeModule = 'var::packagesetup::' . $Param{Structure}->{Name}->{Content};
488488
489-
$Kernel::OM-&gt;Get($CodeModule)-&gt;CodeReinstall();
489+
$Kernel::OM->Get($CodeModule)->CodeReinstall();
490490
]]></CodeReinstall>
491491
<DatabaseInstall Type="post">
492492
<TableCreate Name="faq_language">

scripts/test/Console/Command/Admin/FAQ/Import.t

+11-2
Original file line numberDiff line numberDiff line change
@@ -14,11 +14,20 @@
1414
# along with this program. If not, see <https://www.gnu.org/licenses/>.
1515
# --
1616

17+
use v5.24;
1718
use strict;
1819
use warnings;
1920
use utf8;
2021

21-
use vars (qw($Self));
22+
# core modules
23+
24+
# CPAN modules
25+
26+
# OTOBO modules
27+
use Kernel::System::UnitTest::RegisterDriver; # Set up $Self and $Kernel::OM
28+
use Kernel::System::UnitTest::Selenium;
29+
30+
our $Self;
2231

2332
# get needed objects
2433
$Kernel::OM->ObjectParamAdd(
@@ -51,4 +60,4 @@ $Self->Is(
5160

5261
# cleanup is done by restore database
5362

54-
1;
63+
$Self->DoneTesting();

scripts/test/Console/Command/Maint/FAQ/ContentTypeSet.t

+10-2
Original file line numberDiff line numberDiff line change
@@ -14,11 +14,19 @@
1414
# along with this program. If not, see <https://www.gnu.org/licenses/>.
1515
# --
1616

17+
use v5.24;
1718
use strict;
1819
use warnings;
1920
use utf8;
2021

21-
use vars (qw($Self));
22+
# core modules
23+
24+
# CPAN modules
25+
26+
# OTOBO modules
27+
use Kernel::System::UnitTest::RegisterDriver; # Set up $Self and $Kernel::OM
28+
29+
our $Self;
2230

2331
my $CommandObject = $Kernel::OM->Get('Kernel::System::Console::Command::Maint::FAQ::ContentTypeSet');
2432

@@ -36,4 +44,4 @@ $Self->Is(
3644
"Kernel::System::Console::Command::Maint::FAQ::ContentTypeSet exit code",
3745
);
3846

39-
1;
47+
$Self->DoneTesting();

scripts/test/DynamicField/ObjectType/FAQ/ObjectDataGet.t

+10-4
Original file line numberDiff line numberDiff line change
@@ -14,11 +14,19 @@
1414
# along with this program. If not, see <https://www.gnu.org/licenses/>.
1515
# --
1616

17+
use v5.24;
1718
use strict;
1819
use warnings;
1920
use utf8;
2021

21-
use vars (qw($Self));
22+
# core modules
23+
24+
# CPAN modules
25+
26+
# OTOBO modules
27+
use Kernel::System::UnitTest::RegisterDriver; # Set up $Self and $Kernel::OM
28+
29+
our $Self;
2230

2331
# Get helper object
2432
$Kernel::OM->ObjectParamAdd(
@@ -156,6 +164,4 @@ continue {
156164
);
157165
}
158166

159-
# cleanup is done by RestoreDatabase
160-
161-
1;
167+
$Self->DoneTesting();

scripts/test/FAQ.t

+10-4
Original file line numberDiff line numberDiff line change
@@ -14,10 +14,18 @@
1414
# along with this program. If not, see <https://www.gnu.org/licenses/>.
1515
# --
1616

17+
use v5.24;
1718
use strict;
1819
use warnings;
1920

20-
use vars qw($Self);
21+
# core modules
22+
23+
# CPAN modules
24+
25+
# OTOBO modules
26+
use Kernel::System::UnitTest::RegisterDriver; # Set up $Self and $Kernel::OM
27+
28+
our $Self;
2129

2230
# get needed objects
2331
$Kernel::OM->ObjectParamAdd(
@@ -1143,6 +1151,4 @@ $Self->Is(
11431151
"FAQCount() with multiple Categories success"
11441152
);
11451153

1146-
# cleanup is done by restore database
1147-
1148-
1;
1154+
$Self->DoneTesting();

scripts/test/FAQ/Category/AgentCategorySearch.t

+11-2
Original file line numberDiff line numberDiff line change
@@ -14,10 +14,18 @@
1414
# along with this program. If not, see <https://www.gnu.org/licenses/>.
1515
# --
1616

17+
use v5.24;
1718
use strict;
1819
use warnings;
1920

20-
use vars qw($Self);
21+
# core modules
22+
23+
# CPAN modules
24+
25+
# OTOBO modules
26+
use Kernel::System::UnitTest::RegisterDriver; # Set up $Self and $Kernel::OM
27+
28+
our $Self;
2129

2230
$Kernel::OM->ObjectParamAdd(
2331
'Kernel::System::UnitTest::Helper' => {
@@ -300,4 +308,5 @@ for my $Test (@Tests) {
300308
}
301309

302310
}
303-
1;
311+
312+
$Self->DoneTesting();

scripts/test/FAQ/Category/CategoryAdd.t

+10-2
Original file line numberDiff line numberDiff line change
@@ -14,11 +14,19 @@
1414
# along with this program. If not, see <https://www.gnu.org/licenses/>.
1515
# --
1616

17+
use v5.24;
1718
use strict;
1819
use warnings;
1920
use utf8;
2021

21-
use vars qw($Self);
22+
# core modules
23+
24+
# CPAN modules
25+
26+
# OTOBO modules
27+
use Kernel::System::UnitTest::RegisterDriver; # Set up $Self and $Kernel::OM
28+
29+
our $Self;
2230

2331
# get needed objects
2432
$Kernel::OM->ObjectParamAdd(
@@ -187,4 +195,4 @@ for my $ParentCount ( 1 .. 10 ) {
187195
$AddedCategoryIDs{$CategoryID} = 1;
188196
}
189197

190-
1;
198+
$Self->DoneTesting();

scripts/test/FAQ/Category/CheckCategoryUserPermission.t

+10-4
Original file line numberDiff line numberDiff line change
@@ -14,10 +14,18 @@
1414
# along with this program. If not, see <https://www.gnu.org/licenses/>.
1515
# --
1616

17+
use v5.24;
1718
use strict;
1819
use warnings;
1920

20-
use vars qw($Self);
21+
# core modules
22+
23+
# CPAN modules
24+
25+
# OTOBO modules
26+
use Kernel::System::UnitTest::RegisterDriver; # Set up $Self and $Kernel::OM
27+
28+
our $Self;
2129

2230
$Kernel::OM->ObjectParamAdd(
2331
'Kernel::System::UnitTest::Helper' => {
@@ -204,6 +212,4 @@ continue {
204212
);
205213
}
206214

207-
# cleanup is done by restore database
208-
209-
1;
215+
$Self->DoneTesting();

0 commit comments

Comments
 (0)