Allow pretending to run on a specific date for testing.

diff --git a/ChangeLog b/ChangeLog
index be3e4711fac194ba12ffbc8797b942c7233ec471..3695b12fb3f1744d893cc7fba77b505627283e0f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,9 @@
        Fix up processing of dates with oldstyle timestamps for in
        progress recordings.
 
+       Add support to specify the date we're running mythtv-status on
+       so that we can test various scenarios.
+
 2013-10-27     Andrew Ruthven
        Handle the handling in POD in Perl 5.18. Force the return code
        =item lines to be handled correctly.

diff --git a/bin/mythtv-status b/bin/mythtv-status
index cf8dcdc67e9ea2e930874340b40754869723a062..fd1b918ae66a0da2b364a83d3555c3bc3469524f 100755 (executable)
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -126,6 +126,7 @@ GetOptions(
   'file=s'                => \$c->{'xml_file'},
   's|save-file=s'         => \$c->{'save_file'},
 
+  'date=s'  => \$c->{'date'},
   'verbose' => \$verbose,
   'help|?'  => \$help,
   ) || pod2usage("\nUse --help for help.\n");
@@ -324,7 +325,11 @@ my @blocks = (
       },
     },
     'subs' => {
-      'find_next' => sub { $warn_present ||= 1; $next_time = 'now' }
+      'find_next' =>
+        sub {
+          $warn_present ||= 1;
+          $next_time    = $c->{'date'} || 'now';
+        }
       }
   },
 
@@ -461,7 +466,7 @@ my @blocks = (
           if $next_time eq 'Never' || $next_time eq 'now';
 
         my $err;
-        my $delta   = DateCalc('now', $next_time, \$err, 0);
+        my $delta   = DateCalc($c->{'date'} || 'now', $next_time, \$err, 0);
         my $seconds = Delta_Format($delta, 'approx', 0, '%sh');
 
        # If the next recording is more than 1 day in the future,
@@ -549,6 +554,16 @@ my @blocks = (
 our $today    = substr(ParseDate('today'), 0, 8);
 our $tomorrow = substr(ParseDate('tomorrow'), 0, 8);
 
+if ($c->{'date'}) {
+  $today    = substr(ParseDate($c->{'date'}), 0, 8);
+  $tomorrow = substr(DateCalc($c->{'date'}, ParseDateDelta('1 day')), 0, 8);
+}
+
+if ($verbose) {
+  print "Today:    $today\n";
+  print "Tomorrow: $tomorrow\n";
+}
+
 # If we're in return code only mode then we disable all blocks
 # except for those explicitly enabled.
 if ($return_code_only) {
@@ -1257,6 +1272,10 @@ about to be recorded.
 
 Use colour when showing the status of the encoder(s).
 
+=item B<--date>
+
+Set the date to run as, used for debugging purposes.
+
 =item B<-d, --description>
 
 Display the description for the scheduled recordings.

diff --git a/t/01-test-help.t b/t/01-test-help.t
index 6c343ee9a52d704659ffb1b1796f6a06feb66ba0..205268640fddb01dd57f802f91de549efd5bc2e2 100644 (file)
--- a/t/01-test-help.t
+++ b/t/01-test-help.t
@@ -29,6 +29,9 @@ Options:
     -c, --colour
         Use colour when showing the status of the encoder(s).
 
+    --date
+        Set the date to run as, used for debugging purposes.
+
     -d, --description
         Display the description for the scheduled recordings.
 

diff --git a/t/15-unicode.t b/t/15-unicode.t
index e80e9ff70e2e7e5fd6db3feb18e48000485f3900..344015e3ef724343041db6ed5b29a5b53c5c0622 100644 (file)
--- a/t/15-unicode.t
+++ b/t/15-unicode.t
@@ -7,7 +7,7 @@ use FindBin qw/$Bin/;
 my $xml = "$Bin/xml/wide-character.xml";
 
 # Test that the guide data warning is present.
-my $out = `$Bin/../bin/mythtv-status -d --file $xml 2>&1`;
+my $out = `$Bin/../bin/mythtv-status -d --file $xml --date '2012-07-07 22:12' 2>&1`;
 
 #diag($out);