fhem-mirror/fhem/t/FHEM/98_PHC/30_Set.t

##############################################
# test parsing
##############################################

use strict;
use warnings;
use Test::More;
use FHEM::Modbus::TestUtils qw(:all);

fhem 'attr global mseclog 1';
NextStep();

sub testStep1 {
    CheckAndReset();
    fhem 'set PHC JRM22o1 senken';
    return 0.1;
}

sub testStep2 {
    is(FhemTestUtils_gotLog("XMLRPC called with service.stm.sendTelegram and 0x00,0x56,0x26,0x03,0x58,0x02"), 1, "got XMLRPC Log");
}


sub testStep10 {
    CheckAndReset();
    fhem 'set PHC JRM22o1 senken prio=2 set=1 time=50';
    return 0.1;
}

sub testStep11 {
    is(FhemTestUtils_gotLog("XMLRPC called with service.stm.sendTelegram and 0x00,0x56,0x26,0x42,0x32,0x00"), 1, "got XMLRPC Log");
}


sub testStep20 {
    CheckAndReset();
    fhem 'set PHC Rollade_AZ_Teich senken prio=2 set=1 time=50';
    return 0.1;
}

sub testStep21 {
    is(FhemTestUtils_gotLog("XMLRPC called with service.stm.sendTelegram and 0x00,0x56,0x26,0x42,0x32,0x00"), 1, "got XMLRPC Log");
}


sub testStep30 {
    CheckAndReset();
    #fhem 'attr PHC HTTPMOD PHCService';
    fhem 'set PHC Wohnen_Deckenleuchte_am_Kamin Dunkler Dimmen time=10';
    return 0.1;
}

sub testStep31 {
    is(FhemTestUtils_gotLog("XMLRPC called with service.stm.sendTelegram and 0x00,0xA5,0x09,0x0F,0x00"), 1, "got XMLRPC Log");
}


sub testStep50 {
    CheckAndReset();
    fhem 'set PHC Arbeiten-Lampenschiene An_mit_Timer time=5';
    return 0.1;
}

sub testStep51 {
    is(FhemTestUtils_gotLog("XMLRPC called with service.stm.sendTelegram and 0x00,0x43,0x4A,0x05,0x00"), 1, "got XMLRPC Log");
}


sub testStep60 {
    CheckAndReset();
    #fhem 'attr PHC HTTPMOD PHCService';
    fhem 'set PHC Arbeiten-Lampenschiene An mit Timer time=5';
    return 0.1;
}

sub testStep61 {
    is(FhemTestUtils_gotLog("XMLRPC called with service.stm.sendTelegram and 0x00,0x43,0x4A,0x05,0x00"), 1, "got XMLRPC Log");
}


sub testStep90 {
    CheckAndReset();
    fhem 'set PHC ?';
    return 0.1;
}


1;