GothenburgBitFactory/taskwarrior
1
0
Fork 0
mirror of https://github.com/GothenburgBitFactory/taskwarrior.git synced 2025-06-26 10:54:26 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Unit Tests

Browse source 
- 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
Download patch file Download diff file Expand all files Collapse all files

3
test/abbreviation.t
View file

@ -33,7 +33,8 @@ use Test::More tests => 24;
# Create the rc file.
if (open my $fh, '>', 'abbrev.rc')
{
print $fh "data.location=.\n";
print $fh "data.location=.\n",
"abbreviation.minimum=1\n";
close $fh;
ok (-r 'abbrev.rc', 'Created abbrev.rc');
}

13
test/annotate.t
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
# -- -------------------------------

14
test/denotate.t
View file

@ -46,20 +46,20 @@ if (open my $fh, '>', 'denotate.rc')
# Add four tasks, annotate one three times, one twice, one just once and one none.
qx{../src/task rc:denotate.rc add one};
qx{../src/task rc:denotate.rc annotate 1 Ernie};
qx{../src/task rc:denotate.rc 1 annotate Ernie};
diag ("6 second delay");
sleep 1;
qx{../src/task rc:denotate.rc annotate 1 Bert};
qx{../src/task rc:denotate.rc 1 annotate Bert};
sleep 1;
qx{../src/task rc:denotate.rc annotate 1 Bibo};
qx{../src/task rc:denotate.rc 1 annotate Bibo};
sleep 1;
qx{../src/task rc:denotate.rc annotate 1 Kermit the frog};
qx{../src/task rc:denotate.rc 1 annotate Kermit the frog};
sleep 1;
qx{../src/task rc:denotate.rc annotate 1 Kermit the frog};
qx{../src/task rc:denotate.rc 1 annotate Kermit the frog};
sleep 1;
qx{../src/task rc:denotate.rc annotate 1 Kermit};
qx{../src/task rc:denotate.rc 1 annotate Kermit};
sleep 1;
qx{../src/task rc:denotate.rc annotate 1 Kermit and Miss Piggy};
qx{../src/task rc:denotate.rc 1 annotate Kermit and Miss Piggy};
my $output = qx{../src/task rc:denotate.rc rrr};

6
test/sequence.t
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';