From 140757cfe1389f18228d946d9f1a6a0d78a96aed Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Thu, 3 Jul 2014 11:44:50 -0400
Subject: [PATCH] Unit Tests

- Modified test to account for non-standalone status of certain duration
  values.
---
 test/bug.period.t | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/test/bug.period.t b/test/bug.period.t
index aff1c0328..bf216b8ff 100755
--- a/test/bug.period.t
+++ b/test/bug.period.t
@@ -79,14 +79,14 @@ Confirmed:
 my $output = qx{../src/task rc:period.rc add daily due:tomorrow recur:daily 2>&1};
 unlike ($output, qr/was not recognized/, 'recur:daily');
 
-$output = qx{../src/task rc:period.rc add day due:tomorrow recur:day 2>&1};
-unlike ($output, qr/was not recognized/, 'recur:day');
+$output = qx{../src/task rc:period.rc add 1day due:tomorrow recur:1day 2>&1};
+unlike ($output, qr/was not recognized/, 'recur:1day');
 
 $output = qx{../src/task rc:period.rc add weekly due:tomorrow recur:weekly 2>&1};
 unlike ($output, qr/was not recognized/, 'recur:weekly');
 
-$output = qx{../src/task rc:period.rc add sennight due:tomorrow recur:sennight 2>&1};
-unlike ($output, qr/was not recognized/, 'recur:sennight');
+$output = qx{../src/task rc:period.rc add 1sennight due:tomorrow recur:1sennight 2>&1};
+unlike ($output, qr/was not recognized/, 'recur:1sennight');
 
 $output = qx{../src/task rc:period.rc add biweekly due:tomorrow recur:biweekly 2>&1};
 unlike ($output, qr/was not recognized/, 'recur:biweekly');
@@ -136,9 +136,9 @@ unlike ($output, qr/was not recognized/, 'recur:2y');
 # Verify that the recurring task instances get created.  One of each.
 $output = qx{../src/task rc:period.rc list 2>&1};
 like ($output, qr/\bdaily\b/,      'verify daily');
-like ($output, qr/\bday\b/,        'verify day');
+like ($output, qr/\b1day\b/,       'verify 1day');
 like ($output, qr/\bweekly\b/,     'verify weekly');
-like ($output, qr/\bsennight\b/,   'verify sennight');
+like ($output, qr/\b1sennight\b/,  'verify 1sennight');
 like ($output, qr/\bbiweekly\b/,   'verify biweekly');
 like ($output, qr/\bfortnight\b/,  'verify fortnight');
 like ($output, qr/\bmonthly\b/,    'verify monthly');