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

Bug Fix - export

Browse source 
- Fixed export bug that was emitting quoted blank strings, instead of
  blank strings.
- Fixed undo.t unit tests.
This commit is contained in:
Paul Beckingham 2009-06-18 22:52:27 -04:00
parent 456a493ab5
commit cea84b3d3b
4 changed files with 49 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/tests/export.t
View file

@ -46,13 +46,18 @@ qx{../task rc:export.rc export > ./export.txt};
my @lines;
if (open my $fh, '<', './export.txt')
{
@lines = <$fh>;
while (my $line = <$fh>)
{
next unless $line =~ /^['0-9]/;
push @lines, $line;
}
close $fh;
}
my $line1 = qr/'id','uuid','status','tags','entry','start','due','recur','end','project','priority','fg','bg','description'\n/;
my $line2 = qr/'.{8}-.{4}-.{4}-.{4}-.{12}','pending','',\d+,,,,,'A','H',,,'one'\n/;
my $line3 = qr/'.{8}-.{4}-.{4}-.{4}-.{12}','pending','tag1 tag2',\d+,,,,,,,,,'two'\n/;
my $line2 = qr/1,'.{8}-.{4}-.{4}-.{4}-.{12}','pending','',\d+,,,,,'A','H',,,'one'\n/;
my $line3 = qr/2,'.{8}-.{4}-.{4}-.{4}-.{12}','pending','tag1 tag2',\d+,,,,,,,,,'two'\n/;
like ($lines[0], $line1, "export line one");
like ($lines[1], $line2, "export line two");

8
src/tests/undo.t
View file

@ -45,19 +45,19 @@ ok (-r 'pending.data', 'pending.data created');
like ($output, qr/Status\s+Pending\n/, 'Pending');
$output = qx{../task rc:undo.rc do 1; ../task rc:undo.rc info 1};
ok (! -r 'completed.data', 'completed.data not created');
ok (-r 'completed.data', 'completed.data created');
like ($output, qr/Status\s+Completed\n/, 'Completed');
$output = qx{../task rc:undo.rc undo 1; ../task rc:undo.rc info 1};
ok (! -r 'completed.data', 'completed.data not created');
ok (-r 'completed.data', 'completed.data created');
like ($output, qr/Status\s+Pending\n/, 'Pending');
$output = qx{../task rc:undo.rc do 1; ../task rc:undo.rc list};
like ($output, qr/^No matches/, 'No matches');
like ($output, qr/No matches/, 'No matches');
$output = qx{../task rc:undo.rc undo 1; ../task rc:undo.rc info 1};
like ($output, qr/Task 1 not found/, 'Task 1 not found');
like ($output, qr/No matches/, 'No matches');
like ($output, qr/Task 1 not found/, 'No matches');
# Cleanup.
ok (-r 'pending.data', 'Need to remove pending.data');