Unit Tests

- Modified testing to accomodate new split between stdout/stderr.
This commit is contained in:
Paul Beckingham
2012-07-03 15:43:19 -04:00
parent 75822eed47
commit da575c4043
185 changed files with 1591 additions and 1591 deletions

View File

@@ -43,17 +43,17 @@ if (open my $fh, '>', 'recur.rc')
}
# Create a few recurring tasks, and test the sort order of the recur column.
qx{../src/task rc:recur.rc add due:tomorrow recur:daily first};
qx{../src/task rc:recur.rc add due:tomorrow recur:weekly second};
qx{../src/task rc:recur.rc add due:tomorrow recur:3d third};
qx{../src/task rc:recur.rc add due:tomorrow recur:daily first 2>&1};
qx{../src/task rc:recur.rc add due:tomorrow recur:weekly second 2>&1};
qx{../src/task rc:recur.rc add due:tomorrow recur:3d third 2>&1};
my $output = qx{../src/task rc:recur.rc asc};
my $output = qx{../src/task rc:recur.rc asc 2>&1};
like ($output, qr/first .* third .* second/msx, 'daily 3d weekly');
$output = qx{../src/task rc:recur.rc desc};
$output = qx{../src/task rc:recur.rc desc 2>&1};
like ($output, qr/second .* third .* first/msx, 'weekly 3d daily');
$output = qx{../src/task rc:recur.rc diag};
$output = qx{../src/task rc:recur.rc diag 2>&1};
like ($output, qr/No duplicates found/, 'No duplicate UUIDs detected');
# Cleanup.