From f4fc65e1ed48e377a21d486e1f132059ea5627df Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Sat, 24 May 2014 11:04:32 -0400
Subject: [PATCH] Unit Tests

- Added DOM id --> UUID --> id round trip tests.
---
 test/dom.2.t | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/test/dom.2.t b/test/dom.2.t
index abb00d3c9..4c14f23c5 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 => 6;
 
 # Ensure environment has no influence.
 delete $ENV{'TASKDATA'};
@@ -54,6 +54,13 @@ qx{../src/task rc:dom.rc add three due:20110901 wait:due 2>&1};
 $output = qx{../src/task rc:dom.rc 3 info 2>&1};
 like ($output, qr/Waiting until\s+20110901/, 'Found wait date duplicated from due date');
 
+# ID <--> UUID <--> ID round trip via DOM.
+$output = qx{../src/task rc:dom.rc _get 1.uuid 2>&1};
+like ($output, qr/^.{36}$/, 'DOM id --> uuid');
+my $uuid = chomp $output;
+$output = qx{../src/task rc:dom.rc _get ${uuid}.id 2>&1};
+like ($output, qr/^1$/, 'DOM uuid --> id');
+
 # Cleanup.
 unlink qw(pending.data completed.data undo.data backlog.data dom.rc);
 ok (! -r 'pending.data'   &&