Unit Tests

- Corrected all unit tests that used the old syntax "task done 1" to
  use the new syntax "task 1 done".  Similarly, "task 1 ..." is now
  "task 1 modify ...".
This commit is contained in:
Paul Beckingham 2011-07-31 19:03:19 -04:00
parent 9ce7f63d85
commit ac7bcc81ee
48 changed files with 177 additions and 177 deletions

View file

@ -42,7 +42,7 @@ if (open my $fh, '>', 'seq.rc')
# Test sequences in done/undo
qx{../src/task rc:seq.rc add one mississippi};
qx{../src/task rc:seq.rc add two mississippi};
qx{../src/task rc:seq.rc do 1,2};
qx{../src/task rc:seq.rc 1,2 do};
my $output = qx{../src/task rc:seq.rc info 1};
like ($output, qr/Status\s+Completed/, 'sequence do 1');
$output = qx{../src/task rc:seq.rc info 2};
@ -55,7 +55,7 @@ $output = qx{../src/task rc:seq.rc info 2};
like ($output, qr/Status\s+Pending/, 'sequence undo 2');
# Test sequences in delete/undelete
qx{../src/task rc:seq.rc delete 1,2};
qx{../src/task rc:seq.rc 1,2 delete};
$output = qx{../src/task rc:seq.rc info 1};
like ($output, qr/Status\s+Deleted/, 'sequence delete 1');
$output = qx{../src/task rc:seq.rc info 2};
@ -68,31 +68,31 @@ $output = qx{../src/task rc:seq.rc info 2};
like ($output, qr/Status\s+Pending/, 'sequence undo 2');
# Test sequences in start/stop
qx{../src/task rc:seq.rc start 1,2};
qx{../src/task rc:seq.rc 1,2 start};
$output = qx{../src/task rc:seq.rc info 1};
like ($output, qr/Start/, 'sequence start 1');
$output = qx{../src/task rc:seq.rc info 2};
like ($output, qr/Start/, 'sequence start 2');
qx{../src/task rc:seq.rc stop 1,2};
qx{../src/task rc:seq.rc 1,2 stop};
$output = qx{../src/task rc:seq.rc info 1};
like ($output, qr/Start\sdeleted/, 'sequence stop 1');
$output = qx{../src/task rc:seq.rc info 2};
like ($output, qr/Start\sdeleted/, 'sequence stop 2');
# Test sequences in modify
qx{../src/task rc:seq.rc 1,2 +tag};
qx{../src/task rc:seq.rc 1,2 modify +tag};
$output = qx{../src/task rc:seq.rc info 1};
like ($output, qr/Tags\s+tag/, 'sequence modify 1');
$output = qx{../src/task rc:seq.rc info 2};
like ($output, qr/Tags\s+tag/, 'sequence modify 2');
qx{../src/task rc:seq.rc 1,2 -tag};
qx{../src/task rc:seq.rc 1,2 modify -tag};
$output = qx{../src/task rc:seq.rc info 1};
unlike ($output, qr/Tags\s+tag/, 'sequence unmodify 1');
$output = qx{../src/task rc:seq.rc info 2};
unlike ($output, qr/Tags\s+tag/, 'sequence unmodify 2');
# Test sequences in substitutions
qx{../src/task rc:seq.rc 1,2 /miss/Miss/};
qx{../src/task rc:seq.rc 1,2 modify /miss/Miss/};
$output = qx{../src/task rc:seq.rc info 1};
like ($output, qr/Description\s+one Miss/, 'sequence substitution 1');
$output = qx{../src/task rc:seq.rc info 2};
@ -104,7 +104,7 @@ like ($output, qr/Description\s+one Miss/, 'sequence info 1');
like ($output, qr/Description\s+two Miss/, 'sequence info 2');
# Test sequences in duplicate
qx{../src/task rc:seq.rc duplicate 1,2 pri:H};
qx{../src/task rc:seq.rc 1,2 duplicate pri:H};
$output = qx{../src/task rc:seq.rc info 3};
like ($output, qr/Priority\s+H/, 'sequence duplicate 1');
$output = qx{../src/task rc:seq.rc info 4};