Import/Export: Relocated add-ons online, removed tests
- The scripts/add-ons/{im,ex}port* examples are relocated online under
https://taskwarrior.org/tools/index.html#exts .
- The corresponding tests are no longer needed.
- The Perl JSON module is no longer required.
This commit is contained in:
Paul Beckingham
@@ -33,9 +33,9 @@ Architecture
|
||||
|
||||
There are three varieties of tests:
|
||||
|
||||
* Perl unit tests that use Test::More and the JSON module. We are phasing
|
||||
these out, and will accept no new Perl tests. These tests are high level
|
||||
and exercise Taskwarrior at the command line level.
|
||||
* Perl unit tests that use Test::More module. We are phasing these out, and
|
||||
will accept no new Perl tests. These tests are high level and exercise
|
||||
Taskwarrior at the command line level.
|
||||
|
||||
* C++ unit tests that test low-level object interfaces. These are typically
|
||||
very fast tests, and are exhaustive in nature.
|
||||
|
||||
@@ -1,91 +0,0 @@
|
||||
#! /usr/bin/env perl
|
||||
################################################################################
|
||||
##
|
||||
## Copyright 2006 - 2015, Paul Beckingham, Federico Hernandez.
|
||||
##
|
||||
## Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
## of this software and associated documentation files (the "Software"), to deal
|
||||
## in the Software without restriction, including without limitation the rights
|
||||
## to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||
## copies of the Software, and to permit persons to whom the Software is
|
||||
## furnished to do so, subject to the following conditions:
|
||||
##
|
||||
## The above copyright notice and this permission notice shall be included
|
||||
## in all copies or substantial portions of the Software.
|
||||
##
|
||||
## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
|
||||
## OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
## FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
||||
## THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
## LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
## OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
## SOFTWARE.
|
||||
##
|
||||
## http://www.opensource.org/licenses/mit-license.php
|
||||
##
|
||||
################################################################################
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 22;
|
||||
|
||||
# Ensure environment has no influence.
|
||||
delete $ENV{'TASKDATA'};
|
||||
delete $ENV{'TASKRC'};
|
||||
|
||||
use File::Basename;
|
||||
my $ut = basename ($0);
|
||||
my $rc = $ut . '.rc';
|
||||
|
||||
my $source_dir = $0;
|
||||
$source_dir =~ s{[^/]+$}{..};
|
||||
|
||||
# Create the rc file.
|
||||
if (open my $fh, '>', $rc)
|
||||
{
|
||||
print $fh "data.location=.\n",
|
||||
"verbose=no\n",
|
||||
"json.array=off";
|
||||
close $fh;
|
||||
}
|
||||
|
||||
# Add two tasks, export, examine result.
|
||||
# TODO Add annotations.
|
||||
qx{../src/task rc:$rc add priority:H project:A one 2>&1};
|
||||
qx{../src/task rc:$rc add +tag1 +tag2 two 2>&1};
|
||||
|
||||
my $output = qx{../src/task rc:$rc export | $source_dir/scripts/add-ons/export-yaml.pl > ./export.txt 2>&1};
|
||||
my @lines;
|
||||
if (open my $fh, '<', './export.txt')
|
||||
{
|
||||
@lines = <$fh>;
|
||||
close $fh;
|
||||
}
|
||||
|
||||
like ($lines[0], qr/^\%YAML 1\.1$/, "$ut: export YAML line 1");
|
||||
like ($lines[1], qr/^---$/, "$ut: export YAML line 2");
|
||||
like ($lines[2], qr/^ task:$/, "$ut: export YAML line 3");
|
||||
like ($lines[3], qr/^ description: one$/, "$ut: export YAML line 4");
|
||||
like ($lines[4], qr/^ entry: \d{8}T\d{6}Z$/, "$ut: export YAML line 5");
|
||||
like ($lines[5], qr/^ id: \d+$/, "$ut: export YAML line 6");
|
||||
like ($lines[6], qr/^ modified: \d{8}T\d{6}Z$/, "$ut: export YAML line 7");
|
||||
like ($lines[7], qr/^ priority: H$/, "$ut: export YAML line 8");
|
||||
like ($lines[8], qr/^ project: A$/, "$ut: export YAML line 9");
|
||||
like ($lines[9], qr/^ status: pending$/, "$ut: export YAML line 10");
|
||||
like ($lines[10], qr/^ urgency: .+$/, "$ut: export YAML line 11");
|
||||
like ($lines[11], qr/^ uuid: .+$/, "$ut: export YAML line 12");
|
||||
like ($lines[12], qr/^ task:$/, "$ut: export YAML line 13");
|
||||
like ($lines[13], qr/^ description: two$/, "$ut: export YAML line 14");
|
||||
like ($lines[14], qr/^ entry: \d{8}T\d{6}Z$/, "$ut: export YAML line 15");
|
||||
like ($lines[15], qr/^ id: \d+$/, "$ut: export YAML line 16");
|
||||
like ($lines[16], qr/^ modified: \d{8}T\d{6}Z$/, "$ut: export YAML line 17");
|
||||
like ($lines[17], qr/^ status: pending$/, "$ut: export YAML line 18");
|
||||
like ($lines[18], qr/^ tags: tag1,tag2$/, "$ut: export YAML line 19");
|
||||
like ($lines[19], qr/^ urgency: .+$/, "$ut: export YAML line 20");
|
||||
like ($lines[20], qr/^ uuid: .+$/, "$ut: export YAML line 21");
|
||||
like ($lines[21], qr/^\.\.\.$/, "$ut: export YAML line 22");
|
||||
|
||||
# Cleanup.
|
||||
unlink qw(pending.data completed.data undo.data backlog.data export.txt), $rc;
|
||||
exit 0;
|
||||
|
||||
@@ -1,129 +0,0 @@
|
||||
#! /usr/bin/env perl
|
||||
################################################################################
|
||||
##
|
||||
## Copyright 2006 - 2015, Paul Beckingham, Federico Hernandez.
|
||||
##
|
||||
## Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
## of this software and associated documentation files (the "Software"), to deal
|
||||
## in the Software without restriction, including without limitation the rights
|
||||
## to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||
## copies of the Software, and to permit persons to whom the Software is
|
||||
## furnished to do so, subject to the following conditions:
|
||||
##
|
||||
## The above copyright notice and this permission notice shall be included
|
||||
## in all copies or substantial portions of the Software.
|
||||
##
|
||||
## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
|
||||
## OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
## FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
||||
## THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
## LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
## OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
## SOFTWARE.
|
||||
##
|
||||
## http://www.opensource.org/licenses/mit-license.php
|
||||
##
|
||||
################################################################################
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 23;
|
||||
|
||||
# Ensure environment has no influence.
|
||||
delete $ENV{'TASKDATA'};
|
||||
delete $ENV{'TASKRC'};
|
||||
|
||||
my $source_dir = $0;
|
||||
$source_dir =~ s{[^/]+$}{..};
|
||||
|
||||
# Create the rc file.
|
||||
if (open my $fh, '>', 'import.rc')
|
||||
{
|
||||
print $fh "data.location=.\n",
|
||||
"json.array=on\n",
|
||||
"dateformat=YYYY-M-D\n",
|
||||
"verbose=off\n";
|
||||
close $fh;
|
||||
}
|
||||
|
||||
# Create import file.
|
||||
if (open my $fh, '>', 'import.txt')
|
||||
{
|
||||
print $fh "(A) \@phone thank Mom for the meatballs\n", # 1
|
||||
"(B) +GarageSale \@phone schedule Goodwill pickup\n", # 2
|
||||
"+GarageSale \@home post signs around the neighborhood\n", # 3
|
||||
"\@shopping Eskimo pies\n", # 4
|
||||
"(A) Call Mom\n", # 5
|
||||
"Really gotta call Mom (A) \@phone \@someday\n", # 6
|
||||
"(b)->get back to the boss\n", # 7
|
||||
"2011-03-02 Document +TodoTxt task format\n", # 8
|
||||
"(A) 2011-03-02 Call Mom\n", # 9
|
||||
"(A) Call Mom 2011-03-02\n", # 10
|
||||
"(A) Call Mom +Family +PeaceLoveAndHappiness \@iphone \@phone\n", # 11
|
||||
"xylophone lesson\n", # 12
|
||||
"X 2011-03-03 Call Mom\n", # -
|
||||
"x 2011-03-02 2011-03-01 Review Tim's pull request +TodoTxtTouch \@github\n"; # -
|
||||
|
||||
close $fh;
|
||||
}
|
||||
|
||||
# Convert todo.sh --> task JSON.
|
||||
qx{$source_dir/scripts/add-ons/import-todo.sh.pl <import.txt >import.json 2>&1};
|
||||
|
||||
# Import the JSON.
|
||||
my $output = qx{../src/task rc:import.rc import import.json 2>&1};
|
||||
diag ($output);
|
||||
|
||||
$output = qx{../src/task rc:import.rc info 1 2>&1};
|
||||
like ($output, qr/^Priority.+H/ms, '1 pri:H');
|
||||
like ($output, qr/^Tags.+phone/ms, '1 +phone');
|
||||
like ($output, qr/^Description.+\@phone thank Mom for the meatballs/ms, '1 <desc>');
|
||||
|
||||
$output = qx{../src/task rc:import.rc info 2 2>&1};
|
||||
like ($output, qr/^Priority.+M/ms, '2 pri:M');
|
||||
like ($output, qr/^Project.+GarageSale/ms, '2 <project>');
|
||||
like ($output, qr/^Description.+/ms, '2 <desc>');
|
||||
|
||||
$output = qx{../src/task rc:import.rc info 3 2>&1};
|
||||
like ($output, qr/^Project.+GarageSale/ms, '3 <project>');
|
||||
like ($output, qr/^Description.+\+GarageSale \@home post signs around the neighborhood/ms, '3 <desc>');
|
||||
|
||||
$output = qx{../src/task rc:import.rc info 4 2>&1};
|
||||
like ($output, qr/^Description.+\@shopping Eskimo pies/ms, '4 <desc>');
|
||||
|
||||
$output = qx{../src/task rc:import.rc info 5 2>&1};
|
||||
like ($output, qr/^Priority.+H/ms, '5 pri:H');
|
||||
like ($output, qr/^Description.+Call Mom/ms, '5 <desc>');
|
||||
|
||||
$output = qx{../src/task rc:import.rc info 6 2>&1};
|
||||
like ($output, qr/^Description.+Really gotta call Mom \(A\) \@phone \@someday/ms, '6 <desc>');
|
||||
|
||||
$output = qx{../src/task rc:import.rc info 7 2>&1};
|
||||
like ($output, qr/^Description.+\(b\)->get back to the boss/ms, '7 <desc>');
|
||||
|
||||
$output = qx{../src/task rc:import.rc info 8 2>&1};
|
||||
like ($output, qr/^Project.+TodoTxt/ms, '8 <project>');
|
||||
like ($output, qr/^Description.+Document \+TodoTxt task format/ms, '8 <desc>');
|
||||
|
||||
$output = qx{../src/task rc:import.rc info 9 2>&1};
|
||||
like ($output, qr/^Priority.+H/ms, '9 pri:H');
|
||||
like ($output, qr/^Description.+Call Mom/ms, '9 <desc>');
|
||||
|
||||
$output = qx{../src/task rc:import.rc info 10 2>&1};
|
||||
like ($output, qr/^Priority.+H/ms, '10 pri:H');
|
||||
like ($output, qr/^Description.+Call Mom 2011-03-02/ms, '10 <desc>');
|
||||
|
||||
$output = qx{../src/task rc:import.rc info 11 2>&1};
|
||||
like ($output, qr/^Priority.+H/ms, '11 pri:H');
|
||||
like ($output, qr/^Project.+Family/ms, '8 <project>');
|
||||
like ($output, qr/^Description.+Call Mom \+Family \+PeaceLoveAndHappiness \@iphone \@phone/ms, '11 <desc>');
|
||||
|
||||
$output = qx{../src/task rc:import.rc info 12 2>&1};
|
||||
like ($output, qr/^Description.+xylophone lesson/ms, '12 <desc>');
|
||||
|
||||
# TODO and now the completed ones.
|
||||
|
||||
# Cleanup.
|
||||
unlink qw(pending.data completed.data undo.data backlog.data import.rc import.txt import.json);
|
||||
exit 0;
|
||||
|
||||
@@ -1,178 +0,0 @@
|
||||
#! /usr/bin/env perl
|
||||
################################################################################
|
||||
##
|
||||
## Copyright 2006 - 2015, Paul Beckingham, Federico Hernandez.
|
||||
##
|
||||
## Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
## of this software and associated documentation files (the "Software"), to deal
|
||||
## in the Software without restriction, including without limitation the rights
|
||||
## to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||
## copies of the Software, and to permit persons to whom the Software is
|
||||
## furnished to do so, subject to the following conditions:
|
||||
##
|
||||
## The above copyright notice and this permission notice shall be included
|
||||
## in all copies or substantial portions of the Software.
|
||||
##
|
||||
## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
|
||||
## OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
## FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
||||
## THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
## LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
## OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
## SOFTWARE.
|
||||
##
|
||||
## http://www.opensource.org/licenses/mit-license.php
|
||||
##
|
||||
################################################################################
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 15;
|
||||
|
||||
# Ensure environment has no influence.
|
||||
delete $ENV{'TASKDATA'};
|
||||
delete $ENV{'TASKRC'};
|
||||
|
||||
use File::Basename;
|
||||
my $ut = basename ($0);
|
||||
my $rc = $ut . '.rc';
|
||||
|
||||
my $source_dir = $0;
|
||||
$source_dir =~ s{[^/]+$}{..};
|
||||
|
||||
# Create the rc file.
|
||||
if (open my $fh, '>', $rc)
|
||||
{
|
||||
print $fh "data.location=.\n",
|
||||
"dateformat=m/d/Y\n";
|
||||
close $fh;
|
||||
}
|
||||
|
||||
# Create import file.
|
||||
if (open my $fh, '>', 'import.txt')
|
||||
{
|
||||
print $fh <<EOF;
|
||||
%YAML 1.1
|
||||
---
|
||||
task:
|
||||
uuid: 00000000-0000-0000-0000-000000000000
|
||||
annotations:
|
||||
annotation:
|
||||
entry: 20100706T025311Z
|
||||
description: anno ONE
|
||||
description: zero
|
||||
project: A
|
||||
tags: a,b,y
|
||||
status: pending
|
||||
entry: 20110901T120000Z
|
||||
task:
|
||||
uuid: 11111111-1111-1111-1111-111111111111
|
||||
annotations:
|
||||
annotation:
|
||||
entry: 20110706T025311Z
|
||||
description: anno TWO
|
||||
annotation:
|
||||
entry: 20120706T025311Z
|
||||
description: anno THREE
|
||||
description: one
|
||||
project: B
|
||||
tags: x,y,z
|
||||
status: pending
|
||||
entry: 20110902T120000Z
|
||||
task:
|
||||
uuid: 22222222-2222-2222-2222-222222222222
|
||||
description: two
|
||||
status: completed
|
||||
entry: 20110903T010000Z
|
||||
end: 20110904T120000Z
|
||||
...
|
||||
EOF
|
||||
|
||||
close $fh;
|
||||
}
|
||||
|
||||
# Convert YAML --> task JSON.
|
||||
qx{$source_dir/scripts/add-ons/import-yaml.pl <import.txt >import.json 2>&1};
|
||||
|
||||
# Import the JSON.
|
||||
my $output = qx{../src/task rc:$rc import import.json 2>&1 >/dev/null};
|
||||
like ($output, qr/Imported 3 tasks\./, "$ut: 3 tasks imported");
|
||||
|
||||
$output = qx{../src/task rc:$rc list 2>&1};
|
||||
# ID Project Age Description
|
||||
# -- ------- ------- -----------
|
||||
# 1 A 1.5 yrs zero
|
||||
# 2 B 1.5 yrs one
|
||||
#
|
||||
# 2 tasks
|
||||
|
||||
like ($output, qr/1.+A.+zero/, "$ut: t1 present");
|
||||
like ($output, qr/2.+B.+one/, "$ut: t2 present");
|
||||
unlike ($output, qr/3.+two/, "$ut: t3 missing");
|
||||
|
||||
$output = qx{../src/task rc:$rc completed 2>&1};
|
||||
# Complete Age Description UUID
|
||||
# ---------- ---- ----------- ------------------------------------
|
||||
# 9/4/2011 2.9y two 22222222-2222-2222-2222-222222222222
|
||||
#
|
||||
# 1 task
|
||||
|
||||
unlike ($output, qr/A.+zero/, "$ut: t1 missing");
|
||||
unlike ($output, qr/B.+one/, "$ut: t2 missing");
|
||||
like ($output, qr/9\/4\/2011.+two/, "$ut: t3 present");
|
||||
|
||||
# check tags and annotations
|
||||
$output = qx{../src/task rc:$rc +y 2>&1};
|
||||
# ID Proj Age Urg Description
|
||||
# -- ---- ---- ---- -----------------------
|
||||
# 2 B 2.9y 4.9 one
|
||||
# 7/6/2011 anno TWO
|
||||
# 7/6/2012 anno THREE
|
||||
# 1 A 2.9y 4.8 zero
|
||||
# 7/6/2010 anno ONE
|
||||
#
|
||||
# 2 tasks
|
||||
like ($output, qr/1.+A.+zero.*\n.+ONE/, "$ut: t1 selected by tag, has annotation");
|
||||
like ($output, qr/2.+B.+one.*\n.+TWO.*\n.+THREE/, "$ut: t2 selected by tag, has two annotations");
|
||||
like ($output, qr/\n2 tasks\n/, "$ut: tag selected two tasks");
|
||||
|
||||
# Create import file.
|
||||
if (open my $fh, '>', 'import.txt')
|
||||
{
|
||||
print $fh <<EOF;
|
||||
%YAML 1.1
|
||||
---
|
||||
task:
|
||||
uuid: 44444444-4444-4444-4444-444444444444
|
||||
description: three
|
||||
status: pending
|
||||
entry: 1234567889
|
||||
...
|
||||
EOF
|
||||
|
||||
close $fh;
|
||||
ok (-r 'import.txt', "$ut: Created second sample import data");
|
||||
}
|
||||
|
||||
# Convert YAML --> task JSON.
|
||||
qx{$source_dir/scripts/add-ons/import-yaml.pl <import.txt >import.json 2>&1};
|
||||
|
||||
# Import the JSON.
|
||||
$output = qx{../src/task rc:$rc import import.json 2>&1 >/dev/null};
|
||||
like ($output, qr/Imported 1 tasks\./, "$ut: 1 task imported");
|
||||
|
||||
# Verify.
|
||||
$output = qx{../src/task rc:$rc list 2>&1};
|
||||
# ID Project Pri Due Active Age Description
|
||||
# -- ------- --- --- ------ ---- -----------
|
||||
# 3 2.6y three
|
||||
# 1 A 3d zero
|
||||
# 2 B 2d one
|
||||
like ($output, qr/1.+A.+zero/, "$ut: t1 present");
|
||||
like ($output, qr/2.+B.+one/, "$ut: t2 present");
|
||||
like ($output, qr/3.+three/, "$ut: t3 present");
|
||||
|
||||
# Cleanup.
|
||||
unlink qw(pending.data completed.data undo.data backlog.data import.txt import.json), $rc;
|
||||
exit 0;
|
||||
|
||||
Reference in New Issue
Block a user