Unit Tests

- Modified several unit tests to accomodate new column names.
This commit is contained in:
Paul Beckingham
2011-05-08 17:14:28 -04:00
parent 0d9d01324e
commit 04033911c3
10 changed files with 46 additions and 130 deletions

View File

@@ -35,7 +35,7 @@ if (open my $fh, '>', 'custom.rc')
{
print $fh "data.location=.\n",
"report.foo.description=DESC\n",
"report.foo.columns=id,recurrence_indicator\n",
"report.foo.columns=id,recur.indicator\n",
"report.foo.labels=ID,R\n",
"report.foo.sort=id+\n";
close $fh;
@@ -46,7 +46,7 @@ if (open my $fh, '>', 'custom.rc')
qx{../src/task rc:custom.rc add foo due:tomorrow recur:weekly};
qx{../src/task rc:custom.rc add bar};
my $output = qx{../src/task rc:custom.rc foo 2>&1};
like ($output, qr/ID R/, 'Recurrence indicator heading');
like ($output, qr/ID.+R/, 'Recurrence indicator heading');
like ($output, qr/3\s+R/, 'Recurrence indicator t1');
unlike ($output, qr/2\s+R/, 'No recurrence indicator t2');