Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Admin
HomeBot
Commits
fca05393
Commit
fca05393
authored
Jun 04, 2020
by
Admin
Browse files
morphine for ~ 20 modules smoke load test;
parent
5a936f87
Changes
1
Hide whitespace changes
Inline
Side-by-side
t/FHEM/00_smoke_load.t
View file @
fca05393
...
...
@@ -11,9 +11,28 @@ closedir $dh;
# modules that need a threaded perl
my
%needthreads
=
map
{
$_
=>
1
}
qw(00_SONOS.pm 21_SONOSPLAYER.pm)
;
# modules that do trouble and where we have no quick solution other than disable test
# it's basically a cry for help, hall of shame (for the author & tester) and the modules
# should be fixed properly to pass the test ASAP
my
%gets_morphine
=
map
{
$_
=>
1
}
qw(x
00_MQTT.pm
10_MQTT_BRIDGE.pm 10_MQTT_DEVICE.pm 10_MQTT_GENERIC_BRIDGE.pm
11_OWX_CCC.pm 11_OWX_FRM.pm 11_OWX_SER.pm 11_OWX_TCP.pm
38_JawboneUp.pm
44_S7_Client.pm 44_S7_S5Client.pm 44_S7_S7Client.pm
46_TRX_ELSE.pm
59_OPENWEATHER.pm
89_VCONTROL.pm
98_GOOGLECAST.pm 98_MediaList.pm 98_configdb.pm 98_feels_like.pm 98_unittest.pm)
;
LOAD_LOOP:
for
my
$module
(
@modules
)
{
next
LOAD_LOOP
if
(
!
$Config
{
useithreads
}
&&
$needthreads
{
$module
});
# skip is testing on non-threaded perl
next
LOAD_LOOP
if
(
!
$Config
{
useithreads
}
&&
$needthreads
{
$module
});
# skip if testing on non-threaded perl
next
LOAD_LOOP
if
(
$gets_morphine
{
$module
});
# paliative medicine
is
(
CommandReload
(
undef
,
$module
),
undef
,
"
$module
loaded
");
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment