Test: Added direct tag setting uniqueness test
This commit is contained in:
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user