Code Cleanup

- More specific test (checking message either in the standard output or the
  standard error).
This commit is contained in:
Louis-Claude Canon
2012-06-16 17:20:54 +02:00
committed by Paul Beckingham
parent e5fe704f6a
commit 1e632fea66
5 changed files with 33 additions and 33 deletions

View File

@@ -45,12 +45,12 @@ if (open my $fh, '>', 'custom.rc')
# Add a recurring and non-recurring task, look for the indicator.
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};
my $output = qx{../src/task rc:custom.rc foo};
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');
$output = qx{../src/task rc:custom.rc foo rc.recurrence.indicator=RE 2>&1};
$output = qx{../src/task rc:custom.rc foo rc.recurrence.indicator=RE};
like ($output, qr/3\s+RE/, 'Custom recurrence indicator t1');
unlike ($output, qr/2\s+RE/, 'No custom recurrence indicator t2');