From b95152f250671307117c61ce8e5eaf0ae6c348da Mon Sep 17 00:00:00 2001
From: Beta-User <>
Date: Sun, 20 Mar 2022 11:08:58 +0000
Subject: [PATCH] 10_RHASSPY: small changes to test mode

git-svn-id: https://svn.fhem.de/fhem/trunk@25862 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/RHASSPY/10_RHASSPY.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/contrib/RHASSPY/10_RHASSPY.pm b/fhem/contrib/RHASSPY/10_RHASSPY.pm
index 440e6a2cc..c68839e17 100644
--- a/fhem/contrib/RHASSPY/10_RHASSPY.pm
+++ b/fhem/contrib/RHASSPY/10_RHASSPY.pm
@@ -320,7 +320,7 @@ sub Define {
 
     $hash->{defaultRoom} = $defaultRoom;
     my $language = $h->{language} // shift @{$anon} // lc AttrVal('global','language','en');
-    $hash->{MODULE_VERSION} = '0.5.22';
+    $hash->{MODULE_VERSION} = '0.5.23';
     $hash->{baseUrl} = $Rhasspy;
     initialize_Language($hash, $language) if !defined $hash->{LANGUAGE} || $hash->{LANGUAGE} ne $language;
     $hash->{LANGUAGE} = $language;
@@ -620,7 +620,7 @@ sub Get {
                 my $start = gettimeofday();
                 my $tHash = { hash=>$hash, CL=>$hash->{CL}, reading=> 'testResult', start=>$start};
                 $hash->{asyncGet} = $tHash;
-                InternalTimer(gettimeofday()+4, sub {
+                InternalTimer(gettimeofday()+30, sub {
                   asyncOutput($tHash->{CL}, "Test file $values[0] is initiated. See if internal 'testline' is rising and check testResult reading later");
                   delete($hash->{asyncGet});
                 }, $tHash, 0);
@@ -3196,6 +3196,7 @@ sub respond {
     my $delay    = shift // ReadingsNum($hash->{NAME}, "sessionTimeout_$data->{siteId}", $hash->{sessionTimeout});
 
     if ( defined $hash->{testline} ) {
+        $response = $response->{text} if ref $response eq 'HASH';
         $hash->{helper}->{test}->{result}->[$hash->{testline}] .= " => Response: $response";
         $hash->{testline}++;
         return testmode_next($hash);