Test: Added denotate test

This commit is contained in:
Paul Beckingham 2015-07-19 20:45:42 -04:00
parent 2b5aba85ae
commit 50a052990c

View file

@ -27,7 +27,7 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 25; use Test::More tests => 26;
# Ensure environment has no influence. # Ensure environment has no influence.
delete $ENV{'TASKDATA'}; delete $ENV{'TASKDATA'};
@ -111,6 +111,9 @@ like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Bert/ms, "$ut
like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms, "$ut: Delete partial match - Kermit the frog"); like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms, "$ut: Delete partial match - Kermit the frog");
unlike ($output, qr/frog.+\d{1,2}\/\d{1,2}\/\d{4} Kermit and Miss Piggy/ms, "$ut: Delete partial match - Kermit and Miss Piggy"); # 25 unlike ($output, qr/frog.+\d{1,2}\/\d{1,2}\/\d{4} Kermit and Miss Piggy/ms, "$ut: Delete partial match - Kermit and Miss Piggy"); # 25
$output = qx{../src/task rc:$rc 999 denotate 2>&1};
like ($output, qr/No tasks specified./, "$ut: No matching tasks");
# Cleanup. # Cleanup.
unlink qw(pending.data completed.data undo.data backlog.data), $rc; unlink qw(pending.data completed.data undo.data backlog.data), $rc;
exit 0; exit 0;