diff --git a/controls_matrix.txt b/controls_matrix.txt deleted file mode 100644 index 35d67bd..0000000 --- a/controls_matrix.txt +++ /dev/null @@ -1 +0,0 @@ -UPD 2022-11-24_23:21:11 16031 FHEM/98_Matrix.pm diff --git a/controls_mod_template.txt b/controls_mod_template.txt deleted file mode 100644 index e2a7990..0000000 --- a/controls_mod_template.txt +++ /dev/null @@ -1 +0,0 @@ -UPD 2022-01-07_00:05:45 4688 FHEM/98_Matrix.pm diff --git a/cpanfile b/cpanfile deleted file mode 100644 index 4eade56..0000000 --- a/cpanfile +++ /dev/null @@ -1,4 +0,0 @@ -requires 'Test2::Suite'; -requires 'Devel::Cover'; -requires 'Devel::Cover::Report::Clover'; -recommends 'Pod::Usage'; diff --git a/hooks/pre-commit b/hooks/pre-commit index 7c0320b..9ac47d6 100644 --- a/hooks/pre-commit +++ b/hooks/pre-commit @@ -1,20 +1,20 @@ -parseParams#!/usr/bin/perl -w +#!/usr/bin/perl -w use File::Basename; use POSIX qw(strftime); use strict; -my @filenames = ( 'FHEM/98_Matrix.pm', - 'lib/FHEM/Devices/Matrix.pm' - ); +my @filenames = ( 'FHEM/70_Matrix.pm', + 'lib/FHEM/Devices/Matrix/Client.pm', + ); -my $controlsfile = 'controls_Matrix.txt'; +my $controlsfile = 'controls_Matrix.txt'; open(FH, ">$controlsfile") || return("Can't open $controlsfile: $!"); for my $filename (@filenames) { my @statOutput = stat($filename); - + if (scalar @statOutput != 13) { printf 'error: stat has unexpected return value for ' . $filename . "\n"; next; diff --git a/t/FHEM/98_MATRIX/00_define.t b/t/FHEM/98_MATRIX/00_define.t deleted file mode 100644 index f6d8f31..0000000 --- a/t/FHEM/98_MATRIX/00_define.t +++ /dev/null @@ -1,31 +0,0 @@ -use strict; -use warnings; - -use Test2::V0; -use Test2::Tools::Compare qw{is U}; - -InternalTimer(time()+1, sub() { - my %hash; - $hash{TEMPORARY} = 1; - $hash{NAME} = q{dummyMatrix}; - $hash{TYPE} = q{Matrix server user}; - $hash{STAE} = q{???}; - - subtest "Matrix Test checking define" => sub { - $hash{DEF} = "pass"; - plan(2); - my $ret = Matrix_Define(\%hash,qq{$hash{NAME} $hash{TYPE}}); - like ($ret, qr/too few parameters: define Matrix /, 'check error message Matrix_Define'); - - $ret = Matrix_Define(\%hash,qq{$hash{NAME} $hash{TYPE} $hash{DEF}}); - is ($ret, U(), 'check returnvalue Matrix_Define'); - }; - - - - done_testing(); - exit(0); - -}, 0); - -1; \ No newline at end of file diff --git a/t/FHEM/98_MATRIX/fhem.cfg b/t/FHEM/98_MATRIX/fhem.cfg deleted file mode 100644 index 6508fce..0000000 --- a/t/FHEM/98_MATRIX/fhem.cfg +++ /dev/null @@ -1 +0,0 @@ -define dummyMatrix Matrix matrix.web05.de \ No newline at end of file