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

Unit Tests

Browse Source 
- Updated a test to use a command of length >= rc.abbreviation.minimum.
- Removed useless setup/teardown tests.
This commit is contained in:
Paul Beckingham
2014-05-31 21:42:51 -04:00
parent 72ceee198a
commit 37acb90579
1 changed files with 8 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
test/nag.t
View File

@@ -27,7 +27,7 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 8; use Test::More tests => 6;
# Ensure environment has no influence. # Ensure environment has no influence.
delete $ENV{'TASKDATA'}; delete $ENV{'TASKDATA'};
@@ -39,7 +39,6 @@ if (open my $fh, '>', 'nag.rc')
print $fh "data.location=.\n", print $fh "data.location=.\n",
"nag=NAG\n"; "nag=NAG\n";
close $fh; close $fh;
ok (-r 'nag.rc', 'Created nag.rc');
} }
my $setup = "../src/task rc:nag.rc add due:yesterday one 2>&1;" my $setup = "../src/task rc:nag.rc add due:yesterday one 2>&1;"
@@ -50,21 +49,15 @@ my $setup = "../src/task rc:nag.rc add due:yesterday one 2>&1;"
. "../src/task rc:nag.rc add six 2>&1;"; . "../src/task rc:nag.rc add six 2>&1;";
qx{$setup}; qx{$setup};
like (qx{../src/task rc:nag.rc 6 do 2>&1 >/dev/null}, qr/NAG/, 'do pri: -> nag'); like (qx{../src/task rc:nag.rc 6 done 2>&1 >/dev/null}, qr/NAG/, 'done pri: -> nag');
like (qx{../src/task rc:nag.rc 5 do 2>&1 >/dev/null}, qr/NAG/, 'do pri:L -> nag'); like (qx{../src/task rc:nag.rc 5 done 2>&1 >/dev/null}, qr/NAG/, 'done pri:L -> nag');
like (qx{../src/task rc:nag.rc 4 do 2>&1 >/dev/null}, qr/NAG/, 'do pri:M-> nag'); like (qx{../src/task rc:nag.rc 4 done 2>&1 >/dev/null}, qr/NAG/, 'done pri:M-> nag');
like (qx{../src/task rc:nag.rc 3 do 2>&1 >/dev/null}, qr/NAG/, 'do pri:H-> nag'); like (qx{../src/task rc:nag.rc 3 done 2>&1 >/dev/null}, qr/NAG/, 'done pri:H-> nag');
like (qx{../src/task rc:nag.rc 2 do 2>&1 >/dev/null}, qr/NAG/, 'do due:tomorrow -> nag'); like (qx{../src/task rc:nag.rc 2 done 2>&1 >/dev/null}, qr/NAG/, 'done due:tomorrow -> nag');
my $output = qx{../src/task rc:nag.rc 1 do 2>&1 >/dev/null}; my $output = qx{../src/task rc:nag.rc 1 done 2>&1 >/dev/null};
unlike ($output, qr/NAG/, 'do due:yesterday -> no nag'); unlike ($output, qr/NAG/, 'done due:yesterday -> no nag');
# Cleanup. # Cleanup.
unlink qw(pending.data completed.data undo.data backlog.data nag.rc); unlink qw(pending.data completed.data undo.data backlog.data nag.rc);
ok (! -r 'pending.data' &&
! -r 'completed.data' &&
! -r 'undo.data' &&
! -r 'backlog.data' &&
! -r 'nag.rc', 'Cleanup');
exit 0; exit 0;