Fix removing "0 hours" from Next Recording In if the hour is a multiple of 10.
[mythtv-status.git] / t / 20-next-recording-has-hours.t
1 #!usr/bin/perl -w
2
3 # There was bug which converted:
4 #   Next Recording In: 10 Hours, 42 Minutes
5 # To:
6 #   Next Recording In: 142 Minutes
7 # Due to the regex for "0 Hours" being a bit enthusastic.
8
9
10 use strict;
11 use Test::More tests => 2;
12 use FindBin qw/$Bin/;
13
14 my $xml = "$Bin/xml/bug729400-wrong-recording-date.xml";
15
16 # Test that the guide data warning is present.
17 my $out = `$Bin/../bin/mythtv-status -d --file $xml --date '2013-12-09T21:02:12Z' 2>&1`;
18
19 #diag($out);
20
21 like($out, qr/MythTV status for localhost/, 'Header is present');
22 like($out, qr/Next Recording In: 10 Hours, 42 Minutes/, 'Next recording has hours as required');