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

12
test/tag.t
View File

@@ -39,27 +39,27 @@ if (open my $fh, '>', 'tag.rc')
}
# Add task with tags.
my $output = qx{../src/task rc:tag.rc add +one This +two is a test +three; ../src/task rc:tag.rc info 1};
my $output = qx{../src/task rc:tag.rc add +one This +two is a test +three 2>&1; ../src/task rc:tag.rc info 1 2>&1};
like ($output, qr/^Tags\s+one two three\n/m, 'tags found');
# Remove tags.
$output = qx{../src/task rc:tag.rc 1 modify -three -two -one; ../src/task rc:tag.rc info 1};
$output = qx{../src/task rc:tag.rc 1 modify -three -two -one 2>&1; ../src/task rc:tag.rc info 1 2>&1};
unlike ($output, qr/^Tags/m, '-three -two -one tag removed');
# Add tags.
$output = qx{../src/task rc:tag.rc 1 modify +four +five +six; ../src/task rc:tag.rc info 1};
$output = qx{../src/task rc:tag.rc 1 modify +four +five +six 2>&1; ../src/task rc:tag.rc info 1 2>&1};
like ($output, qr/^Tags\s+four five six\n/m, 'tags found');
# Remove tags.
$output = qx{../src/task rc:tag.rc 1 modify -four -five -six; ../src/task rc:tag.rc info 1};
$output = qx{../src/task rc:tag.rc 1 modify -four -five -six 2>&1; ../src/task rc:tag.rc info 1 2>&1};
unlike ($output, qr/^Tags/m, '-four -five -six tag removed');
# Add and remove tags.
$output = qx{../src/task rc:tag.rc 1 modify +duplicate -duplicate; ../src/task rc:tag.rc info 1};
$output = qx{../src/task rc:tag.rc 1 modify +duplicate -duplicate 2>&1; ../src/task rc:tag.rc info 1 2>&1};
unlike ($output, qr/^Tags/m, '+duplicate -duplicate NOP');
# Remove missing tag.
$output = qx{../src/task rc:tag.rc 1 modify -missing; ../src/task rc:tag.rc info 1};
$output = qx{../src/task rc:tag.rc 1 modify -missing 2>&1; ../src/task rc:tag.rc info 1 2>&1};
unlike ($output, qr/^Tags/m, '-missing NOP');
# Cleanup.