Unit Tests

- Filters must precede write-commands on the command line.
This commit is contained in:
Paul Beckingham 2011-07-31 09:49:23 -04:00
parent 4a99723129
commit 01d3da90ae
4 changed files with 19 additions and 17 deletions

View file

@ -111,11 +111,11 @@ $output = qx{../src/task rc:seq.rc info 4};
like ($output, qr/Priority\s+H/, 'sequence duplicate 2');
# Test sequences in annotate
qx{../src/task rc:seq.rc annotate 1,2 note};
qx{../src/task rc:seq.rc 1,2 annotate note};
$output = qx{../src/task rc:seq.rc info 1};
like ($output, qr/\d+\/\d+\/\d+ note/, 'sequence annotate 1');
like ($output, qr/\d+\/\d+\/\d+ note/, 'sequence 1 annotate');
$output = qx{../src/task rc:seq.rc info 2};
like ($output, qr/\d+\/\d+\/\d+ note/, 'sequence annotate 2');
like ($output, qr/\d+\/\d+\/\d+ note/, 'sequence 2 annotate');
# Cleanup.
unlink 'pending.data';