Test: Added direct tag setting uniqueness test
This commit is contained in:
@@ -27,7 +27,7 @@
|
|||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
use Test::More tests => 32;
|
use Test::More tests => 33;
|
||||||
|
|
||||||
# Ensure environment has no influence.
|
# Ensure environment has no influence.
|
||||||
delete $ENV{'TASKDATA'};
|
delete $ENV{'TASKDATA'};
|
||||||
@@ -146,6 +146,10 @@ like ($output, qr/maximal/, "$ut: +ANNOTATED");
|
|||||||
$output = qx{../src/task rc:$rc -ANNOTATED list};
|
$output = qx{../src/task rc:$rc -ANNOTATED list};
|
||||||
unlike ($output, qr/maximal/, "$ut: -ANNOTATED");
|
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.
|
# Cleanup.
|
||||||
unlink qw(pending.data completed.data undo.data backlog.data), $rc;
|
unlink qw(pending.data completed.data undo.data backlog.data), $rc;
|
||||||
exit 0;
|
exit 0;
|
||||||
|
|||||||
Reference in New Issue
Block a user