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

Unit Tests

Browse Source 
- Modified testing to accomodate new split between stdout/stderr.
This commit is contained in:
Paul Beckingham
2012-07-03 15:43:19 -04:00
parent 75822eed47
commit da575c4043
185 changed files with 1591 additions and 1591 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
test/default.t
View File

@@ -43,43 +43,43 @@ if (open my $fh, '>', 'default.rc')
}
# Set up a default command, project and priority.
qx{../src/task rc:default.rc add all defaults};
my $output = qx{../src/task rc:default.rc list};
qx{../src/task rc:default.rc add all defaults 2>&1};
my $output = qx{../src/task rc:default.rc list 2>&1};
like ($output, qr/ all defaults/, 'task added');
like ($output, qr/ PROJECT /, 'default project added');
like ($output, qr/ M /, 'default priority added');
like ($output, qr/\//, 'default due added');
unlink 'pending.data';
qx{../src/task rc:default.rc add project:specific priority:L due:eoy all specified};
$output = qx{../src/task rc:default.rc list};
qx{../src/task rc:default.rc add project:specific priority:L due:eoy all specified 2>&1};
$output = qx{../src/task rc:default.rc list 2>&1};
like ($output, qr/ all specified/, 'task added');
like ($output, qr/ specific /, 'project specified');
like ($output, qr/ L /, 'priority specified');
like ($output, qr/\//, 'due specified');
unlink 'pending.data';
qx{../src/task rc:default.rc add project:specific project specified};
$output = qx{../src/task rc:default.rc list};
qx{../src/task rc:default.rc add project:specific project specified 2>&1};
$output = qx{../src/task rc:default.rc list 2>&1};
like ($output, qr/ project specified/, 'task added');
like ($output, qr/ specific /, 'project specified');
like ($output, qr/ M /, 'default priority added');
like ($output, qr/\//, 'default due added');
unlink 'pending.data';
qx{../src/task rc:default.rc add priority:L priority specified};
$output = qx{../src/task rc:default.rc list};
qx{../src/task rc:default.rc add priority:L priority specified 2>&1};
$output = qx{../src/task rc:default.rc list 2>&1};
like ($output, qr/ priority specified/, 'task added');
like ($output, qr/ PROJECT /, 'default project added');
like ($output, qr/ L /, 'priority specified');
like ($output, qr/\//, 'default due added');
$output = qx{../src/task rc:default.rc};
$output = qx{../src/task rc:default.rc 2>&1};
like ($output, qr/1 PROJECT L .+ priority specified/, 'default command worked');
qx{../src/task rc:default.rc add project:HOME priority:M due:tomorrow all specified};
qx{echo 'y' | ../src/task rc:default.rc config default.command 'list priority:M'};
$output = qx{../src/task rc:default.rc};
qx{../src/task rc:default.rc add project:HOME priority:M due:tomorrow all specified 2>&1};
qx{echo 'y' | ../src/task rc:default.rc config default.command 'list priority:M' 2>&1};
$output = qx{../src/task rc:default.rc 2>&1};
like ($output, qr/ M /, 'priority:M included in default command');
unlike ($output, qr/ L /, 'priority:L excluded from default command');