Test: Added direct tag setting uniqueness test

This commit is contained in:
Paul Beckingham
2015-07-17 14:35:55 -04:00
parent 30911968cc
commit 7ddc715fbe

View File

@@ -27,7 +27,7 @@
use strict;
use warnings;
use Test::More tests => 32;
use Test::More tests => 33;
# Ensure environment has no influence.
delete $ENV{'TASKDATA'};
@@ -146,6 +146,10 @@ like ($output, qr/maximal/, "$ut: +ANNOTATED");
$output = qx{../src/task rc:$rc -ANNOTATED list};
unlike ($output, qr/maximal/, "$ut: -ANNOTATED");
qx{../src/task rc:$rc add seven tags:A,A,B,C,C,C};
$output = qx{../src/task rc:$rc /seven/ list};
like ($output, qr/ A B C /, 'Direct tags setting enforces uniqueness');
# Cleanup.
unlink qw(pending.data completed.data undo.data backlog.data), $rc;
exit 0;