From 7ddc715fbe7793b070464c23173c0645129fa486 Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Fri, 17 Jul 2015 14:35:55 -0400
Subject: [PATCH] Test: Added direct tag setting uniqueness test

---
 test/tag.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/test/tag.t b/test/tag.t
index 117b951b9..849c2764a 100755
--- a/test/tag.t
+++ b/test/tag.t
@@ -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;