gergely/taskwarrior-2.x
1
0
Fork 0
Code Issues Actions Packages Projects Releases 1 Wiki Activity

Bug #936

Browse Source 
- Fixed nag.t failing with Perl 5.8.4
This commit is contained in:
Owen Clarke
2012-03-05 09:16:11 +11:00
parent 77ac156060
commit 4792517515
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
test/nag.t
View File

@@ -52,7 +52,8 @@ like (qx{../src/task rc:nag.rc 5 do}, qr/NAG/, 'do pri:L -> nag');
like (qx{../src/task rc:nag.rc 4 do}, qr/NAG/, 'do pri:M-> nag'); like (qx{../src/task rc:nag.rc 4 do}, qr/NAG/, 'do pri:M-> nag');
like (qx{../src/task rc:nag.rc 3 do}, qr/NAG/, 'do pri:H-> nag'); like (qx{../src/task rc:nag.rc 3 do}, qr/NAG/, 'do pri:H-> nag');
like (qx{../src/task rc:nag.rc 2 do}, qr/NAG/, 'do due:tomorrow -> nag'); like (qx{../src/task rc:nag.rc 2 do}, qr/NAG/, 'do due:tomorrow -> nag');
unlike (qx{../src/task rc:nag.rc 1 do}, qr/NAG/, 'do due:yesterday -> no nag'); my $output = qx{../src/task rc:nag.rc 1 do};
unlike ($output, qr/NAG/, 'do due:yesterday -> no nag');
# Cleanup. # Cleanup.
unlink qw(pending.data completed.data undo.data backlog.data synch.key nag.rc); unlink qw(pending.data completed.data undo.data backlog.data synch.key nag.rc);