GothenburgBitFactory/taskwarrior
1
0
Fork 0
mirror of https://github.com/GothenburgBitFactory/taskwarrior.git synced 2025-08-27 00:57:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Unit Tests - improved logic in nag.t

Browse source 
- Used the correct builtin Test::More method.
This commit is contained in:
Paul Beckingham 2009-05-09 14:03:54 -04:00
parent f9c3103264
commit e81fdd1975
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/tests/nag.t
View file

@ -47,12 +47,12 @@ my $setup = "../task rc:nag.rc add due:yesterday one;"
. "../task rc:nag.rc add six;";
qx{$setup};
like (qx{../task rc:nag.rc do 6}, qr/NAG/, 'do pri: -> nag');
like (qx{../task rc:nag.rc do 5}, qr/NAG/, 'do pri:L -> nag');
like (qx{../task rc:nag.rc do 4}, qr/NAG/, 'do pri:M-> nag');
like (qx{../task rc:nag.rc do 3}, qr/NAG/, 'do pri:H-> nag');
like (qx{../task rc:nag.rc do 2}, qr/NAG/, 'do due:tomorrow -> nag');
ok (qx{../task rc:nag.rc do 1} !~ qr/NAG/, 'do due:yesterday -> no nag');
like (qx{../task rc:nag.rc do 6}, qr/NAG/, 'do pri: -> nag');
like (qx{../task rc:nag.rc do 5}, qr/NAG/, 'do pri:L -> nag');
like (qx{../task rc:nag.rc do 4}, qr/NAG/, 'do pri:M-> nag');
like (qx{../task rc:nag.rc do 3}, qr/NAG/, 'do pri:H-> nag');
like (qx{../task rc:nag.rc do 2}, qr/NAG/, 'do due:tomorrow -> nag');
unlike (qx{../task rc:nag.rc do 1}, qr/NAG/, 'do due:yesterday -> no nag');
# Cleanup.
unlink 'pending.data';