From 15030599fd950cb4fb5d96c955029d17dd284d62 Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Thu, 12 Jan 2012 16:49:54 -0500
Subject: [PATCH] Unit Tests

- Added more verbosity token tests, which show up some unimplemented
  loose ends.
---
 test/verbose.t | 21 +++++++++++++++++----
 1 file changed, 17 insertions(+), 4 deletions(-)

diff --git a/test/verbose.t b/test/verbose.t
index cfbdd9a13..4c79a92cb 100755
--- a/test/verbose.t
+++ b/test/verbose.t
@@ -28,7 +28,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More tests => 10;
 
 # Create the rc file.
 if (open my $fh, '>', 'verbose.rc')
@@ -46,11 +46,24 @@ like ($output, qr/Logged task/, '\'affected\' verbosity good');
 $output = qx{../src/task rc:verbose.rc log bar rc.verbose:off};
 unlike ($output, qr/Logged task/, '\'affected\' verbosity good');
 
-# TODO Verbosity: 'new-id'
+# Verbosity: 'new-id'
+$output = qx{../src/task rc:verbose.rc rc.verbose:on add Sample1};
+like ($output, qr/Created task \d/, '\'new-id\' verbosity good');
+
+$output = qx{../src/task rc:verbose.rc rc.verbose:off add Sample2};
+unlike ($output, qr/Created task \d/, '\'new-id\' verbosity good');
+
+# Verbosity: 'label', 'footer'
+$output = qx{../src/task rc:verbose.rc ls rc.verbose:on};
+like ($output, qr/ID.+Project.+Pri.+Description/, '\'label\' verbosity good');
+like ($output, qr/^\d+ tasks$/ms, '\'footer\' verbosity good');
+
+$output = qx{../src/task rc:verbose.rc list rc.verbose:off};
+unlike ($output, qr/ID.+Project.+Pri.+Description/, '\'label\' verbosity good');
+unlike ($output, qr/^\d+ tasks$/ms, '\'footer\' verbosity good');
+
 # TODO Verbosity: 'blank'
-# TODO Verbosity: 'label'
 # TODO Verbosity: 'header'
-# TODO Verbosity: 'footer'
 # TODO Verbosity: 'edit'
 
 # Cleanup.