From 22b7601dc4b3b88bb380424cc1cd3c720ab02637 Mon Sep 17 00:00:00 2001
From: herrmannj <>
Date: Thu, 24 Aug 2023 09:03:29 +0000
Subject: [PATCH] Cron.pm: wip

git-svn-id: https://svn.fhem.de/fhem/trunk@27894 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/t/FHEM/90_Cron/10_Cronlib.t       | 2 ++
 fhem/t/FHEM/90_Cron/99_Cronlib_DEBUG.t | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/fhem/t/FHEM/90_Cron/10_Cronlib.t b/fhem/t/FHEM/90_Cron/10_Cronlib.t
index 2990cc40a..ee6e42c6c 100644
--- a/fhem/t/FHEM/90_Cron/10_Cronlib.t
+++ b/fhem/t/FHEM/90_Cron/10_Cronlib.t
@@ -63,6 +63,8 @@ my $test = [
     [q(handle '$cron_text'), '0 0 2-8 * &1-5,6', qr(^$), 20230101000000, 20230102000000, 20230103000000, 20230104000000, 20230105000000, 20230106000000, 20230107000000, 20230114000000 ],
     # positional
     [q(handle '$cron_text'), '0 0 * * 4#l', qr(^$), 20230101000000, 20230126000000, 20230223000000, 20230330000000, 20230427000000, 20230525000000, 20230629000000 ],
+    [q(handle '$cron_text'), '0 0 * 2 6#5', qr(^$), 20230201000000, 20480229000000, 20760229000000, 21160229000000, 21440229000000, 21720229000000, 22120229000000 ],
+    [q(handle '$cron_text'), '0 0 * 2 6#-5', qr(^$), 20230201000000, 20480201000000, 20760201000000, 21160201000000, 21440201000000, 21720201000000, 22120201000000 ],
 
     # time series
     [q(Timeseries '$cron_text'), '0 12 3,4,5 2 0,2,3,4', qr(^$), 20230102150000, 20230201120000, 20230202120000, 20230203120000, 20230204120000], 
diff --git a/fhem/t/FHEM/90_Cron/99_Cronlib_DEBUG.t b/fhem/t/FHEM/90_Cron/99_Cronlib_DEBUG.t
index 2f9b69eac..a057c692f 100644
--- a/fhem/t/FHEM/90_Cron/99_Cronlib_DEBUG.t
+++ b/fhem/t/FHEM/90_Cron/99_Cronlib_DEBUG.t
@@ -16,7 +16,8 @@ my $test = [
     #[q(Feb-29 & Sunday '$cron_text'), '0 12 29 2 &7', qr(^$), 20230102150000, 20320229120000, sub {20600229120000}->()], 
     #[q(accept '$cron_text'), '1-5 * * * *', qr(^$), sub {my @r = (20230101000000); for my $h (0..23) {for my $m (1..5) {push @r, sprintf('20230101%02d%02d00', $h, $m)}}; @r}->()],
     #[q(handle '$cron_text'), '0 0 2-8 * &1-5,6', qr(^$), 20230101000000, 20230102000000, 20230103000000, 20230104000000, 20230105000000, 20230106000000, 20230107000000, 20230114000000 ],
-    [q(handle '$cron_text'), '0 0 * * 4#l', qr(^$), 20230101000000, 20230126000000, 20230223000000, 20230330000000, 20230427000000, 20230525000000, 20230629000000 ],
+    # [q(handle '$cron_text'), '0 0 * * 4#l', qr(^$), 20230101000000, 20230126000000, 20230223000000, 20230330000000, 20230427000000, 20230525000000, 20230629000000 ],
+    [q(handle '$cron_text'), '0 0 * 2 6#-5', qr(^$), 20230201000000, 20480201000000, 20760201000000, 21160201000000, 21440201000000, 21720201000000, 22120201000000 ],
 ];
 
 foreach my $t (@$test) {