From 117c31b3226101fed05ae85f25e6e9c0f6d23b98 Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Wed, 4 Jun 2014 19:00:01 -0400
Subject: [PATCH] Unit Tests

- Added tests for blank values from missing DOM lookups.
---
 test/dom.2.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/test/dom.2.t b/test/dom.2.t
index 6da337ab1..c1429bbbb 100755
--- a/test/dom.2.t
+++ b/test/dom.2.t
@@ -27,7 +27,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More tests => 5;
 
 # Ensure environment has no influence.
 delete $ENV{'TASKDATA'};
@@ -60,6 +60,10 @@ my $uuid = chomp $output;
 $output = qx{../src/task rc:dom.rc _get ${uuid}.id 2>&1};
 like ($output, qr/^1$/, 'DOM uuid --> id');
 
+# Failed DOM lookup returns blank.
+$output = qx{../src/task rc:dom.rc _get 4.description 2>&1};
+like ($output, qr/^$/, "DOM 4.description --> ''");
+
 # Cleanup.
 unlink qw(pending.data completed.data undo.data backlog.data dom.rc);
 exit 0;