From e8a795befbbe7570f7483cd1027fecebdcbe0a44 Mon Sep 17 00:00:00 2001 From: Paul Beckingham Date: Sun, 15 Mar 2009 17:01:22 -0400 Subject: [PATCH] Unit Tests - due, export - due.t was incorrectly reporting the number of tests it intended to run. - export.t was not updated when the export command was updated to include recurrence information. --- src/tests/due.t | 2 +- src/tests/export.t | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/tests/due.t b/src/tests/due.t index a032aa339..b320c9563 100755 --- a/src/tests/due.t +++ b/src/tests/due.t @@ -28,7 +28,7 @@ use strict; use warnings; -use Test::More tests => 14; +use Test::More tests => 5; # Create the rc file. if (open my $fh, '>', 'due.rc') diff --git a/src/tests/export.t b/src/tests/export.t index 4218a3c10..143a687da 100755 --- a/src/tests/export.t +++ b/src/tests/export.t @@ -50,9 +50,9 @@ if (open my $fh, '<', './export.txt') close $fh; } -my $line1 = qr/'id','uuid','status','tags','entry','start','due','end','project','priority','fg','bg','description'\n/; -my $line2 = qr/'.{8}-.{4}-.{4}-.{4}-.{12}','pending','',\d+,,,,'A','H',,,'one'\n/; -my $line3 = qr/'.{8}-.{4}-.{4}-.{4}-.{12}','pending','tag1 tag2',\d+,,,,,,,,'two'\n/; +my $line1 = qr/'id','uuid','status','tags','entry','start','due','recur','end','project','priority','fg','bg','description'\n/; +my $line2 = qr/'.{8}-.{4}-.{4}-.{4}-.{12}','pending','',\d+,,,,,'A','H',,,'one'\n/; +my $line3 = qr/'.{8}-.{4}-.{4}-.{4}-.{12}','pending','tag1 tag2',\d+,,,,,,,,,'two'\n/; like ($lines[0], $line1, "export line one"); like ($lines[1], $line2, "export line two");