GothenburgBitFactory/taskwarrior
1
0
Fork 0
mirror of https://github.com/GothenburgBitFactory/taskwarrior.git synced 2025-08-19 19:03:07 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 3

Unit Tests

Browse source 
- Enabled more recurring task tests.
This commit is contained in:
Paul Beckingham 2012-02-26 14:57:21 -05:00
parent bcf416e71f
commit 5b3cba2e70
1 changed files with 27 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

46
test/recur.t
View file

@ -28,13 +28,14 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 5; use Test::More tests => 10;
# Create the rc file. # Create the rc file.
if (open my $fh, '>', 'recur.rc') if (open my $fh, '>', 'recur.rc')
{ {
print $fh "data.location=.\n", print $fh "data.location=.\n",
"recurrent.limit=1\n"; "confirmation=off\n",
"recurrence.limit=1\n";
close $fh; close $fh;
ok (-r 'recur.rc', 'Created recur.rc'); ok (-r 'recur.rc', 'Created recur.rc');
} }
@ -52,29 +53,36 @@ like ($output, qr/1.+simple\n/ms, '1 simple');
like ($output, qr/3.+complex\n/ms, '3 complex'); like ($output, qr/3.+complex\n/ms, '3 complex');
like ($output, qr/4.+complex\n/ms, '4 complex'); like ($output, qr/4.+complex\n/ms, '4 complex');
# TODO Modify a child task and do not propagate the change. # Modify a child task and do not propagate the change.
$output = qx{echo '-- n' | ../src/task rc:recur.rc 3 modify complex2}; $output = qx{echo '-- n' | ../src/task rc:recur.rc 3 modify complex2};
diag ('---'); $output = qx{../src/task rc:recur.rc 3 info};
diag ($output); like ($output, qr/Description\s+complex2\s/ms, '3 modified');
diag ('---'); $output = qx{../src/task rc:recur.rc 4 info};
like ($output, qr/Description\s+complex\s/ms, '4 not modified');
# TODO Modify a child task and propagate the change.
$output = qx{echo '-- y' | ../src/task rc:recur.rc 3 modify complex2};
diag ('---');
diag ($output);
diag ('---');
# TODO Delete a child task. # Modify a child task and propagate the change.
$output = qx{echo '-- y' | ../src/task rc:recur.rc 3 modify complex3};
$output = qx{../src/task rc:recur.rc 3 info};
like ($output, qr/Description\s+complex3\s/ms, '3 modified');
$output = qx{../src/task rc:recur.rc 4 info};
like ($output, qr/Description\s+complex3\s/ms, '4 not modified');
# Delete a child task, not propagate.
$output = qx{echo '-- n' | ../src/task rc:recur.rc 3 delete}; $output = qx{echo '-- n' | ../src/task rc:recur.rc 3 delete};
diag ('---'); like ($output, qr/Deleted 1 task\./, '3 deleted');
diag ($output);
diag ('---'); # Delete a child task, propagate.
#$output = qx{../src/task rc:recur.rc minimal};
#$output = qx{echo '-- y' | ../src/task rc:recur.rc 3 delete};
#like ($output, qr/Deleted 1 task\./, 'Child + parent deleted');
#$output = qx{../src/task rc:recur.rc minimal};
# TODO Delete a recurring task. # TODO Delete a recurring task.
$output = qx{echo '-- y' | ../src/task rc:recur.rc 4 delete}; #$output = qx{echo '-- y' | ../src/task rc:recur.rc 4 delete};
diag ('---'); #diag ('---');
diag ($output); #diag ($output);
diag ('---'); #diag ('---');
# TODO Wait a recurring task # TODO Wait a recurring task
# TODO Upgrade a task to a recurring task # TODO Upgrade a task to a recurring task