From 130f98175a63ec42189d564885eedafe1a4879dc Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Sat, 18 Jul 2015 15:21:14 -0400
Subject: [PATCH] Test: Added _tags tests

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

diff --git a/test/tag.t b/test/tag.t
index 849c2764a..1bd338b0f 100755
--- a/test/tag.t
+++ b/test/tag.t
@@ -27,7 +27,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 33;
+use Test::More tests => 39;
 
 # Ensure environment has no influence.
 delete $ENV{'TASKDATA'};
@@ -150,6 +150,14 @@ 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');
 
+$output = qx{../src/task rc:$rc _tags};
+like ($output, qr/PENDING/, '_tags contains PENDING');
+like ($output, qr/next/,    '_tags contains next');
+like ($output, qr/nocal/,   '_tags contains nocal');
+like ($output, qr/nocolor/, '_tags contains nocolor');
+like ($output, qr/nonag/,   '_tags contains nonag');
+like ($output, qr/tag/,     '_tags contains tag');
+
 # Cleanup.
 unlink qw(pending.data completed.data undo.data backlog.data), $rc;
 exit 0;