Unit Tests - wait.t

- added unit test to demonstrate wait:tomorrow report issue
This commit is contained in:
Cory Donnelly 2010-08-23 12:42:06 -04:00
parent 44fe227595
commit 7d048a8ef8

View file

@ -28,7 +28,7 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 13; use Test::More tests => 15;
# Create the rc file. # Create the rc file.
if (open my $fh, '>', 'wait.rc') if (open my $fh, '>', 'wait.rc')
@ -67,6 +67,13 @@ $output = qx{../task rc:wait.rc ls};
like ($output, qr/nowait/ms, 'non-waiting task still visible'); like ($output, qr/nowait/ms, 'non-waiting task still visible');
like ($output, qr/yeswait/ms, 'waiting task now visible'); like ($output, qr/yeswait/ms, 'waiting task now visible');
qx{../task rc:wait.rc add wait:tomorrow tomorrow};
$output = qx{../task rc:wait.rc ls};
unlike ($output, qr/tomorrow/ms, 'waiting task invisible');
$output = qx{../task rc:wait.rc ls wait:tomorrow};
like ($output, qr/tomorrow/ms, 'waiting task visible when specifically asked for it');
# Cleanup. # Cleanup.
unlink 'pending.data'; unlink 'pending.data';
ok (!-r 'pending.data', 'Removed pending.data'); ok (!-r 'pending.data', 'Removed pending.data');