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

@@ -50,20 +50,21 @@ qx{../src/task rc:annotate.rc add one};
qx{../src/task rc:annotate.rc add two};
qx{../src/task rc:annotate.rc add three};
qx{../src/task rc:annotate.rc add four};
qx{../src/task rc:annotate.rc annotate 1 foo1};
qx{../src/task rc:annotate.rc 1 annotate foo1};
diag ("5 second delay");
sleep 1;
qx{../src/task rc:annotate.rc annotate 1 foo2};
qx{../src/task rc:annotate.rc 1 annotate foo2};
sleep 1;
qx{../src/task rc:annotate.rc annotate 1 foo3};
qx{../src/task rc:annotate.rc 1 annotate foo3};
sleep 1;
qx{../src/task rc:annotate.rc annotate 2 bar1};
qx{../src/task rc:annotate.rc 2 annotate bar1};
sleep 1;
qx{../src/task rc:annotate.rc annotate 2 bar2};
qx{../src/task rc:annotate.rc 2 annotate bar2};
sleep 1;
qx{../src/task rc:annotate.rc annotate 3 baz1};
qx{../src/task rc:annotate.rc 3 annotate baz1};
my $output = qx{../src/task rc:annotate.rc rrr};
diag ($output);
# ID Description
# -- -------------------------------