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

Cmake:

Browse source 
- adapted makefile and unit tests to new place of test dir
This commit is contained in:
Federico Hernandez 2010-12-28 21:38:03 +01:00
parent 17ef077e27
commit 5d775fdc3e
176 changed files with 1288 additions and 1287 deletions
Download patch file Download diff file Expand all files Collapse all files

1
test/.gitignore vendored
View file

@ -1,3 +1,4 @@
*.o
*.log *.log
att.t att.t
autocomplete.t autocomplete.t

28
test/Makefile
View file

@ -2,21 +2,21 @@ PROJECT = t.t tdb.t date.t duration.t t.benchmark.t text.t autocomplete.t \
config.t seq.t att.t stringtable.t record.t nibbler.t subst.t filt.t \ config.t seq.t att.t stringtable.t record.t nibbler.t subst.t filt.t \
cmd.t util.t color.t list.t path.t file.t directory.t grid.t rx.t \ cmd.t util.t color.t list.t path.t file.t directory.t grid.t rx.t \
taskmod.t sensor.t rectangle.t tree.t tree2.t lisp.t uri.t taskmod.t sensor.t rectangle.t tree.t tree2.t lisp.t uri.t
CFLAGS = -I. -I.. -I../.. -Wall -pedantic -ggdb3 -fno-rtti CFLAGS = -I. -I.. -I../src -Wall -pedantic -ggdb3 -fno-rtti
LFLAGS = -L/usr/local/lib -lpthread -llua LFLAGS = -L/usr/local/lib -lpthread -llua
OBJECTS = ../t-TDB.o ../t-Task.o ../t-text.o ../t-Date.o ../t-Table.o \ OBJECTS = ../src/t-TDB.o ../src/t-Task.o ../src/t-text.o ../src/t-Date.o ../src/t-Table.o \
../t-Duration.o ../t-util.o ../t-Config.o ../t-Sequence.o ../t-Att.o \ ../src/t-Duration.o ../src/t-util.o ../src/t-Config.o ../src/t-Sequence.o ../src/t-Att.o \
../t-Cmd.o ../t-Record.o ../t-StringTable.o ../t-Subst.o \ ../src/t-Cmd.o ../src/t-Record.o ../src/t-StringTable.o ../src/t-Subst.o \
../t-Nibbler.o ../t-Location.o ../t-Filter.o ../t-Context.o \ ../src/t-Nibbler.o ../src/t-Location.o ../src/t-Filter.o ../src/t-Context.o \
../t-Keymap.o ../t-command.o ../t-interactive.o ../t-report.o \ ../src/t-Keymap.o ../src/t-command.o ../src/t-interactive.o ../src/t-report.o \
../t-Grid.o ../t-Color.o ../t-rules.o ../t-recur.o ../t-custom.o \ ../src/t-Grid.o ../src/t-Color.o ../src/t-rules.o ../src/t-recur.o ../src/t-custom.o \
../t-export.o ../t-import.o ../t-edit.o ../t-Timer.o \ ../src/t-export.o ../src/t-import.o ../src/t-edit.o ../src/t-Timer.o \
../t-Permission.o ../t-Path.o ../t-File.o ../t-Directory.o \ ../src/t-Permission.o ../src/t-Path.o ../src/t-File.o ../src/t-Directory.o \
../t-Hooks.o ../t-API.o ../t-rx.o ../t-Taskmod.o ../t-dependency.o \ ../src/t-Hooks.o ../src/t-API.o ../src/t-rx.o ../src/t-Taskmod.o ../src/t-dependency.o \
../t-Transport.o ../t-TransportSSH.o ../t-Sensor.o ../t-Thread.o \ ../src/t-Transport.o ../src/t-TransportSSH.o ../src/t-Sensor.o ../src/t-Thread.o \
../t-Lisp.o ../t-Rectangle.o ../t-Tree.o ../t-TransportRSYNC.o \ ../src/t-Lisp.o ../src/t-Rectangle.o ../src/t-Tree.o ../src/t-TransportRSYNC.o \
../t-TransportCurl.o ../t-Uri.o ../t-diag.o ../t-burndown.o \ ../src/t-TransportCurl.o ../src/t-Uri.o ../src/t-diag.o ../src/t-burndown.o \
../t-history.o ../src/t-history.o
all: $(PROJECT) all: $(PROJECT)

30
test/abbreviation.t
View file

@ -39,53 +39,53 @@ if (open my $fh, '>', 'abbrev.rc')
} }
# Test the priority attribute abbrevations. # Test the priority attribute abbrevations.
qx{../task rc:abbrev.rc add priority:H with}; qx{../src/task rc:abbrev.rc add priority:H with};
qx{../task rc:abbrev.rc add without}; qx{../src/task rc:abbrev.rc add without};
my $output = qx{../task rc:abbrev.rc list priority:H}; my $output = qx{../src/task rc:abbrev.rc list priority:H};
like ($output, qr/\bwith\b/, 'priority:H with'); like ($output, qr/\bwith\b/, 'priority:H with');
unlike ($output, qr/\bwithout\b/, 'priority:H without'); unlike ($output, qr/\bwithout\b/, 'priority:H without');
$output = qx{../task rc:abbrev.rc list priorit:H}; $output = qx{../src/task rc:abbrev.rc list priorit:H};
like ($output, qr/\bwith\b/, 'priorit:H with'); like ($output, qr/\bwith\b/, 'priorit:H with');
unlike ($output, qr/\bwithout\b/, 'priorit:H without'); unlike ($output, qr/\bwithout\b/, 'priorit:H without');
$output = qx{../task rc:abbrev.rc list priori:H}; $output = qx{../src/task rc:abbrev.rc list priori:H};
like ($output, qr/\bwith\b/, 'priori:H with'); like ($output, qr/\bwith\b/, 'priori:H with');
unlike ($output, qr/\bwithout\b/, 'priori:H without'); unlike ($output, qr/\bwithout\b/, 'priori:H without');
$output = qx{../task rc:abbrev.rc list prior:H}; $output = qx{../src/task rc:abbrev.rc list prior:H};
like ($output, qr/\bwith\b/, 'prior:H with'); like ($output, qr/\bwith\b/, 'prior:H with');
unlike ($output, qr/\bwithout\b/, 'prior:H without'); unlike ($output, qr/\bwithout\b/, 'prior:H without');
$output = qx{../task rc:abbrev.rc list prio:H}; $output = qx{../src/task rc:abbrev.rc list prio:H};
like ($output, qr/\bwith\b/, 'prio:H with'); like ($output, qr/\bwith\b/, 'prio:H with');
unlike ($output, qr/\bwithout\b/, 'prio:H without'); unlike ($output, qr/\bwithout\b/, 'prio:H without');
$output = qx{../task rc:abbrev.rc list pri:H}; $output = qx{../src/task rc:abbrev.rc list pri:H};
like ($output, qr/\bwith\b/, 'pri:H with'); like ($output, qr/\bwith\b/, 'pri:H with');
unlike ($output, qr/\bwithout\b/, 'pri:H without'); unlike ($output, qr/\bwithout\b/, 'pri:H without');
# Test the version command abbreviations. # Test the version command abbreviations.
$output = qx{../task rc:abbrev.rc version}; $output = qx{../src/task rc:abbrev.rc version};
like ($output, qr/GNU\s+General\s+Public\s+License/, 'version'); like ($output, qr/GNU\s+General\s+Public\s+License/, 'version');
$output = qx{../task rc:abbrev.rc versio}; $output = qx{../src/task rc:abbrev.rc versio};
like ($output, qr/GNU\s+General\s+Public\s+License/, 'versio'); like ($output, qr/GNU\s+General\s+Public\s+License/, 'versio');
$output = qx{../task rc:abbrev.rc versi}; $output = qx{../src/task rc:abbrev.rc versi};
like ($output, qr/GNU\s+General\s+Public\s+License/, 'versi'); like ($output, qr/GNU\s+General\s+Public\s+License/, 'versi');
$output = qx{../task rc:abbrev.rc vers}; $output = qx{../src/task rc:abbrev.rc vers};
like ($output, qr/GNU\s+General\s+Public\s+License/, 'vers'); like ($output, qr/GNU\s+General\s+Public\s+License/, 'vers');
$output = qx{../task rc:abbrev.rc ver}; $output = qx{../src/task rc:abbrev.rc ver};
like ($output, qr/GNU\s+General\s+Public\s+License/, 'ver'); like ($output, qr/GNU\s+General\s+Public\s+License/, 'ver');
$output = qx{../task rc:abbrev.rc ve}; $output = qx{../src/task rc:abbrev.rc ve};
like ($output, qr/GNU\s+General\s+Public\s+License/, 've'); like ($output, qr/GNU\s+General\s+Public\s+License/, 've');
$output = qx{../task rc:abbrev.rc v}; $output = qx{../src/task rc:abbrev.rc v};
like ($output, qr/GNU\s+General\s+Public\s+License/, 'v'); like ($output, qr/GNU\s+General\s+Public\s+License/, 'v');
# Cleanup. # Cleanup.

10
test/add.t
View file

@ -40,17 +40,17 @@ if (open my $fh, '>', 'add.rc')
} }
# Test the add command. # Test the add command.
qx{../task rc:add.rc add This is a test}; qx{../src/task rc:add.rc add This is a test};
my $output = qx{../task rc:add.rc info 1}; my $output = qx{../src/task rc:add.rc info 1};
like ($output, qr/ID\s+1\n/, 'add ID'); like ($output, qr/ID\s+1\n/, 'add ID');
like ($output, qr/Description\s+This is a test\n/, 'add ID'); like ($output, qr/Description\s+This is a test\n/, 'add ID');
like ($output, qr/Status\s+Pending\n/, 'add Pending'); like ($output, qr/Status\s+Pending\n/, 'add Pending');
like ($output, qr/UUID\s+[0-9A-Fa-f]{8}-[0-9A-Fa-f]{4}-[0-9A-Fa-f]{4}-[0-9A-Fa-f]{4}-[0-9A-Fa-f]{12}\n/, 'add UUID'); like ($output, qr/UUID\s+[0-9A-Fa-f]{8}-[0-9A-Fa-f]{4}-[0-9A-Fa-f]{4}-[0-9A-Fa-f]{4}-[0-9A-Fa-f]{12}\n/, 'add UUID');
# Test the /// modifier. # Test the /// modifier.
qx{../task rc:add.rc 1 /test/TEST/}; qx{../src/task rc:add.rc 1 /test/TEST/};
qx{../task rc:add.rc 1 "/is //"}; qx{../src/task rc:add.rc 1 "/is //"};
$output = qx{../task rc:add.rc info 1}; $output = qx{../src/task rc:add.rc info 1};
like ($output, qr/ID\s+1\n/, 'add ID'); like ($output, qr/ID\s+1\n/, 'add ID');
like ($output, qr/Status\s+Pending\n/, 'add Pending'); like ($output, qr/Status\s+Pending\n/, 'add Pending');
like ($output, qr/Description\s+This a TEST\n/, 'add ID'); like ($output, qr/Description\s+This a TEST\n/, 'add ID');

8
test/alias.t
View file

@ -41,15 +41,15 @@ if (open my $fh, '>', 'alias.rc')
} }
# Add a task with certain project, then access that task via aliases. # Add a task with certain project, then access that task via aliases.
qx{../task rc:alias.rc add project:ALIAS foo}; qx{../src/task rc:alias.rc add project:ALIAS foo};
my $output = qx{../task rc:alias.rc _projects}; my $output = qx{../src/task rc:alias.rc _projects};
like ($output, qr/ALIAS/, 'task _projects -> ALIAS'); like ($output, qr/ALIAS/, 'task _projects -> ALIAS');
$output = qx{../task rc:alias.rc foo}; $output = qx{../src/task rc:alias.rc foo};
like ($output, qr/ALIAS/, 'task foo -> _projects -> ALIAS'); like ($output, qr/ALIAS/, 'task foo -> _projects -> ALIAS');
$output = qx{../task rc:alias.rc bar}; $output = qx{../src/task rc:alias.rc bar};
like ($output, qr/ALIAS/, 'task bar -> foo -> _projects -> ALIAS'); like ($output, qr/ALIAS/, 'task bar -> foo -> _projects -> ALIAS');
# Cleanup. # Cleanup.

28
test/annotate.t
View file

@ -45,24 +45,24 @@ if (open my $fh, '>', 'annotate.rc')
} }
# Add four tasks, annotate one three times, one twice, one just once and one none. # Add four tasks, annotate one three times, one twice, one just once and one none.
qx{../task rc:annotate.rc add one}; qx{../src/task rc:annotate.rc add one};
qx{../task rc:annotate.rc add two}; qx{../src/task rc:annotate.rc add two};
qx{../task rc:annotate.rc add three}; qx{../src/task rc:annotate.rc add three};
qx{../task rc:annotate.rc add four}; qx{../src/task rc:annotate.rc add four};
qx{../task rc:annotate.rc annotate 1 foo1}; qx{../src/task rc:annotate.rc annotate 1 foo1};
diag ("5 second delay"); diag ("5 second delay");
sleep 1; sleep 1;
qx{../task rc:annotate.rc annotate 1 foo2}; qx{../src/task rc:annotate.rc annotate 1 foo2};
sleep 1; sleep 1;
qx{../task rc:annotate.rc annotate 1 foo3}; qx{../src/task rc:annotate.rc annotate 1 foo3};
sleep 1; sleep 1;
qx{../task rc:annotate.rc annotate 2 bar1}; qx{../src/task rc:annotate.rc annotate 2 bar1};
sleep 1; sleep 1;
qx{../task rc:annotate.rc annotate 2 bar2}; qx{../src/task rc:annotate.rc annotate 2 bar2};
sleep 1; sleep 1;
qx{../task rc:annotate.rc annotate 3 baz1}; qx{../src/task rc:annotate.rc annotate 3 baz1};
my $output = qx{../task rc:annotate.rc rrr}; my $output = qx{../src/task rc:annotate.rc rrr};
# ID Description # ID Description
# -- ------------------------------- # -- -------------------------------
@ -91,7 +91,7 @@ like ($output, qr/bar1.+\d{1,2}\/\d{1,2}\/\d{4} bar2/ms, 'full - second annotati
like ($output, qr/three.+\d{1,2}\/\d{1,2}\/\d{4} baz1/ms,'full - first annotation task 3'); like ($output, qr/three.+\d{1,2}\/\d{1,2}\/\d{4} baz1/ms,'full - first annotation task 3');
like ($output, qr/4 tasks/, 'count'); like ($output, qr/4 tasks/, 'count');
$output = qx{../task rc:annotate.rc rc.annotations:sparse rrr}; $output = qx{../src/task rc:annotate.rc rc.annotations:sparse rrr};
like ($output, qr/1 \+one/, 'task 1'); like ($output, qr/1 \+one/, 'task 1');
like ($output, qr/2 \+two/, 'task 2'); like ($output, qr/2 \+two/, 'task 2');
like ($output, qr/3 three/, 'task 3'); like ($output, qr/3 three/, 'task 3');
@ -104,7 +104,7 @@ like ($output, qr/two.+\d{1,2}\/\d{1,2}\/\d{4} bar2/ms, 'sparse - second ann
like ($output, qr/three.+\d{1,2}\/\d{1,2}\/\d{4} baz1/ms, 'sparse - third annotation task 3'); like ($output, qr/three.+\d{1,2}\/\d{1,2}\/\d{4} baz1/ms, 'sparse - third annotation task 3');
like ($output, qr/4 tasks/, 'count'); like ($output, qr/4 tasks/, 'count');
$output = qx{../task rc:annotate.rc rc.annotations:none rrr}; $output = qx{../src/task rc:annotate.rc rc.annotations:none rrr};
like ($output, qr/1 \+one/, 'task 1'); like ($output, qr/1 \+one/, 'task 1');
like ($output, qr/2 \+two/, 'task 2'); like ($output, qr/2 \+two/, 'task 2');
like ($output, qr/3 \+three/, 'task 3'); like ($output, qr/3 \+three/, 'task 3');
@ -131,7 +131,7 @@ if (open my $fh, '>', 'annotate2.rc')
ok (-r 'annotate2.rc', 'Created annotate2.rc'); ok (-r 'annotate2.rc', 'Created annotate2.rc');
} }
$output = qx{../task rc:annotate2.rc rrr}; $output = qx{../src/task rc:annotate2.rc rrr};
like ($output, qr/1 one/, 'task 1'); like ($output, qr/1 one/, 'task 1');
like ($output, qr/2 two/, 'task 2'); like ($output, qr/2 two/, 'task 2');
like ($output, qr/3 three/, 'task 3'); like ($output, qr/3 three/, 'task 3');

6
test/append.t
View file

@ -39,9 +39,9 @@ if (open my $fh, '>', 'append.rc')
} }
# Add a task, then append more decsription. # Add a task, then append more decsription.
qx{../task rc:append.rc add foo}; qx{../src/task rc:append.rc add foo};
qx{../task rc:append.rc 1 append bar}; qx{../src/task rc:append.rc 1 append bar};
my $output = qx{../task rc:append.rc info 1}; my $output = qx{../src/task rc:append.rc info 1};
like ($output, qr/Description\s+foo\sbar\n/, 'append worked'); like ($output, qr/Description\s+foo\sbar\n/, 'append worked');
# Cleanup. # Cleanup.

20
test/args.t
View file

@ -40,24 +40,24 @@ if (open my $fh, '>', 'args.rc')
} }
# Test the -- argument. # Test the -- argument.
qx{../task rc:args.rc add project:p pri:H +tag foo}; qx{../src/task rc:args.rc add project:p pri:H +tag foo};
my $output = qx{../task rc:args.rc info 1}; my $output = qx{../src/task rc:args.rc info 1};
like ($output, qr/Description\s+foo\n/ms, 'task add project:p pri:H +tag foo'); like ($output, qr/Description\s+foo\n/ms, 'task add project:p pri:H +tag foo');
qx{../task rc:args.rc 1 project:p pri:H +tag -- foo}; qx{../src/task rc:args.rc 1 project:p pri:H +tag -- foo};
$output = qx{../task rc:args.rc info 1}; $output = qx{../src/task rc:args.rc info 1};
like ($output, qr/Description\s+foo\n/ms, 'task 1 project:p pri:H +tag -- foo'); like ($output, qr/Description\s+foo\n/ms, 'task 1 project:p pri:H +tag -- foo');
qx{../task rc:args.rc 1 project:p pri:H -- +tag foo}; qx{../src/task rc:args.rc 1 project:p pri:H -- +tag foo};
$output = qx{../task rc:args.rc info 1}; $output = qx{../src/task rc:args.rc info 1};
like ($output, qr/Description\s+\+tag\sfoo\n/ms, 'task 1 project:p pri:H -- +tag foo'); like ($output, qr/Description\s+\+tag\sfoo\n/ms, 'task 1 project:p pri:H -- +tag foo');
qx{../task rc:args.rc 1 project:p -- pri:H +tag foo}; qx{../src/task rc:args.rc 1 project:p -- pri:H +tag foo};
$output = qx{../task rc:args.rc info 1}; $output = qx{../src/task rc:args.rc info 1};
like ($output, qr/Description\s+pri:H\s\+tag\sfoo\n/ms, 'task 1 project:p -- pri:H +tag foo'); like ($output, qr/Description\s+pri:H\s\+tag\sfoo\n/ms, 'task 1 project:p -- pri:H +tag foo');
qx{../task rc:args.rc 1 -- project:p pri:H +tag foo}; qx{../src/task rc:args.rc 1 -- project:p pri:H +tag foo};
$output = qx{../task rc:args.rc info 1}; $output = qx{../src/task rc:args.rc info 1};
like ($output, qr/Description\s+project:p\spri:H\s\+tag\sfoo\n/ms, 'task 1 -- project:p pri:H +tag foo'); like ($output, qr/Description\s+project:p\spri:H\s\+tag\sfoo\n/ms, 'task 1 -- project:p pri:H +tag foo');
# Cleanup. # Cleanup.

4
test/backslash.t
View file

@ -39,8 +39,8 @@ if (open my $fh, '>', 'backslash.rc')
} }
# Add a description with a backslash. # Add a description with a backslash.
qx{../task rc:backslash.rc add foo\\\\bar}; qx{../src/task rc:backslash.rc add foo\\\\bar};
my $output = qx{../task rc:backslash.rc ls}; my $output = qx{../src/task rc:backslash.rc ls};
like ($output, qr/foo\\bar/, 'Backslash preserved, no parsing issues'); like ($output, qr/foo\\bar/, 'Backslash preserved, no parsing issues');
# Cleanup. # Cleanup.

6
test/basic.t
View file

@ -43,17 +43,17 @@ if (open my $fh, '>', 'basic.rc')
my $version = slurp ('../../configure.ac'); my $version = slurp ('../../configure.ac');
# Test the usage command. # Test the usage command.
my $output = qx{../task rc:basic.rc}; my $output = qx{../src/task rc:basic.rc};
like ($output, qr/You must specify a command, or a task ID to modify/m, 'missing command and ID'); like ($output, qr/You must specify a command, or a task ID to modify/m, 'missing command and ID');
# Test the version command. # Test the version command.
$output = qx{../task rc:basic.rc version}; $output = qx{../src/task rc:basic.rc version};
like ($output, qr/task $version/, 'version - task version number'); like ($output, qr/task $version/, 'version - task version number');
like ($output, qr/GNU\s+General\s+Public\s+License/, 'version - license'); like ($output, qr/GNU\s+General\s+Public\s+License/, 'version - license');
like ($output, qr/http:\/\/taskwarrior\.org/, 'version - url'); like ($output, qr/http:\/\/taskwarrior\.org/, 'version - url');
# Test the _version command. # Test the _version command.
$output = qx{../task rc:basic.rc _version}; $output = qx{../src/task rc:basic.rc _version};
like ($output, qr/$version/, '_version - task version number'); like ($output, qr/$version/, '_version - task version number');
# Cleanup. # Cleanup.

26
test/benchmark.t
View file

@ -58,14 +58,14 @@ for my $i (1 .. 1000)
my $priority = $priorities[rand % 3]; my $priority = $priorities[rand % 3];
my $tag = $tags[rand % 8]; my $tag = $tags[rand % 8];
qx{../task rc:bench.rc add project:$project priority:$priority +$tag $i $description}; qx{../src/task rc:bench.rc add project:$project priority:$priority +$tag $i $description};
} }
diag ("1000 tasks added in " . (time () - $cursor) . " seconds"); diag ("1000 tasks added in " . (time () - $cursor) . " seconds");
$cursor = time (); $cursor = time ();
qx{../task rc:bench.rc /with/WITH/} for 1 .. 200; qx{../src/task rc:bench.rc /with/WITH/} for 1 .. 200;
qx{../task rc:bench.rc done $_} for 201 .. 400; qx{../src/task rc:bench.rc done $_} for 201 .. 400;
qx{../task rc:bench.rc start $_} for 401 .. 600; qx{../src/task rc:bench.rc start $_} for 401 .. 600;
diag ("600 tasks altered in " . (time () - $cursor) . " seconds"); diag ("600 tasks altered in " . (time () - $cursor) . " seconds");
$cursor = time (); $cursor = time ();
@ -73,15 +73,15 @@ $cursor = time ();
for (1 .. 100) for (1 .. 100)
{ {
diag (grep {/^Timer /} qx{../task rc:bench.rc ls}); diag (grep {/^Timer /} qx{../src/task rc:bench.rc ls});
diag (grep {/^Timer /} qx{../task rc:bench.rc list}); diag (grep {/^Timer /} qx{../src/task rc:bench.rc list});
diag (grep {/^Timer /} qx{../task rc:bench.rc list priority:H}); diag (grep {/^Timer /} qx{../src/task rc:bench.rc list priority:H});
diag (grep {/^Timer /} qx{../task rc:bench.rc list +tag}); diag (grep {/^Timer /} qx{../src/task rc:bench.rc list +tag});
diag (grep {/^Timer /} qx{../task rc:bench.rc list project_A}); diag (grep {/^Timer /} qx{../src/task rc:bench.rc list project_A});
diag (grep {/^Timer /} qx{../task rc:bench.rc long}); diag (grep {/^Timer /} qx{../src/task rc:bench.rc long});
diag (grep {/^Timer /} qx{../task rc:bench.rc completed}); diag (grep {/^Timer /} qx{../src/task rc:bench.rc completed});
diag (grep {/^Timer /} qx{../task rc:bench.rc history}); diag (grep {/^Timer /} qx{../src/task rc:bench.rc history});
diag (grep {/^Timer /} qx{../task rc:bench.rc ghistory}); diag (grep {/^Timer /} qx{../src/task rc:bench.rc ghistory});
} }
# Stop the clock. # Stop the clock.

12
test/benchmark2.t
View file

@ -51,22 +51,22 @@ my $output;
# Add 1 task. # Add 1 task.
add (1); add (1);
$output = qx{../task rc:bench2.rc list}; $output = qx{../src/task rc:bench2.rc list};
report ('run-1', $output); report ('run-1', $output);
# Add 9 more tasks. # Add 9 more tasks.
add (9); add (9);
$output = qx{../task rc:bench2.rc list}; $output = qx{../src/task rc:bench2.rc list};
report ('run-10', $output); report ('run-10', $output);
# Add 90 more tasks. # Add 90 more tasks.
add (90); add (90);
$output = qx{../task rc:bench2.rc list}; $output = qx{../src/task rc:bench2.rc list};
report ('run-100', $output); report ('run-100', $output);
# Add 900 more tasks. # Add 900 more tasks.
add (900); add (900);
$output = qx{../task rc:bench2.rc list}; $output = qx{../src/task rc:bench2.rc list};
report ('run-1000', $output); report ('run-1000', $output);
# Cleanup. # Cleanup.
@ -95,7 +95,7 @@ sub add
my $priority = $priorities[rand % 3]; my $priority = $priorities[rand % 3];
my $tag = $tags[rand % 8]; my $tag = $tags[rand % 8];
qx{../task rc:bench2.rc add project:$project priority:$priority +$tag $i $description}; qx{../src/task rc:bench2.rc add project:$project priority:$priority +$tag $i $description};
} }
} }
@ -111,7 +111,7 @@ sub report
} }
# Generate output for benchmark2 chart. # Generate output for benchmark2 chart.
chomp (my $version = qx{../task _version}); chomp (my $version = qx{../src/task _version});
my $out = sprintf "%s %s %f,%f,%f,%f,%f,%f,%f", my $out = sprintf "%s %s %f,%f,%f,%f,%f,%f,%f",
$label, $label,
$version, $version,

8
test/bug.299.t
View file

@ -40,13 +40,13 @@ if (open my $fh, '>', 'bug.rc')
} }
# Setup: Add three unique tasks with different project names. # Setup: Add three unique tasks with different project names.
qx{../task rc:bug.rc add project:one foo}; qx{../src/task rc:bug.rc add project:one foo};
qx{../task rc:bug.rc add project:two bar}; qx{../src/task rc:bug.rc add project:two bar};
qx{../task rc:bug.rc add project:three baz}; qx{../src/task rc:bug.rc add project:three baz};
# Result: Run list but exclude two of the three projects names using # Result: Run list but exclude two of the three projects names using
# project.hasnt:<name> # project.hasnt:<name>
my $output = qx{../task rc:bug.rc list project.isnt:one project.isnt:two}; my $output = qx{../src/task rc:bug.rc list project.isnt:one project.isnt:two};
unlike ($output, qr/one.*foo/ms, 'project.isnt:one project.isnt:two - no foo'); unlike ($output, qr/one.*foo/ms, 'project.isnt:one project.isnt:two - no foo');
unlike ($output, qr/two.*bar/ms, 'project.isnt:one project.isnt:two - no bar'); unlike ($output, qr/two.*bar/ms, 'project.isnt:one project.isnt:two - no bar');
like ($output, qr/three.*baz/ms, 'project.isnt:one project.isnt:two - yes baz'); like ($output, qr/three.*baz/ms, 'project.isnt:one project.isnt:two - yes baz');

8
test/bug.327.t
View file

@ -40,13 +40,13 @@ if (open my $fh, '>', 'bug.rc')
} }
# Setup: Add a recurring task then remove the due date. # Setup: Add a recurring task then remove the due date.
qx{../task rc:bug.rc add foo recur:yearly due:eoy}; qx{../src/task rc:bug.rc add foo recur:yearly due:eoy};
qx{../task rc:bug.rc li}; qx{../src/task rc:bug.rc li};
qx{../task rc:bug.rc 2 due:}; qx{../src/task rc:bug.rc 2 due:};
# Result: Somehow the due date is incremented and wraps around to 12/31/1969, # Result: Somehow the due date is incremented and wraps around to 12/31/1969,
# then keeps going back to today. # then keeps going back to today.
my $output = qx{../task rc:bug.rc li}; my $output = qx{../src/task rc:bug.rc li};
unlike ($output, qr/1969/ms, 'Should not display 12/31/1969'); unlike ($output, qr/1969/ms, 'Should not display 12/31/1969');
# Cleanup. # Cleanup.

16
test/bug.360.t
View file

@ -40,28 +40,28 @@ if (open my $fh, '>', 'bug.rc')
} }
# Setup: Add a recurring task, generate an instance, then add a project. # Setup: Add a recurring task, generate an instance, then add a project.
qx{../task rc:bug.rc add foo due:tomorrow recur:daily}; qx{../src/task rc:bug.rc add foo due:tomorrow recur:daily};
qx{../task rc:bug.rc ls}; qx{../src/task rc:bug.rc ls};
# Result: trying to add the project generates an error about removing # Result: trying to add the project generates an error about removing
# recurrence from a task. # recurrence from a task.
my $output = qx{../task rc:bug.rc 1 project:bar}; my $output = qx{../src/task rc:bug.rc 1 project:bar};
unlike ($output, qr/You cannot remove the recurrence from a recurring task./ms, 'No recurrence removal error'); unlike ($output, qr/You cannot remove the recurrence from a recurring task./ms, 'No recurrence removal error');
# Now try to generate the error above via regular means - ie, is it actually # Now try to generate the error above via regular means - ie, is it actually
# doing what it should? # doing what it should?
$output = qx{../task rc:bug.rc 1 recur:}; $output = qx{../src/task rc:bug.rc 1 recur:};
like ($output, qr/You cannot remove the recurrence from a recurring task./ms, 'Recurrence removal error'); like ($output, qr/You cannot remove the recurrence from a recurring task./ms, 'Recurrence removal error');
# Prevent removal of the due date from a recurring task. # Prevent removal of the due date from a recurring task.
$output = qx{../task rc:bug.rc 1 due:}; $output = qx{../src/task rc:bug.rc 1 due:};
like ($output, qr/You cannot remove the due date from a recurring task./ms, 'Cannot remove due date from a recurring task'); like ($output, qr/You cannot remove the due date from a recurring task./ms, 'Cannot remove due date from a recurring task');
# Allow removal of the due date from a non-recurring task. # Allow removal of the due date from a non-recurring task.
qx{../task rc:bug.rc add nonrecurring}; qx{../src/task rc:bug.rc add nonrecurring};
$output = qx{../task rc:bug.rc ls}; $output = qx{../src/task rc:bug.rc ls};
my ($id) = $output =~ /(\d+)\s+nonrecurring/; my ($id) = $output =~ /(\d+)\s+nonrecurring/;
$output = qx{../task rc:bug.rc $id due:}; $output = qx{../src/task rc:bug.rc $id due:};
unlike ($output, qr/You cannot remove the due date from a recurring task./ms, 'Can remove due date from a non-recurring task'); unlike ($output, qr/You cannot remove the due date from a recurring task./ms, 'Can remove due date from a non-recurring task');
# Cleanup. # Cleanup.

4
test/bug.368.t
View file

@ -41,8 +41,8 @@ if (open my $fh, '>', 'bug.rc')
} }
# Setup: Add a recurring task, generate an instance, then add a project. # Setup: Add a recurring task, generate an instance, then add a project.
qx{../task rc:bug.rc add foo due:today recur:daily until:eom}; qx{../src/task rc:bug.rc add foo due:today recur:daily until:eom};
my $output = qx{../task rc:bug.rc info 1}; my $output = qx{../src/task rc:bug.rc info 1};
# Result: Make sure the 'until' date is rendered as a date, not an epoch. # Result: Make sure the 'until' date is rendered as a date, not an epoch.
unlike ($output, qr/Recur until\s+\d{10}/, 'until is not shown as an epoch'); unlike ($output, qr/Recur until\s+\d{10}/, 'until is not shown as an epoch');

12
test/bug.414.t
View file

@ -41,19 +41,19 @@ if (open my $fh, '>', 'bug.rc')
# Bug #414: Tags filtering not working with unicode characters # Bug #414: Tags filtering not working with unicode characters
# Add a task with a UTF-8 tag. # Add a task with a UTF-8 tag.
qx{../task rc:bug.rc add one +osobní}; qx{../src/task rc:bug.rc add one +osobní};
my $output = qx{../task rc:bug.rc ls +osobní}; my $output = qx{../src/task rc:bug.rc ls +osobní};
like ($output, qr/one/, 'found UTF8 tag osobní'); like ($output, qr/one/, 'found UTF8 tag osobní');
$output = qx{../task rc:bug.rc ls -osobní}; $output = qx{../src/task rc:bug.rc ls -osobní};
unlike ($output, qr/one/, 'not found UTF8 tag osobní'); unlike ($output, qr/one/, 'not found UTF8 tag osobní');
# And a different one # And a different one
qx{../task rc:bug.rc add two +föo}; qx{../src/task rc:bug.rc add two +föo};
$output = qx{../task rc:bug.rc ls +föo}; $output = qx{../src/task rc:bug.rc ls +föo};
like ($output, qr/two/, 'found UTF8 tag föo'); like ($output, qr/two/, 'found UTF8 tag föo');
$output = qx{../task rc:bug.rc ls -föo}; $output = qx{../src/task rc:bug.rc ls -föo};
unlike ($output, qr/two/, 'not found UTF8 tag föo'); unlike ($output, qr/two/, 'not found UTF8 tag föo');
# Cleanup. # Cleanup.

10
test/bug.417.t
View file

@ -40,14 +40,14 @@ if (open my $fh, '>', 'bug.rc')
} }
# Bug #417: Sorting by countdown_compact not working # Bug #417: Sorting by countdown_compact not working
qx{../task rc:bug.rc add due:yesterday before}; qx{../src/task rc:bug.rc add due:yesterday before};
qx{../task rc:bug.rc add due:today now}; qx{../src/task rc:bug.rc add due:today now};
qx{../task rc:bug.rc add due:tomorrow after}; qx{../src/task rc:bug.rc add due:tomorrow after};
my $output = qx{../task rc:bug.rc rc.report.long.sort:countdown+ long}; my $output = qx{../src/task rc:bug.rc rc.report.long.sort:countdown+ long};
like ($output, qr/before.+now.+after/ms, 'rc.report.long.sort:countdown+ works'); like ($output, qr/before.+now.+after/ms, 'rc.report.long.sort:countdown+ works');
$output = qx{../task rc:bug.rc rc.report.long.sort:countdown- long}; $output = qx{../src/task rc:bug.rc rc.report.long.sort:countdown- long};
like ($output, qr/after.+now.+before/ms, 'rc.report.long.sort:countdown- works'); like ($output, qr/after.+now.+before/ms, 'rc.report.long.sort:countdown- works');
# Cleanup. # Cleanup.

22
test/bug.418.t
View file

@ -47,17 +47,17 @@ if (open my $fh, '>', 'bug.rc')
# Bug #418: due.before:eow not working # Bug #418: due.before:eow not working
# - with dateformat is MD # - with dateformat is MD
qx{../task rc:bug.rc add one due:6/28/2010}; qx{../src/task rc:bug.rc add one due:6/28/2010};
qx{../task rc:bug.rc add two due:6/29/2010}; qx{../src/task rc:bug.rc add two due:6/29/2010};
qx{../task rc:bug.rc add three due:6/30/2010}; qx{../src/task rc:bug.rc add three due:6/30/2010};
qx{../task rc:bug.rc add four due:7/1/2010}; qx{../src/task rc:bug.rc add four due:7/1/2010};
qx{../task rc:bug.rc add five due:7/2/2010}; qx{../src/task rc:bug.rc add five due:7/2/2010};
qx{../task rc:bug.rc add six due:7/3/2010}; qx{../src/task rc:bug.rc add six due:7/3/2010};
qx{../task rc:bug.rc add seven due:7/4/2010}; qx{../src/task rc:bug.rc add seven due:7/4/2010};
qx{../task rc:bug.rc add eight due:7/5/2010}; qx{../src/task rc:bug.rc add eight due:7/5/2010};
qx{../task rc:bug.rc add nine due:7/6/2010}; qx{../src/task rc:bug.rc add nine due:7/6/2010};
my $output = qx{../task rc:bug.rc foo}; my $output = qx{../src/task rc:bug.rc foo};
like ($output, qr/one/ms, 'task 1 listed'); like ($output, qr/one/ms, 'task 1 listed');
like ($output, qr/two/ms, 'task 2 listed'); like ($output, qr/two/ms, 'task 2 listed');
like ($output, qr/three/ms, 'task 3 listed'); like ($output, qr/three/ms, 'task 3 listed');
@ -68,7 +68,7 @@ like ($output, qr/seven/ms, 'task 7 listed');
like ($output, qr/eight/ms, 'task 8 listed'); like ($output, qr/eight/ms, 'task 8 listed');
like ($output, qr/nine/ms, 'task 9 listed'); like ($output, qr/nine/ms, 'task 9 listed');
$output = qx{../task rc:bug.rc foo due.before:7/2/2010}; $output = qx{../src/task rc:bug.rc foo due.before:7/2/2010};
like ($output, qr/one/ms, 'task 1 listed'); like ($output, qr/one/ms, 'task 1 listed');
like ($output, qr/two/ms, 'task 2 listed'); like ($output, qr/two/ms, 'task 2 listed');
like ($output, qr/three/ms, 'task 3 listed'); like ($output, qr/three/ms, 'task 3 listed');

6
test/bug.425.x
View file

@ -44,10 +44,10 @@ if (open my $fh, '>', '425.rc')
# Create a task and attempt to revise the description to include the word 'in' # Create a task and attempt to revise the description to include the word 'in'
# (this breaks in 1.9.3 and earlier) # (this breaks in 1.9.3 and earlier)
qx{../task rc:425.rc add Foo}; qx{../src/task rc:425.rc add Foo};
qx{../task rc:425.rc 1 Bar in Bar}; qx{../src/task rc:425.rc 1 Bar in Bar};
my $output = qx{../task rc:425.rc 1 ls}; my $output = qx{../src/task rc:425.rc 1 ls};
like ($output, qr/1\s+Bar in Bar/m, 'parser - interpret \'in\' in description'); like ($output, qr/1\s+Bar in Bar/m, 'parser - interpret \'in\' in description');

4
test/bug.434.t
View file

@ -41,8 +41,8 @@ if (open my $fh, '>', 'bug.rc')
# Bug #434: Task shouldn't prevent users from marking as done tasks with status:waiting # Bug #434: Task shouldn't prevent users from marking as done tasks with status:waiting
# Add a task that is waiting # Add a task that is waiting
qx{../task rc:bug.rc add One wait:tomorrow}; qx{../src/task rc:bug.rc add One wait:tomorrow};
my $output = qx{../task rc:bug.rc do 1}; my $output = qx{../src/task rc:bug.rc do 1};
like ($output, qr/Marked 1 task as done\./, 'Waiting task marked completed'); like ($output, qr/Marked 1 task as done\./, 'Waiting task marked completed');
# Cleanup. # Cleanup.

24
test/bug.438.t
View file

@ -45,39 +45,39 @@ if (open my $fh, '>', 'bug.rc')
# time is included. # time is included.
# Ensure the two tasks have a 1 second delta in entry. # Ensure the two tasks have a 1 second delta in entry.
qx{../task rc:bug.rc add older}; qx{../src/task rc:bug.rc add older};
diag ("1 second delay"); diag ("1 second delay");
sleep 1; sleep 1;
qx{../task rc:bug.rc add newer}; qx{../src/task rc:bug.rc add newer};
my $output = qx{../task rc:bug.rc rc.report.foo.sort:entry+ foo}; my $output = qx{../src/task rc:bug.rc rc.report.foo.sort:entry+ foo};
like ($output, qr/older.+newer/ms, 'sort:entry+ -> older newer'); like ($output, qr/older.+newer/ms, 'sort:entry+ -> older newer');
$output = qx{../task rc:bug.rc rc.report.foo.sort:entry- foo}; $output = qx{../src/task rc:bug.rc rc.report.foo.sort:entry- foo};
like ($output, qr/newer.+older/ms, 'sort:entry- -> newer older'); like ($output, qr/newer.+older/ms, 'sort:entry- -> newer older');
# Ensure the two tasks have a 1 second delta in start. # Ensure the two tasks have a 1 second delta in start.
qx{../task rc:bug.rc start 1}; qx{../src/task rc:bug.rc start 1};
diag ("1 second delay"); diag ("1 second delay");
sleep 1; sleep 1;
qx{../task rc:bug.rc start 2}; qx{../src/task rc:bug.rc start 2};
$output = qx{../task rc:bug.rc rc.report.foo.sort:start+ foo}; $output = qx{../src/task rc:bug.rc rc.report.foo.sort:start+ foo};
like ($output, qr/older.+newer/ms, 'sort:start+ -> older newer'); like ($output, qr/older.+newer/ms, 'sort:start+ -> older newer');
$output = qx{../task rc:bug.rc rc.report.foo.sort:start- foo}; $output = qx{../src/task rc:bug.rc rc.report.foo.sort:start- foo};
like ($output, qr/newer.+older/ms, 'sort:start- -> newer older'); like ($output, qr/newer.+older/ms, 'sort:start- -> newer older');
# Ensure the two tasks have a 1 second delta in end. # Ensure the two tasks have a 1 second delta in end.
qx{../task rc:bug.rc done 1}; qx{../src/task rc:bug.rc done 1};
diag ("1 second delay"); diag ("1 second delay");
sleep 1; sleep 1;
qx{../task rc:bug.rc done 2}; qx{../src/task rc:bug.rc done 2};
$output = qx{../task rc:bug.rc rc.report.foo.sort:end+ foo}; $output = qx{../src/task rc:bug.rc rc.report.foo.sort:end+ foo};
like ($output, qr/older.+newer/ms, 'sort:end+ -> older newer'); like ($output, qr/older.+newer/ms, 'sort:end+ -> older newer');
$output = qx{../task rc:bug.rc rc.report.foo.sort:end- foo}; $output = qx{../src/task rc:bug.rc rc.report.foo.sort:end- foo};
like ($output, qr/newer.+older/ms, 'sort:end- -> newer older'); like ($output, qr/newer.+older/ms, 'sort:end- -> newer older');
# Cleanup. # Cleanup.

12
test/bug.440.t
View file

@ -43,14 +43,14 @@ if (open my $fh, '>', '440.rc')
# Create a task and attempt simultaneous subst and appends, both permutations # Create a task and attempt simultaneous subst and appends, both permutations
qx{../task rc:440.rc add Foo}; qx{../src/task rc:440.rc add Foo};
qx{../task rc:440.rc add Foo}; qx{../src/task rc:440.rc add Foo};
qx{../task rc:440.rc 1 /Foo/Bar/ append Appendtext}; qx{../src/task rc:440.rc 1 /Foo/Bar/ append Appendtext};
qx{../task rc:440.rc 2 append Appendtext /Foo/Bar/}; qx{../src/task rc:440.rc 2 append Appendtext /Foo/Bar/};
my $output1 = qx{../task rc:440.rc 1 ls}; my $output1 = qx{../src/task rc:440.rc 1 ls};
my $output2 = qx{../task rc:440.rc 2 ls}; my $output2 = qx{../src/task rc:440.rc 2 ls};
unlike ($output1, qr/Foo/, 'simultaneous subst and append - subst'); unlike ($output1, qr/Foo/, 'simultaneous subst and append - subst');
like ($output1, qr/\w+ Appendtext/, 'simultaneous subst and append - append'); like ($output1, qr/\w+ Appendtext/, 'simultaneous subst and append - append');

6
test/bug.441.t
View file

@ -41,9 +41,9 @@ if (open my $fh, '>', '441.rc')
} }
# Bug #441: A colon messes up text replacement with /// # Bug #441: A colon messes up text replacement with ///
qx{../task rc:441.rc add one two three}; qx{../src/task rc:441.rc add one two three};
qx{../task rc:441.rc 1 /two/two:/}; qx{../src/task rc:441.rc 1 /two/two:/};
my $output = qx{../task rc:441.rc ls}; my $output = qx{../src/task rc:441.rc ls};
like ($output, qr/one two: three/ms, 'Substitution with colon worked'); like ($output, qr/one two: three/ms, 'Substitution with colon worked');
# Cleanup. # Cleanup.

6
test/bug.455.t
View file

@ -41,10 +41,10 @@ if (open my $fh, '>', '455.rc')
# Bug #455 - Text alignment in reports is broken when text contains utf8 characters # Bug #455 - Text alignment in reports is broken when text contains utf8 characters
qx{../task rc:455.rc add abc pro:Bar\x{263A}}; qx{../src/task rc:455.rc add abc pro:Bar\x{263A}};
qx{../task rc:455.rc add def pro:Foo!}; qx{../src/task rc:455.rc add def pro:Foo!};
my $output = qx{../task rc:455.rc ls}; my $output = qx{../src/task rc:455.rc ls};
like ($output, qr/\s{7}abc/ms, 'bug 455 - correct spacing in utf8 task'); like ($output, qr/\s{7}abc/ms, 'bug 455 - correct spacing in utf8 task');
like ($output, qr/\s{7}def/ms, 'bug 455 - correct spacing in non utf8 task'); like ($output, qr/\s{7}def/ms, 'bug 455 - correct spacing in non utf8 task');

2
test/bug.466.t
View file

@ -43,7 +43,7 @@ if (open my $fh, '>', '466.rc')
} }
# Bug #466 - wrong error message when sort key missing +/- # Bug #466 - wrong error message when sort key missing +/-
my $output = qx{../task rc:466.rc foo}; my $output = qx{../src/task rc:466.rc foo};
like ($output, qr/Sort column 'id' does not have a \+\/- ascending\/descending indicator\./, like ($output, qr/Sort column 'id' does not have a \+\/- ascending\/descending indicator\./,
'Error on missing sort direction'); 'Error on missing sort direction');

48
test/bug.480.t
View file

@ -40,82 +40,82 @@ if (open my $fh, '>', 'bug.rc')
} }
# Bug #480 - putting a '@' character in tags breaks filters. # Bug #480 - putting a '@' character in tags breaks filters.
qx{../task rc:bug.rc add one +ordinary}; qx{../src/task rc:bug.rc add one +ordinary};
qx{../task rc:bug.rc add two +\@strange}; qx{../src/task rc:bug.rc add two +\@strange};
my $output = qx{../task rc:bug.rc long +ordinary}; my $output = qx{../src/task rc:bug.rc long +ordinary};
like ($output, qr/one/, '+ordinary explicitly included'); like ($output, qr/one/, '+ordinary explicitly included');
unlike ($output, qr/two/, '@strange implicitly excluded'); unlike ($output, qr/two/, '@strange implicitly excluded');
$output = qx{../task rc:bug.rc long -ordinary}; $output = qx{../src/task rc:bug.rc long -ordinary};
unlike ($output, qr/one/, '-ordinary explicitly excluded'); unlike ($output, qr/one/, '-ordinary explicitly excluded');
like ($output, qr/two/, '@strange implicitly included'); like ($output, qr/two/, '@strange implicitly included');
$output = qx{../task rc:bug.rc long +\@strange}; $output = qx{../src/task rc:bug.rc long +\@strange};
unlike ($output, qr/one/, '-ordinary implicitly excluded'); unlike ($output, qr/one/, '-ordinary implicitly excluded');
like ($output, qr/two/, '@strange explicitly included'); like ($output, qr/two/, '@strange explicitly included');
$output = qx{../task rc:bug.rc long -\@strange}; $output = qx{../src/task rc:bug.rc long -\@strange};
like ($output, qr/one/, '+ordinary implicitly included'); like ($output, qr/one/, '+ordinary implicitly included');
unlike ($output, qr/two/, '@strange explicitly excluded'); unlike ($output, qr/two/, '@strange explicitly excluded');
# Bug #XXX - '-t1 -t2' doesn't seem to work, when @ characters are involved. # Bug #XXX - '-t1 -t2' doesn't seem to work, when @ characters are involved.
unlink 'pending.data'; unlink 'pending.data';
qx{../task rc:bug.rc add one +t1}; qx{../src/task rc:bug.rc add one +t1};
qx{../task rc:bug.rc add two +t2}; qx{../src/task rc:bug.rc add two +t2};
qx{../task rc:bug.rc add three +t3}; qx{../src/task rc:bug.rc add three +t3};
$output = qx{../task rc:bug.rc list -t1}; $output = qx{../src/task rc:bug.rc list -t1};
unlike ($output, qr/one/, 'Single: no t1'); unlike ($output, qr/one/, 'Single: no t1');
like ($output, qr/two/, 'Single: yes t2'); like ($output, qr/two/, 'Single: yes t2');
like ($output, qr/three/, 'Single: yes t3'); like ($output, qr/three/, 'Single: yes t3');
$output = qx{../task rc:bug.rc list -t1 -t2}; $output = qx{../src/task rc:bug.rc list -t1 -t2};
unlike ($output, qr/one/, 'Double: no t1'); unlike ($output, qr/one/, 'Double: no t1');
unlike ($output, qr/two/, 'Double: no t2'); unlike ($output, qr/two/, 'Double: no t2');
like ($output, qr/three/, 'Double: yes t3'); like ($output, qr/three/, 'Double: yes t3');
$output = qx{../task rc:bug.rc list -t1 -t2 -t3}; $output = qx{../src/task rc:bug.rc list -t1 -t2 -t3};
unlike ($output, qr/one/, 'Triple: no t1'); unlike ($output, qr/one/, 'Triple: no t1');
unlike ($output, qr/two/, 'Triple: no t2'); unlike ($output, qr/two/, 'Triple: no t2');
unlike ($output, qr/three/, 'Triple: no t3'); unlike ($output, qr/three/, 'Triple: no t3');
# Once again, with @ characters. # Once again, with @ characters.
qx{../task rc:bug.rc 1 +\@1}; qx{../src/task rc:bug.rc 1 +\@1};
qx{../task rc:bug.rc 2 +\@2}; qx{../src/task rc:bug.rc 2 +\@2};
qx{../task rc:bug.rc 3 +\@3}; qx{../src/task rc:bug.rc 3 +\@3};
$output = qx{../task rc:bug.rc list -\@1}; $output = qx{../src/task rc:bug.rc list -\@1};
unlike ($output, qr/one/, 'Single: no @1'); unlike ($output, qr/one/, 'Single: no @1');
like ($output, qr/two/, 'Single: yes @2'); like ($output, qr/two/, 'Single: yes @2');
like ($output, qr/three/, 'Single: yes @3'); like ($output, qr/three/, 'Single: yes @3');
$output = qx{../task rc:bug.rc list -\@1 -\@2}; $output = qx{../src/task rc:bug.rc list -\@1 -\@2};
unlike ($output, qr/one/, 'Double: no @1'); unlike ($output, qr/one/, 'Double: no @1');
unlike ($output, qr/two/, 'Double: no @2'); unlike ($output, qr/two/, 'Double: no @2');
like ($output, qr/three/, 'Double: yes @3'); like ($output, qr/three/, 'Double: yes @3');
$output = qx{../task rc:bug.rc list -\@1 -\@2 -\@3}; $output = qx{../src/task rc:bug.rc list -\@1 -\@2 -\@3};
unlike ($output, qr/one/, 'Triple: no @1'); unlike ($output, qr/one/, 'Triple: no @1');
unlike ($output, qr/two/, 'Triple: no @2'); unlike ($output, qr/two/, 'Triple: no @2');
unlike ($output, qr/three/, 'Triple: no @3'); unlike ($output, qr/three/, 'Triple: no @3');
# Once again, with @ characters and punctuation. # Once again, with @ characters and punctuation.
qx{../task rc:bug.rc 1 +\@foo.1}; qx{../src/task rc:bug.rc 1 +\@foo.1};
qx{../task rc:bug.rc 2 +\@foo.2}; qx{../src/task rc:bug.rc 2 +\@foo.2};
qx{../task rc:bug.rc 3 +\@foo.3}; qx{../src/task rc:bug.rc 3 +\@foo.3};
$output = qx{../task rc:bug.rc list -\@foo.1}; $output = qx{../src/task rc:bug.rc list -\@foo.1};
unlike ($output, qr/one/, 'Single: no @foo.1'); unlike ($output, qr/one/, 'Single: no @foo.1');
like ($output, qr/two/, 'Single: yes @foo.2'); like ($output, qr/two/, 'Single: yes @foo.2');
like ($output, qr/three/, 'Single: yes @foo.3'); like ($output, qr/three/, 'Single: yes @foo.3');
$output = qx{../task rc:bug.rc list -\@foo.1 -\@foo.2}; $output = qx{../src/task rc:bug.rc list -\@foo.1 -\@foo.2};
unlike ($output, qr/one/, 'Double: no @foo.1'); unlike ($output, qr/one/, 'Double: no @foo.1');
unlike ($output, qr/two/, 'Double: no @foo.2'); unlike ($output, qr/two/, 'Double: no @foo.2');
like ($output, qr/three/, 'Double: yes @foo.3'); like ($output, qr/three/, 'Double: yes @foo.3');
$output = qx{../task rc:bug.rc list -\@foo.1 -\@foo.2 -\@foo.3}; $output = qx{../src/task rc:bug.rc list -\@foo.1 -\@foo.2 -\@foo.3};
unlike ($output, qr/one/, 'Triple: no @foo.1'); unlike ($output, qr/one/, 'Triple: no @foo.1');
unlike ($output, qr/two/, 'Triple: no @foo.2'); unlike ($output, qr/two/, 'Triple: no @foo.2');
unlike ($output, qr/three/, 'Triple: no @foo.3'); unlike ($output, qr/three/, 'Triple: no @foo.3');

8
test/bug.485.x
View file

@ -40,13 +40,13 @@ if (open my $fh, '>', 'bug.rc')
} }
# Bug #485 - 'task list recur:month' doesn't list monthly tasks # Bug #485 - 'task list recur:month' doesn't list monthly tasks
qx{../task rc:bug.rc add one due:tomorrow recur:monthly}; qx{../src/task rc:bug.rc add one due:tomorrow recur:monthly};
qx{../task rc:bug.rc add two due:tomorrow recur:month}; qx{../src/task rc:bug.rc add two due:tomorrow recur:month};
my $output = qx{../task rc:bug.rc list recur:monthly}; my $output = qx{../src/task rc:bug.rc list recur:monthly};
like ($output, qr/one/, 'monthly -> monthly'); like ($output, qr/one/, 'monthly -> monthly');
like ($output, qr/two/, 'month -> monthly'); like ($output, qr/two/, 'month -> monthly');
$output = qx{../task rc:bug.rc list recur:month}; $output = qx{../src/task rc:bug.rc list recur:month};
like ($output, qr/one/, 'monthly -> month'); like ($output, qr/one/, 'monthly -> month');
like ($output, qr/two/, 'month -> month'); like ($output, qr/two/, 'month -> month');

6
test/bug.489.t
View file

@ -40,9 +40,9 @@ if (open my $fh, '>', 'bug.rc')
} }
# Bug #489 - tags.none: is not filtering tagless tasks # Bug #489 - tags.none: is not filtering tagless tasks
qx{../task rc:bug.rc add with +tag}; qx{../src/task rc:bug.rc add with +tag};
qx{../task rc:bug.rc add without}; qx{../src/task rc:bug.rc add without};
my $output = qx{../task rc:bug.rc list tags.none:}; my $output = qx{../src/task rc:bug.rc list tags.none:};
unlike ($output, qr/with /, 'tags.none: skips tagged'); unlike ($output, qr/with /, 'tags.none: skips tagged');
like ($output, qr/without/, 'tags.none: finds tagless'); like ($output, qr/without/, 'tags.none: finds tagless');

6
test/bug.495.t
View file

@ -40,9 +40,9 @@ if (open my $fh, '>', 'bug.rc')
} }
# Bug #495 - double hyphen mishandled for annotations. # Bug #495 - double hyphen mishandled for annotations.
qx{../task rc:bug.rc add foo}; qx{../src/task rc:bug.rc add foo};
qx{../task rc:bug.rc 1 annotate "This -- is -- a -- test"}; qx{../src/task rc:bug.rc 1 annotate "This -- is -- a -- test"};
my $output = qx{../task rc:bug.rc list}; my $output = qx{../src/task rc:bug.rc list};
like ($output, qr/This -- is -- a -- test/, 'Double hyphens preserved.'); like ($output, qr/This -- is -- a -- test/, 'Double hyphens preserved.');
# Cleanup. # Cleanup.

2
test/bug.555.t
View file

@ -40,7 +40,7 @@ if (open my $fh, '>', 'bug.rc')
} }
# Bug #555 - log with a project segfaults. # Bug #555 - log with a project segfaults.
my $output = qx{../task rc:bug.rc log description project:p}; my $output = qx{../src/task rc:bug.rc log description project:p};
unlike ($output, qr/Segmentation fault/, 'no segfault from log with project'); unlike ($output, qr/Segmentation fault/, 'no segfault from log with project');
# Cleanup. # Cleanup.

8
test/bug.580.t
View file

@ -61,15 +61,15 @@ if (open my $fh, '>', 'remote.rc')
} }
# add a remote task # add a remote task
qx{../task rc:remote.rc add remote task}; qx{../src/task rc:remote.rc add remote task};
# add a local task # add a local task
qx(../task rc:local.rc add local task); qx(../src/task rc:local.rc add local task);
# merge and autopush # merge and autopush
qx{../task rc:local.rc merge}; qx{../src/task rc:local.rc merge};
my $output = qx{../task rc:remote.rc ls}; my $output = qx{../src/task rc:remote.rc ls};
like ($output, qr/local task/, "autopush failed"); like ($output, qr/local task/, "autopush failed");
# Cleanup. # Cleanup.

6
test/bug.annotate.t
View file

@ -39,12 +39,12 @@ if (open my $fh, '>', 'bug_annotate.rc')
} }
# Attempt a blank annotation. # Attempt a blank annotation.
qx{../task rc:bug_annotate.rc add foo}; qx{../src/task rc:bug_annotate.rc add foo};
my $output = qx{../task rc:bug_annotate.rc 1 annotate}; my $output = qx{../src/task rc:bug_annotate.rc 1 annotate};
like ($output, qr/Cannot apply a blank annotation./, 'failed on blank annotation'); like ($output, qr/Cannot apply a blank annotation./, 'failed on blank annotation');
# Attempt an annotation without ID # Attempt an annotation without ID
$output = qx{../task rc:bug_annotate.rc annotate bar}; $output = qx{../src/task rc:bug_annotate.rc annotate bar};
like ($output, qr/ID needed to apply an annotation./, 'failed on annotation without ID'); like ($output, qr/ID needed to apply an annotation./, 'failed on annotation without ID');
# Cleanup. # Cleanup.

4
test/bug.annual.t
View file

@ -55,8 +55,8 @@ if (open my $fh, '>', 'annual.rc')
# 10 12/29/2008 - foo # 10 12/29/2008 - foo
# 11 12/29/2009 - foo # 11 12/29/2009 - foo
qx{../task rc:annual.rc add foo due:1/1/2000 recur:annual until:1/1/2009}; qx{../src/task rc:annual.rc add foo due:1/1/2000 recur:annual until:1/1/2009};
my $output = qx{../task rc:annual.rc list}; my $output = qx{../src/task rc:annual.rc list};
like ($output, qr/1\s+1\/1\/2000\s+(?:-|\d+\ssecs?)\s+foo/, 'synthetic 1 no creep'); like ($output, qr/1\s+1\/1\/2000\s+(?:-|\d+\ssecs?)\s+foo/, 'synthetic 1 no creep');
like ($output, qr/2\s+1\/1\/2001\s+(?:-|\d+\ssecs?)\s+foo/, 'synthetic 2 no creep'); like ($output, qr/2\s+1\/1\/2001\s+(?:-|\d+\ssecs?)\s+foo/, 'synthetic 2 no creep');
like ($output, qr/3\s+1\/1\/2002\s+(?:-|\d+\ssecs?)\s+foo/, 'synthetic 3 no creep'); like ($output, qr/3\s+1\/1\/2002\s+(?:-|\d+\ssecs?)\s+foo/, 'synthetic 3 no creep');

16
test/bug.before.t
View file

@ -55,28 +55,28 @@ EOF
} }
# Verify data is readable and just as expected. # Verify data is readable and just as expected.
my $output = qx{../task rc:before.rc 1 info}; my $output = qx{../src/task rc:before.rc 1 info};
like ($output, qr/Start\s+12\/22\/2008/, 'task 1 start date as expected'); like ($output, qr/Start\s+12\/22\/2008/, 'task 1 start date as expected');
$output = qx{../task rc:before.rc 2 info}; $output = qx{../src/task rc:before.rc 2 info};
like ($output, qr/Start\s+4\/17\/2009/, 'task 2 start date as expected'); like ($output, qr/Start\s+4\/17\/2009/, 'task 2 start date as expected');
$output = qx{../task rc:before.rc ls start.before:12/1/2008}; $output = qx{../src/task rc:before.rc ls start.before:12/1/2008};
unlike ($output, qr/foo/, 'no foo before 12/1/2008'); unlike ($output, qr/foo/, 'no foo before 12/1/2008');
unlike ($output, qr/bar/, 'no bar before 12/1/2008'); unlike ($output, qr/bar/, 'no bar before 12/1/2008');
$output = qx{../task rc:before.rc ls start.before:1/1/2009}; $output = qx{../src/task rc:before.rc ls start.before:1/1/2009};
like ($output, qr/foo/, 'foo before 1/1/2009'); like ($output, qr/foo/, 'foo before 1/1/2009');
unlike ($output, qr/bar/, 'no bar before 1/1/2009'); unlike ($output, qr/bar/, 'no bar before 1/1/2009');
$output = qx{../task rc:before.rc ls start.before:5/1/2009}; $output = qx{../src/task rc:before.rc ls start.before:5/1/2009};
like ($output, qr/foo/, 'foo before 5/1/2009'); like ($output, qr/foo/, 'foo before 5/1/2009');
like ($output, qr/bar/, 'bar before 5/1/2009'); like ($output, qr/bar/, 'bar before 5/1/2009');
$output = qx{../task rc:before.rc ls start.after:12/1/2008}; $output = qx{../src/task rc:before.rc ls start.after:12/1/2008};
like ($output, qr/foo/, 'foo after 12/1/2008'); like ($output, qr/foo/, 'foo after 12/1/2008');
like ($output, qr/bar/, 'bar after 12/1/2008'); like ($output, qr/bar/, 'bar after 12/1/2008');
$output = qx{../task rc:before.rc ls start.after:1/1/2009}; $output = qx{../src/task rc:before.rc ls start.after:1/1/2009};
unlike ($output, qr/foo/, 'no foo after 1/1/2009'); unlike ($output, qr/foo/, 'no foo after 1/1/2009');
like ($output, qr/bar/, 'bar after 1/1/2009'); like ($output, qr/bar/, 'bar after 1/1/2009');
$output = qx{../task rc:before.rc ls start.after:5/1/2009}; $output = qx{../src/task rc:before.rc ls start.after:5/1/2009};
unlike ($output, qr/foo/, 'no foo after 5/1/2009'); unlike ($output, qr/foo/, 'no foo after 5/1/2009');
unlike ($output, qr/bar/, 'no bar after 5/1/2009'); unlike ($output, qr/bar/, 'no bar after 5/1/2009');

22
test/bug.bulk.t
View file

@ -42,30 +42,30 @@ if (open my $fh, '>', 'bulk.rc')
# Add some tasks with project, prioriy and due date, some with only due date. # Add some tasks with project, prioriy and due date, some with only due date.
# Bulk add a project and priority to the tasks that were without. # Bulk add a project and priority to the tasks that were without.
qx{../task rc:bulk.rc add t1 pro:p1 pri:H due:monday}; qx{../src/task rc:bulk.rc add t1 pro:p1 pri:H due:monday};
qx{../task rc:bulk.rc add t2 pro:p1 pri:M due:tuesday}; qx{../src/task rc:bulk.rc add t2 pro:p1 pri:M due:tuesday};
qx{../task rc:bulk.rc add t3 pro:p1 pri:L due:wednesday}; qx{../src/task rc:bulk.rc add t3 pro:p1 pri:L due:wednesday};
qx{../task rc:bulk.rc add t4 due:thursday}; qx{../src/task rc:bulk.rc add t4 due:thursday};
qx{../task rc:bulk.rc add t5 due:friday}; qx{../src/task rc:bulk.rc add t5 due:friday};
qx{../task rc:bulk.rc add t6 due:saturday}; qx{../src/task rc:bulk.rc add t6 due:saturday};
my $output = qx{echo "quit"|../task rc:bulk.rc pro:p1 pri:M 4 5 6}; my $output = qx{echo "quit"|../src/task rc:bulk.rc pro:p1 pri:M 4 5 6};
like ($output, qr/Modified 0 tasks/, '"quit" prevents any further modifications'); like ($output, qr/Modified 0 tasks/, '"quit" prevents any further modifications');
$output = qx{echo "All"|../task rc:bulk.rc pro:p1 pri:M 4 5 6}; $output = qx{echo "All"|../src/task rc:bulk.rc pro:p1 pri:M 4 5 6};
unlike ($output, qr/Task 4 "t4"\n - No changes were made/, 'Task 4 modified'); unlike ($output, qr/Task 4 "t4"\n - No changes were made/, 'Task 4 modified');
unlike ($output, qr/Task 5 "t5"\n - No changes were made/, 'Task 5 modified'); unlike ($output, qr/Task 5 "t5"\n - No changes were made/, 'Task 5 modified');
unlike ($output, qr/Task 6 "t6"\n - No changes were made/, 'Task 6 modified'); unlike ($output, qr/Task 6 "t6"\n - No changes were made/, 'Task 6 modified');
$output = qx{../task rc:bulk.rc info 4}; $output = qx{../src/task rc:bulk.rc info 4};
like ($output, qr/Project\s+p1/, 'project applied to 4'); like ($output, qr/Project\s+p1/, 'project applied to 4');
like ($output, qr/Priority\s+M/, 'priority applied to 4'); like ($output, qr/Priority\s+M/, 'priority applied to 4');
$output = qx{../task rc:bulk.rc info 5}; $output = qx{../src/task rc:bulk.rc info 5};
like ($output, qr/Project\s+p1/, 'project applied to 5'); like ($output, qr/Project\s+p1/, 'project applied to 5');
like ($output, qr/Priority\s+M/, 'priority applied to 5'); like ($output, qr/Priority\s+M/, 'priority applied to 5');
$output = qx{../task rc:bulk.rc info 6}; $output = qx{../src/task rc:bulk.rc info 6};
like ($output, qr/Project\s+p1/, 'project applied to 6'); like ($output, qr/Project\s+p1/, 'project applied to 6');
like ($output, qr/Priority\s+M/, 'priority applied to 6'); like ($output, qr/Priority\s+M/, 'priority applied to 6');

54
test/bug.cal.t
View file

@ -42,65 +42,65 @@ if (open my $fh, '>', 'cal.rc')
# Bug: The 'cal' command can fail when provided with challenging arguments. # Bug: The 'cal' command can fail when provided with challenging arguments.
# Should not fail (because they are correct): # Should not fail (because they are correct):
my $output = qx{../task rc:cal.rc cal 2>&1}; my $output = qx{../src/task rc:cal.rc cal 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal');
# y due 2010 donkey 8 # y due 2010 donkey 8
$output = qx{../task rc:cal.rc cal y 2>&1}; $output = qx{../src/task rc:cal.rc cal y 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y');
$output = qx{../task rc:cal.rc cal 8 2>&1}; $output = qx{../src/task rc:cal.rc cal 8 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8');
$output = qx{../task rc:cal.rc cal due 2>&1}; $output = qx{../src/task rc:cal.rc cal due 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due');
$output = qx{../task rc:cal.rc cal 2010 2>&1}; $output = qx{../src/task rc:cal.rc cal 2010 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 2010'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 2010');
$output = qx{../task rc:cal.rc cal donkey 2>&1}; $output = qx{../src/task rc:cal.rc cal donkey 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal donkey'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal donkey');
# y due 2010 donkey 8 # y due 2010 donkey 8
$output = qx{../task rc:cal.rc cal y due 2>&1}; $output = qx{../src/task rc:cal.rc cal y due 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y due'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y due');
$output = qx{../task rc:cal.rc cal y 8 2>&1}; $output = qx{../src/task rc:cal.rc cal y 8 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 8'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 8');
$output = qx{../task rc:cal.rc cal y 2010 2>&1}; $output = qx{../src/task rc:cal.rc cal y 2010 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 2010'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 2010');
$output = qx{../task rc:cal.rc cal y donkey 2>&1}; $output = qx{../src/task rc:cal.rc cal y donkey 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y donkey'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y donkey');
$output = qx{../task rc:cal.rc cal 8 due 2>&1}; $output = qx{../src/task rc:cal.rc cal 8 due 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 due'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 due');
$output = qx{../task rc:cal.rc cal 8 2010 2>&1}; $output = qx{../src/task rc:cal.rc cal 8 2010 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 2010'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 2010');
$output = qx{../task rc:cal.rc cal 8 donkey 2>&1}; $output = qx{../src/task rc:cal.rc cal 8 donkey 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 donkey'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 donkey');
$output = qx{../task rc:cal.rc cal due 2010 2>&1}; $output = qx{../src/task rc:cal.rc cal due 2010 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due 2010'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due 2010');
$output = qx{../task rc:cal.rc cal due donkey 2>&1}; $output = qx{../src/task rc:cal.rc cal due donkey 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due donkey'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due donkey');
$output = qx{../task rc:cal.rc cal 2010 donkey 2>&1}; $output = qx{../src/task rc:cal.rc cal 2010 donkey 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 2010 donkey'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 2010 donkey');
# y 8 due 2010 donkey # y 8 due 2010 donkey
$output = qx{../task rc:cal.rc cal y 8 due 2>&1}; $output = qx{../src/task rc:cal.rc cal y 8 due 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 8 due'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 8 due');
$output = qx{../task rc:cal.rc cal y 8 2010 2>&1}; $output = qx{../src/task rc:cal.rc cal y 8 2010 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 8 2010'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 8 2010');
$output = qx{../task rc:cal.rc cal y 8 donkey 2>&1}; $output = qx{../src/task rc:cal.rc cal y 8 donkey 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 8 donkey'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 8 donkey');
$output = qx{../task rc:cal.rc cal y due 2010 2>&1}; $output = qx{../src/task rc:cal.rc cal y due 2010 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y due 2010'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y due 2010');
$output = qx{../task rc:cal.rc cal y due donkey 2>&1}; $output = qx{../src/task rc:cal.rc cal y due donkey 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y due donkey'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y due donkey');
$output = qx{../task rc:cal.rc cal y 2010 donkey 2>&1}; $output = qx{../src/task rc:cal.rc cal y 2010 donkey 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 2010 donkey'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 2010 donkey');
$output = qx{../task rc:cal.rc cal 8 due 2010 2>&1}; $output = qx{../src/task rc:cal.rc cal 8 due 2010 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 due 2010'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 due 2010');
$output = qx{../task rc:cal.rc cal 8 due donkey 2>&1}; $output = qx{../src/task rc:cal.rc cal 8 due donkey 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 due donkey'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 due donkey');
$output = qx{../task rc:cal.rc cal 8 2010 donkey 2>&1}; $output = qx{../src/task rc:cal.rc cal 8 2010 donkey 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 2010 donkey'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 2010 donkey');
$output = qx{../task rc:cal.rc cal due 2010 8 2>&1}; $output = qx{../src/task rc:cal.rc cal due 2010 8 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due 2010 8'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due 2010 8');
$output = qx{../task rc:cal.rc cal due 2010 donkey 2>&1}; $output = qx{../src/task rc:cal.rc cal due 2010 donkey 2>&1};
unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due 2010 donkey'); unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due 2010 donkey');
# Cleanup. # Cleanup.

12
test/bug.concat.t
View file

@ -47,12 +47,12 @@ if (open my $fh, '>', 'bug_concat.rc')
# #
# Thisisanewdescription # Thisisanewdescription
qx{../task rc:bug_concat.rc add This is the original text}; qx{../src/task rc:bug_concat.rc add This is the original text};
my $output = qx{../task rc:bug_concat.rc info 1}; my $output = qx{../src/task rc:bug_concat.rc info 1};
like ($output, qr/Description\s+This is the original text\n/, 'original correct'); like ($output, qr/Description\s+This is the original text\n/, 'original correct');
qx{../task rc:bug_concat.rc 1 This is the modified text}; qx{../src/task rc:bug_concat.rc 1 This is the modified text};
$output = qx{../task rc:bug_concat.rc info 1}; $output = qx{../src/task rc:bug_concat.rc info 1};
like ($output, qr/Description\s+This is the modified text\n/, 'modified correct'); like ($output, qr/Description\s+This is the modified text\n/, 'modified correct');
# When a task is added like this: # When a task is added like this:
@ -63,8 +63,8 @@ like ($output, qr/Description\s+This is the modified text\n/, 'modified correct'
# #
# aaabbb:ccc ddd # aaabbb:ccc ddd
qx{../task rc:bug_concat.rc add aaa bbb:ccc ddd}; qx{../src/task rc:bug_concat.rc add aaa bbb:ccc ddd};
$output = qx{../task rc:bug_concat.rc info 2}; $output = qx{../src/task rc:bug_concat.rc info 2};
like ($output, qr/Description\s+aaa bbb:ccc ddd\n/, 'properly concatenated'); like ($output, qr/Description\s+aaa bbb:ccc ddd\n/, 'properly concatenated');
# Cleanup. # Cleanup.

6
test/bug.hang.t
View file

@ -56,9 +56,9 @@ eval
{ {
$SIG{'ALRM'} = sub {die "alarm\n"}; $SIG{'ALRM'} = sub {die "alarm\n"};
alarm 10; alarm 10;
my $output = qx{../task rc:hang.rc list; my $output = qx{../src/task rc:hang.rc list;
../task rc:hang.rc add due:today recur:1d infinite loop; ../src/task rc:hang.rc add due:today recur:1d infinite loop;
../task rc:hang.rc info 1}; ../src/task rc:hang.rc info 1};
alarm 0; alarm 0;
like ($output, qr/^Description\s+infinite loop\n/m, 'no hang'); like ($output, qr/^Description\s+infinite loop\n/m, 'no hang');

34
test/bug.hasnt.t
View file

@ -40,39 +40,39 @@ if (open my $fh, '>', 'hasnt.rc')
} }
# 1 # 1
qx{../task rc:hasnt.rc add foo}; qx{../src/task rc:hasnt.rc add foo};
# 2 # 2
qx{../task rc:hasnt.rc add foo}; qx{../src/task rc:hasnt.rc add foo};
qx{../task rc:hasnt.rc 2 annotate bar}; qx{../src/task rc:hasnt.rc 2 annotate bar};
# 3 # 3
qx{../task rc:hasnt.rc add foo}; qx{../src/task rc:hasnt.rc add foo};
qx{../task rc:hasnt.rc 3 annotate bar}; qx{../src/task rc:hasnt.rc 3 annotate bar};
diag ("3 second delay"); diag ("3 second delay");
sleep 1; sleep 1;
qx{../task rc:hasnt.rc 3 annotate baz}; qx{../src/task rc:hasnt.rc 3 annotate baz};
# 4 # 4
qx{../task rc:hasnt.rc add bar}; qx{../src/task rc:hasnt.rc add bar};
# 5 # 5
qx{../task rc:hasnt.rc add bar}; qx{../src/task rc:hasnt.rc add bar};
qx{../task rc:hasnt.rc 5 annotate foo}; qx{../src/task rc:hasnt.rc 5 annotate foo};
# 6 # 6
qx{../task rc:hasnt.rc add bar}; qx{../src/task rc:hasnt.rc add bar};
qx{../task rc:hasnt.rc 6 annotate foo}; qx{../src/task rc:hasnt.rc 6 annotate foo};
sleep 1; sleep 1;
qx{../task rc:hasnt.rc 6 annotate baz}; qx{../src/task rc:hasnt.rc 6 annotate baz};
#7 #7
qx{../task rc:hasnt.rc add one}; qx{../src/task rc:hasnt.rc add one};
qx{../task rc:hasnt.rc 7 annotate two}; qx{../src/task rc:hasnt.rc 7 annotate two};
sleep 1; sleep 1;
qx{../task rc:hasnt.rc 7 annotate three}; qx{../src/task rc:hasnt.rc 7 annotate three};
my $output = qx{../task rc:hasnt.rc ls description.has:foo}; my $output = qx{../src/task rc:hasnt.rc ls description.has:foo};
like ($output, qr/\n 1/, '1 has foo -> yes'); like ($output, qr/\n 1/, '1 has foo -> yes');
like ($output, qr/\n 2/, '2 has foo -> yes'); like ($output, qr/\n 2/, '2 has foo -> yes');
like ($output, qr/\n 3/, '3 has foo -> yes'); like ($output, qr/\n 3/, '3 has foo -> yes');
@ -81,7 +81,7 @@ like ($output, qr/\n 5/, '5 has foo -> yes');
like ($output, qr/\n 6/, '6 has foo -> yes'); like ($output, qr/\n 6/, '6 has foo -> yes');
unlike ($output, qr/\n 7/, '7 has foo -> no'); unlike ($output, qr/\n 7/, '7 has foo -> no');
$output = qx{../task rc:hasnt.rc ls description.hasnt:foo}; $output = qx{../src/task rc:hasnt.rc ls description.hasnt:foo};
unlike ($output, qr/\n 1/, '1 hasnt foo -> no'); unlike ($output, qr/\n 1/, '1 hasnt foo -> no');
unlike ($output, qr/\n 2/, '2 hasnt foo -> no'); unlike ($output, qr/\n 2/, '2 hasnt foo -> no');
unlike ($output, qr/\n 3/, '3 hasnt foo -> no'); unlike ($output, qr/\n 3/, '3 hasnt foo -> no');

40
test/bug.period.t
View file

@ -74,65 +74,65 @@ Confirmed:
*y *y
=cut =cut
my $output = qx{../task rc:period.rc add daily due:tomorrow recur:daily}; my $output = qx{../src/task rc:period.rc add daily due:tomorrow recur:daily};
unlike ($output, qr/was not recognized/, 'recur:daily'); unlike ($output, qr/was not recognized/, 'recur:daily');
$output = qx{../task rc:period.rc add day due:tomorrow recur:day}; $output = qx{../src/task rc:period.rc add day due:tomorrow recur:day};
unlike ($output, qr/was not recognized/, 'recur:day'); unlike ($output, qr/was not recognized/, 'recur:day');
$output = qx{../task rc:period.rc add weekly due:tomorrow recur:weekly}; $output = qx{../src/task rc:period.rc add weekly due:tomorrow recur:weekly};
unlike ($output, qr/was not recognized/, 'recur:weekly'); unlike ($output, qr/was not recognized/, 'recur:weekly');
$output = qx{../task rc:period.rc add sennight due:tomorrow recur:sennight}; $output = qx{../src/task rc:period.rc add sennight due:tomorrow recur:sennight};
unlike ($output, qr/was not recognized/, 'recur:sennight'); unlike ($output, qr/was not recognized/, 'recur:sennight');
$output = qx{../task rc:period.rc add biweekly due:tomorrow recur:biweekly}; $output = qx{../src/task rc:period.rc add biweekly due:tomorrow recur:biweekly};
unlike ($output, qr/was not recognized/, 'recur:biweekly'); unlike ($output, qr/was not recognized/, 'recur:biweekly');
$output = qx{../task rc:period.rc add fortnight due:tomorrow recur:fortnight}; $output = qx{../src/task rc:period.rc add fortnight due:tomorrow recur:fortnight};
unlike ($output, qr/was not recognized/, 'recur:fortnight'); unlike ($output, qr/was not recognized/, 'recur:fortnight');
$output = qx{../task rc:period.rc add monthly due:tomorrow recur:monthly}; $output = qx{../src/task rc:period.rc add monthly due:tomorrow recur:monthly};
unlike ($output, qr/was not recognized/, 'recur:monthly'); unlike ($output, qr/was not recognized/, 'recur:monthly');
$output = qx{../task rc:period.rc add quarterly due:tomorrow recur:quarterly}; $output = qx{../src/task rc:period.rc add quarterly due:tomorrow recur:quarterly};
unlike ($output, qr/was not recognized/, 'recur:quarterly'); unlike ($output, qr/was not recognized/, 'recur:quarterly');
$output = qx{../task rc:period.rc add semiannual due:tomorrow recur:semiannual}; $output = qx{../src/task rc:period.rc add semiannual due:tomorrow recur:semiannual};
unlike ($output, qr/was not recognized/, 'recur:semiannual'); unlike ($output, qr/was not recognized/, 'recur:semiannual');
$output = qx{../task rc:period.rc add bimonthly due:tomorrow recur:bimonthly}; $output = qx{../src/task rc:period.rc add bimonthly due:tomorrow recur:bimonthly};
unlike ($output, qr/was not recognized/, 'recur:bimonthly'); unlike ($output, qr/was not recognized/, 'recur:bimonthly');
$output = qx{../task rc:period.rc add biannual due:tomorrow recur:biannual}; $output = qx{../src/task rc:period.rc add biannual due:tomorrow recur:biannual};
unlike ($output, qr/was not recognized/, 'recur:biannual'); unlike ($output, qr/was not recognized/, 'recur:biannual');
$output = qx{../task rc:period.rc add biyearly due:tomorrow recur:biyearly}; $output = qx{../src/task rc:period.rc add biyearly due:tomorrow recur:biyearly};
unlike ($output, qr/was not recognized/, 'recur:biyearly'); unlike ($output, qr/was not recognized/, 'recur:biyearly');
$output = qx{../task rc:period.rc add annual due:tomorrow recur:annual}; $output = qx{../src/task rc:period.rc add annual due:tomorrow recur:annual};
unlike ($output, qr/was not recognized/, 'recur:annual'); unlike ($output, qr/was not recognized/, 'recur:annual');
$output = qx{../task rc:period.rc add yearly due:tomorrow recur:yearly}; $output = qx{../src/task rc:period.rc add yearly due:tomorrow recur:yearly};
unlike ($output, qr/was not recognized/, 'recur:yearly'); unlike ($output, qr/was not recognized/, 'recur:yearly');
$output = qx{../task rc:period.rc add 2d due:tomorrow recur:2d}; $output = qx{../src/task rc:period.rc add 2d due:tomorrow recur:2d};
unlike ($output, qr/was not recognized/, 'recur:2d'); unlike ($output, qr/was not recognized/, 'recur:2d');
$output = qx{../task rc:period.rc add 2w due:tomorrow recur:2w}; $output = qx{../src/task rc:period.rc add 2w due:tomorrow recur:2w};
unlike ($output, qr/was not recognized/, 'recur:2w'); unlike ($output, qr/was not recognized/, 'recur:2w');
$output = qx{../task rc:period.rc add 2m due:tomorrow recur:2mo}; $output = qx{../src/task rc:period.rc add 2m due:tomorrow recur:2mo};
unlike ($output, qr/was not recognized/, 'recur:2m'); unlike ($output, qr/was not recognized/, 'recur:2m');
$output = qx{../task rc:period.rc add 2q due:tomorrow recur:2q}; $output = qx{../src/task rc:period.rc add 2q due:tomorrow recur:2q};
unlike ($output, qr/was not recognized/, 'recur:2q'); unlike ($output, qr/was not recognized/, 'recur:2q');
$output = qx{../task rc:period.rc add 2y due:tomorrow recur:2y}; $output = qx{../src/task rc:period.rc add 2y due:tomorrow recur:2y};
unlike ($output, qr/was not recognized/, 'recur:2y'); unlike ($output, qr/was not recognized/, 'recur:2y');
# Verify that the recurring task instances get created. One of each. # Verify that the recurring task instances get created. One of each.
$output = qx{../task rc:period.rc list}; $output = qx{../src/task rc:period.rc list};
like ($output, qr/\bdaily\b/, 'verify daily'); like ($output, qr/\bdaily\b/, 'verify daily');
like ($output, qr/\bday\b/, 'verify day'); like ($output, qr/\bday\b/, 'verify day');
like ($output, qr/\bweekly\b/, 'verify weekly'); like ($output, qr/\bweekly\b/, 'verify weekly');

8
test/bug.range.t
View file

@ -40,10 +40,10 @@ if (open my $fh, '>', 'range.rc')
} }
# Add three tasks, and attempt to list the middle one within a range. # Add three tasks, and attempt to list the middle one within a range.
qx{../task rc:range.rc add one due:8/1/2009}; qx{../src/task rc:range.rc add one due:8/1/2009};
qx{../task rc:range.rc add two due:8/3/2009}; qx{../src/task rc:range.rc add two due:8/3/2009};
qx{../task rc:range.rc add three due:8/5/2009}; qx{../src/task rc:range.rc add three due:8/5/2009};
my $output = qx{../task rc:range.rc ls due.after:8/2/2009 due.before:8/4/2009}; my $output = qx{../src/task rc:range.rc ls due.after:8/2/2009 due.before:8/4/2009};
unlike ($output, qr/one/, 'Missing prior to range'); unlike ($output, qr/one/, 'Missing prior to range');
like ($output, qr/two/, 'Found within range'); like ($output, qr/two/, 'Found within range');
unlike ($output, qr/three/, 'Missing after range'); unlike ($output, qr/three/, 'Missing after range');

4
test/bug.recur.t
View file

@ -40,8 +40,8 @@ if (open my $fh, '>', 'recur.rc')
} }
# Add a recurring task with no due date, look for expected error. # Add a recurring task with no due date, look for expected error.
qx{../task rc:recur.rc add foo recur:daily}; qx{../src/task rc:recur.rc add foo recur:daily};
my $output = qx{../task rc:recur.rc info 1}; my $output = qx{../src/task rc:recur.rc info 1};
unlike ($output, qr/Description\s+foo/, 'task not created - missing due date'); unlike ($output, qr/Description\s+foo/, 'task not created - missing due date');
# Cleanup. # Cleanup.

12
test/bug.sort.t
View file

@ -38,16 +38,16 @@ if (open my $fh, '>', 'bug_sort.rc')
ok (-r 'bug_sort.rc', 'Created bug_sort.rc'); ok (-r 'bug_sort.rc', 'Created bug_sort.rc');
} }
my $setup = "../task rc:bug_sort.rc add one;" my $setup = "../src/task rc:bug_sort.rc add one;"
. "../task rc:bug_sort.rc add two;" . "../src/task rc:bug_sort.rc add two;"
. "../task rc:bug_sort.rc add three recur:daily due:eom;"; . "../src/task rc:bug_sort.rc add three recur:daily due:eom;";
qx{$setup}; qx{$setup};
my $output = qx{../task rc:bug_sort.rc list}; my $output = qx{../src/task rc:bug_sort.rc list};
like ($output, qr/three.*(?:one.*two|two.*one)/msi, 'list did not hang'); like ($output, qr/three.*(?:one.*two|two.*one)/msi, 'list did not hang');
qx{../task rc:bug_sort.rc 1 priority:H}; qx{../src/task rc:bug_sort.rc 1 priority:H};
$output = qx{../task rc:bug_sort.rc list}; $output = qx{../src/task rc:bug_sort.rc list};
like ($output, qr/three.*one.*two/msi, 'list did not hang after pri:H on 1'); like ($output, qr/three.*one.*two/msi, 'list did not hang after pri:H on 1');
# Cleanup. # Cleanup.

6
test/bug.start.extra.t
View file

@ -39,10 +39,10 @@ if (open my $fh, '>', 'extra.rc')
ok (-r 'extra.rc', 'Created extra.rc'); ok (-r 'extra.rc', 'Created extra.rc');
} }
qx{../task rc:extra.rc add foo}; qx{../src/task rc:extra.rc add foo};
my $output = qx{../task rc:extra.rc 1 start pri:L}; my $output = qx{../src/task rc:extra.rc 1 start pri:L};
like ($output, qr/The 'start' command does not allow further modification of a task\./, 'no modifications allowed for start'); like ($output, qr/The 'start' command does not allow further modification of a task\./, 'no modifications allowed for start');
$output = qx{../task rc:extra.rc 1 stop pro:bar}; $output = qx{../src/task rc:extra.rc 1 stop pro:bar};
like ($output, qr/The 'stop' command does not allow further modification of a task\./, 'no modifications allowed for stop'); like ($output, qr/The 'stop' command does not allow further modification of a task\./, 'no modifications allowed for stop');
# Cleanup. # Cleanup.

16
test/bug.summary.t
View file

@ -41,16 +41,16 @@ if (open my $fh, '>', 'summary.rc')
# Add three tasks. Do 1, delete 1, leave 1 pending. Summary should depict a # Add three tasks. Do 1, delete 1, leave 1 pending. Summary should depict a
# 50% completion. # 50% completion.
qx{../task rc:summary.rc add project:A one}; qx{../src/task rc:summary.rc add project:A one};
qx{../task rc:summary.rc add project:A two}; qx{../src/task rc:summary.rc add project:A two};
qx{../task rc:summary.rc add project:A three}; qx{../src/task rc:summary.rc add project:A three};
qx{../task rc:summary.rc do 1}; qx{../src/task rc:summary.rc do 1};
qx{../task rc:summary.rc delete 2}; qx{../src/task rc:summary.rc delete 2};
my $output = qx{../task rc:summary.rc summary}; my $output = qx{../src/task rc:summary.rc summary};
like ($output, qr/A\s+1\s+(?:-|\d\ssecs?)\s+50%/, 'summary correctly shows 50% before report'); like ($output, qr/A\s+1\s+(?:-|\d\ssecs?)\s+50%/, 'summary correctly shows 50% before report');
qx{../task rc:summary.rc list}; qx{../src/task rc:summary.rc list};
$output = qx{../task rc:summary.rc summary}; $output = qx{../src/task rc:summary.rc summary};
like ($output, qr/A\s+1\s+(?:-|\d\ssecs?)\s+50%/, 'summary correctly shows 50% after report'); like ($output, qr/A\s+1\s+(?:-|\d\ssecs?)\s+50%/, 'summary correctly shows 50% after report');
# Cleanup. # Cleanup.

20
test/bug.uuid.t
View file

@ -41,39 +41,39 @@ if (open my $fh, '>', 'uuid.rc')
# Add a task, dup it, add a recurring task, list. Then make sure they all have # Add a task, dup it, add a recurring task, list. Then make sure they all have
# unique UUID values. # unique UUID values.
qx{../task rc:uuid.rc add simple}; qx{../src/task rc:uuid.rc add simple};
qx{../task rc:uuid.rc 1 duplicate}; qx{../src/task rc:uuid.rc 1 duplicate};
qx{../task rc:uuid.rc add periodic recur:daily due:yesterday}; qx{../src/task rc:uuid.rc add periodic recur:daily due:yesterday};
my $output = qx{../task rc:uuid.rc stats}; my $output = qx{../src/task rc:uuid.rc stats};
my @all_uuids; my @all_uuids;
my %unique_uuids; my %unique_uuids;
$output = qx{../task rc:uuid.rc 1 info}; $output = qx{../src/task rc:uuid.rc 1 info};
my ($uuid) = $output =~ /UUID\s+(\S+)/; my ($uuid) = $output =~ /UUID\s+(\S+)/;
push @all_uuids, $uuid; push @all_uuids, $uuid;
$unique_uuids{$uuid} = undef; $unique_uuids{$uuid} = undef;
$output = qx{../task rc:uuid.rc 2 info}; $output = qx{../src/task rc:uuid.rc 2 info};
($uuid) = $output =~ /UUID\s+(\S+)/; ($uuid) = $output =~ /UUID\s+(\S+)/;
push @all_uuids, $uuid; push @all_uuids, $uuid;
$unique_uuids{$uuid} = undef; $unique_uuids{$uuid} = undef;
$output = qx{../task rc:uuid.rc 3 info}; $output = qx{../src/task rc:uuid.rc 3 info};
($uuid) = $output =~ /UUID\s+(\S+)/; ($uuid) = $output =~ /UUID\s+(\S+)/;
push @all_uuids, $uuid; push @all_uuids, $uuid;
$unique_uuids{$uuid} = undef; $unique_uuids{$uuid} = undef;
$output = qx{../task rc:uuid.rc 4 info}; $output = qx{../src/task rc:uuid.rc 4 info};
($uuid) = $output =~ /UUID\s+(\S+)/; ($uuid) = $output =~ /UUID\s+(\S+)/;
push @all_uuids, $uuid; push @all_uuids, $uuid;
$unique_uuids{$uuid} = undef; $unique_uuids{$uuid} = undef;
$output = qx{../task rc:uuid.rc 5 info}; $output = qx{../src/task rc:uuid.rc 5 info};
($uuid) = $output =~ /UUID\s+(\S+)/; ($uuid) = $output =~ /UUID\s+(\S+)/;
push @all_uuids, $uuid; push @all_uuids, $uuid;
$unique_uuids{$uuid} = undef; $unique_uuids{$uuid} = undef;
$output = qx{../task rc:uuid.rc 6 info}; $output = qx{../src/task rc:uuid.rc 6 info};
($uuid) = $output =~ /UUID\s+(\S+)/; ($uuid) = $output =~ /UUID\s+(\S+)/;
push @all_uuids, $uuid; push @all_uuids, $uuid;
$unique_uuids{$uuid} = undef; $unique_uuids{$uuid} = undef;

74
test/cal.t
View file

@ -64,7 +64,7 @@ if ($day <= 9)
} }
# task cal and task cal y # task cal and task cal y
my $output = qx{../task rc:cal.rc rc._forcecolor:on cal}; my $output = qx{../src/task rc:cal.rc rc._forcecolor:on cal};
if ($wday == 6 || $wday == 0) if ($wday == 6 || $wday == 0)
{ {
like ($output, qr/\[30;106m$day/, 'Current day is highlighted'); like ($output, qr/\[30;106m$day/, 'Current day is highlighted');
@ -74,14 +74,14 @@ else
like ($output, qr/\[30;46m$day/, 'Current day is highlighted'); like ($output, qr/\[30;46m$day/, 'Current day is highlighted');
} }
like ($output, qr/$month\S*?\s+?$year/, 'Current month and year are displayed'); like ($output, qr/$month\S*?\s+?$year/, 'Current month and year are displayed');
$output = qx{../task rc:cal.rc add zero}; $output = qx{../src/task rc:cal.rc add zero};
unlike ($output, qr/\[41m\d+/, 'No overdue tasks are present'); unlike ($output, qr/\[41m\d+/, 'No overdue tasks are present');
unlike ($output, qr/\[43m\d+/, 'No due tasks are present'); unlike ($output, qr/\[43m\d+/, 'No due tasks are present');
$output = qx{../task rc:cal.rc rc.weekstart:Sunday cal}; $output = qx{../src/task rc:cal.rc rc.weekstart:Sunday cal};
like ($output, qr/Su Mo Tu/, 'Week starts on Sunday'); like ($output, qr/Su Mo Tu/, 'Week starts on Sunday');
$output = qx{../task rc:cal.rc rc.weekstart:Monday cal}; $output = qx{../src/task rc:cal.rc rc.weekstart:Monday cal};
like ($output, qr/Fr Sa Su/, 'Week starts on Monday'); like ($output, qr/Fr Sa Su/, 'Week starts on Monday');
$output = qx{../task rc:cal.rc cal y}; $output = qx{../src/task rc:cal.rc cal y};
like ($output, qr/$month\S*?\s+?$year/, 'Current month and year are displayed'); like ($output, qr/$month\S*?\s+?$year/, 'Current month and year are displayed');
if ($month eq "Jan") if ($month eq "Jan")
{ {
@ -95,21 +95,21 @@ if ($month eq "Jan")
unlike ($output, qr/$month\S*?\s+?$nextyear/, 'Current month and year ahead are not displayed'); unlike ($output, qr/$month\S*?\s+?$nextyear/, 'Current month and year ahead are not displayed');
# task cal due and task cal due y # task cal due and task cal due y
qx{../task rc:cal.rc add due:20190515 one}; qx{../src/task rc:cal.rc add due:20190515 one};
qx{../task rc:cal.rc add due:20200123 two}; qx{../src/task rc:cal.rc add due:20200123 two};
$output = qx{../task rc:cal.rc rc._forcecolor:on cal due}; $output = qx{../src/task rc:cal.rc rc._forcecolor:on cal due};
unlike ($output, qr/April 2019/, 'April 2019 is not displayed'); unlike ($output, qr/April 2019/, 'April 2019 is not displayed');
like ($output, qr/May 2019/, 'May 2019 is displayed'); like ($output, qr/May 2019/, 'May 2019 is displayed');
unlike ($output, qr/January 2020/, 'January 2020 is not displayed'); unlike ($output, qr/January 2020/, 'January 2020 is not displayed');
like ($output, qr/30;42m15/, 'Task 1 is color-coded due'); like ($output, qr/30;42m15/, 'Task 1 is color-coded due');
$output = qx{../task rc:cal.rc rc._forcecolor:on cal due y}; $output = qx{../src/task rc:cal.rc rc._forcecolor:on cal due y};
like ($output, qr/30;42m23/, 'Task 2 is color-coded due'); like ($output, qr/30;42m23/, 'Task 2 is color-coded due');
like ($output, qr/April 2020/, 'April 2020 is displayed'); like ($output, qr/April 2020/, 'April 2020 is displayed');
unlike ($output, qr/May 2020/, 'May 2020 is not displayed'); unlike ($output, qr/May 2020/, 'May 2020 is not displayed');
qx{../task rc:cal.rc ls}; qx{../src/task rc:cal.rc ls};
qx{../task rc:cal.rc del 1-3}; qx{../src/task rc:cal.rc del 1-3};
qx{../task rc:cal.rc add due:20080408 three}; qx{../src/task rc:cal.rc add due:20080408 three};
$output = qx{../task rc:cal.rc rc._forcecolor:on cal due}; $output = qx{../src/task rc:cal.rc rc._forcecolor:on cal due};
like ($output, qr/April 2008/, 'April 2008 is displayed'); like ($output, qr/April 2008/, 'April 2008 is displayed');
like ($output, qr/41m 8/, 'Task 3 is color-coded overdue'); like ($output, qr/41m 8/, 'Task 3 is color-coded overdue');
like ($output, qr/37;100m19/, 'Saturday April 19, 2008 is color-coded'); like ($output, qr/37;100m19/, 'Saturday April 19, 2008 is color-coded');
@ -117,7 +117,7 @@ like ($output, qr/37;100m20/, 'Sunday April 20, 2008 is color-coded');
like ($output, qr/30;47m 1/, 'Weeknumbers are color-coded'); like ($output, qr/30;47m 1/, 'Weeknumbers are color-coded');
# task cal 2016 # task cal 2016
$output = qx{../task rc:cal.rc rc.weekstart:Monday cal 2016}; $output = qx{../src/task rc:cal.rc rc.weekstart:Monday cal 2016};
unlike ($output, qr/2015/, 'Year 2015 is not displayed'); unlike ($output, qr/2015/, 'Year 2015 is not displayed');
unlike ($output, qr/2017/, 'Year 2017 is not displayed'); unlike ($output, qr/2017/, 'Year 2017 is not displayed');
like ($output, qr/January 2016/, 'January 2016 is displayed'); like ($output, qr/January 2016/, 'January 2016 is displayed');
@ -126,32 +126,32 @@ like ($output, qr/53 +1/, '2015 has 53 weeks (ISO)');
like ($output, qr/1 +4/, 'First week in 2016 starts with Mon Jan 4 (ISO)'); like ($output, qr/1 +4/, 'First week in 2016 starts with Mon Jan 4 (ISO)');
like ($output, qr/52 +26/, 'Last week in 2016 starts with Mon Dec 26 (ISO)'); like ($output, qr/52 +26/, 'Last week in 2016 starts with Mon Dec 26 (ISO)');
like ($output, qr/9 +29/, 'Leap year - Feb 29 is Monday in week 9 (ISO)'); like ($output, qr/9 +29/, 'Leap year - Feb 29 is Monday in week 9 (ISO)');
$output = qx{../task rc:cal.rc rc.weekstart:Sunday cal 2016}; $output = qx{../src/task rc:cal.rc rc.weekstart:Sunday cal 2016};
like ($output, qr/1 +1/, 'First week in 2016 starts with Fri Jan 1 (US)'); like ($output, qr/1 +1/, 'First week in 2016 starts with Fri Jan 1 (US)');
like ($output, qr/53 +25/, 'Last week in 2016 starts with Sun Dec 25 (US)'); like ($output, qr/53 +25/, 'Last week in 2016 starts with Sun Dec 25 (US)');
$output = qx{../task rc:cal.rc rc.weekstart:Monday rc.displayweeknumber:off cal 2016}; $output = qx{../src/task rc:cal.rc rc.weekstart:Monday rc.displayweeknumber:off cal 2016};
unlike ($output, qr/53/, 'Weeknumbers are not displayed'); unlike ($output, qr/53/, 'Weeknumbers are not displayed');
# task cal 4 2010 # task cal 4 2010
$output = qx{../task rc:cal.rc rc.monthsperline:1 cal 4 2010}; $output = qx{../src/task rc:cal.rc rc.monthsperline:1 cal 4 2010};
unlike ($output, qr/March 2010/, 'March 2010 is not displayed'); unlike ($output, qr/March 2010/, 'March 2010 is not displayed');
like ($output, qr/April 2010/, 'April 2010 is displayed'); like ($output, qr/April 2010/, 'April 2010 is displayed');
unlike ($output, qr/May 2010/, 'May 2010 is not displayed'); unlike ($output, qr/May 2010/, 'May 2010 is not displayed');
# calendar offsets # calendar offsets
$output = qx{../task rc:cal.rc rc.calendar.offset:on rc.monthsperline:1 cal 1 2011}; $output = qx{../src/task rc:cal.rc rc.calendar.offset:on rc.monthsperline:1 cal 1 2011};
unlike ($output, qr/November 2010/, 'November 2010 is not displayed'); unlike ($output, qr/November 2010/, 'November 2010 is not displayed');
like ($output, qr/December 2010/, 'December 2010 is displayed'); like ($output, qr/December 2010/, 'December 2010 is displayed');
unlike ($output, qr/January 2011/, 'January 2011 is not displayed'); unlike ($output, qr/January 2011/, 'January 2011 is not displayed');
$output = qx{../task rc:cal.rc rc.calendar.offset:on rc.calendar.offset.value:2 rc.monthsperline:1 cal 1 2011}; $output = qx{../src/task rc:cal.rc rc.calendar.offset:on rc.calendar.offset.value:2 rc.monthsperline:1 cal 1 2011};
unlike ($output, qr/January 2011/, 'January 2011 is not displayed'); unlike ($output, qr/January 2011/, 'January 2011 is not displayed');
unlike ($output, qr/February 2011/, 'February 2011 is not displayed'); unlike ($output, qr/February 2011/, 'February 2011 is not displayed');
like ($output, qr/March 2011/, 'March 2011 is displayed'); like ($output, qr/March 2011/, 'March 2011 is displayed');
unlike ($output, qr/April 2011/, 'April 2011 is not displayed'); unlike ($output, qr/April 2011/, 'April 2011 is not displayed');
$output = qx{../task rc:cal.rc rc.calendar.offset:on rc.calendar.offset.value:-12 rc.monthsperline:1 cal}; $output = qx{../src/task rc:cal.rc rc.calendar.offset:on rc.calendar.offset.value:-12 rc.monthsperline:1 cal};
like ($output, qr/$month\S*?\s+?$prevyear/, 'Current month and year ahead are displayed'); like ($output, qr/$month\S*?\s+?$prevyear/, 'Current month and year ahead are displayed');
unlike ($output, qr/$month\S*?\s+?$year/, 'Current month and year are not displayed'); unlike ($output, qr/$month\S*?\s+?$year/, 'Current month and year are not displayed');
$output = qx{../task rc:cal.rc rc.calendar.offset:on rc.calendar.offset.value:12 rc.monthsperline:1 cal}; $output = qx{../src/task rc:cal.rc rc.calendar.offset:on rc.calendar.offset.value:12 rc.monthsperline:1 cal};
unlike ($output, qr/$month\S*?\s+?$year/, 'Current month and year are not displayed'); unlike ($output, qr/$month\S*?\s+?$year/, 'Current month and year are not displayed');
like ($output, qr/$month\S*?\s+?$nextyear/, 'Current month and year ahead are displayed'); like ($output, qr/$month\S*?\s+?$nextyear/, 'Current month and year ahead are displayed');
@ -189,19 +189,19 @@ if (open my $fh, '>', 'details.rc')
} }
# task calendar details # task calendar details
qx{../task rc:details.rc add due:20150105 one}; qx{../src/task rc:details.rc add due:20150105 one};
qx{../task rc:details.rc add due:20150110 two}; qx{../src/task rc:details.rc add due:20150110 two};
qx{../task rc:details.rc add due:20150210 three}; qx{../src/task rc:details.rc add due:20150210 three};
qx{../task rc:details.rc add due:20150410 four}; qx{../src/task rc:details.rc add due:20150410 four};
qx{../task rc:details.rc add due:20151225 five}; qx{../src/task rc:details.rc add due:20151225 five};
qx{../task rc:details.rc add due:20141231 six}; qx{../src/task rc:details.rc add due:20141231 six};
qx{../task rc:details.rc add due:20160101 seven}; qx{../src/task rc:details.rc add due:20160101 seven};
qx{../task rc:details.rc add due:20081231 eight}; qx{../src/task rc:details.rc add due:20081231 eight};
$output = qx{../task rc:details.rc rc.calendar.legend:no cal}; $output = qx{../src/task rc:details.rc rc.calendar.legend:no cal};
unlike ($output, qr/Legend:/, 'Legend is not displayed'); unlike ($output, qr/Legend:/, 'Legend is not displayed');
$output = qx{../task rc:details.rc cal rc.monthsperline:3 1 2015}; $output = qx{../src/task rc:details.rc cal rc.monthsperline:3 1 2015};
like ($output, qr/January 2015/, 'January 2015 is displayed'); like ($output, qr/January 2015/, 'January 2015 is displayed');
like ($output, qr/20150105/, 'Due date 20150105 is displayed'); like ($output, qr/20150105/, 'Due date 20150105 is displayed');
like ($output, qr/20150110/, 'Due date 20150110 is displayed'); like ($output, qr/20150110/, 'Due date 20150110 is displayed');
@ -210,12 +210,12 @@ unlike ($output, qr/20141231/, 'Due date 20141231 is not displayed');
unlike ($output, qr/20150410/, 'Due date 20150410 is not displayed'); unlike ($output, qr/20150410/, 'Due date 20150410 is not displayed');
like ($output, qr/3 tasks/, '3 due tasks are displayed'); like ($output, qr/3 tasks/, '3 due tasks are displayed');
$output = qx{../task rc:details.rc cal due}; $output = qx{../src/task rc:details.rc cal due};
like ($output, qr/December 2008/, 'December 2008 is displayed'); like ($output, qr/December 2008/, 'December 2008 is displayed');
like ($output, qr/20081231/, 'Due date 20081231 is displayed'); like ($output, qr/20081231/, 'Due date 20081231 is displayed');
like ($output, qr/1 task/, '1 due task is displayed'); like ($output, qr/1 task/, '1 due task is displayed');
$output = qx{../task rc:details.rc cal 2015}; $output = qx{../src/task rc:details.rc cal 2015};
like ($output, qr/January 2015/, 'January 2015 is displayed'); like ($output, qr/January 2015/, 'January 2015 is displayed');
like ($output, qr/December 2015/, 'December 2015 is displayed'); like ($output, qr/December 2015/, 'December 2015 is displayed');
unlike ($output, qr/20141231/, 'Due date 20141231 is not displayed'); unlike ($output, qr/20141231/, 'Due date 20141231 is not displayed');
@ -234,13 +234,13 @@ if ( $mon <= 9)
} }
my $duedate = $year.$mon.$day; my $duedate = $year.$mon.$day;
qx{../task rc:details.rc add due:$duedate rc.monthsperline:1 nine}; qx{../src/task rc:details.rc add due:$duedate rc.monthsperline:1 nine};
$output = qx{../task rc:details.rc cal}; $output = qx{../src/task rc:details.rc cal};
like ($output, qr/$month\S*?\s+?$year/, 'Current month and year are displayed'); like ($output, qr/$month\S*?\s+?$year/, 'Current month and year are displayed');
like ($output, qr/$duedate/, 'Due date on current day is displayed'); like ($output, qr/$duedate/, 'Due date on current day is displayed');
like ($output, qr/1 task/, '1 due task is displayed'); like ($output, qr/1 task/, '1 due task is displayed');
$output = qx{../task rc:details.rc cal rc.monthsperline:1 1 2015}; $output = qx{../src/task rc:details.rc cal rc.monthsperline:1 1 2015};
like ($output, qr/Date/, 'Word Date is displayed'); like ($output, qr/Date/, 'Word Date is displayed');
like ($output, qr/Holiday/, 'Word Holiday is displayed'); like ($output, qr/Holiday/, 'Word Holiday is displayed');
like ($output, qr/20150101/, 'Holiday 20150101 is displayed'); like ($output, qr/20150101/, 'Holiday 20150101 is displayed');
@ -250,7 +250,7 @@ like ($output, qr/AAAA/, 'Holiday name AAAA is displayed');
like ($output, qr/BBBBBB/, 'Holiday name BBBBBB is displayed'); like ($output, qr/BBBBBB/, 'Holiday name BBBBBB is displayed');
like ($output, qr/åäö/, 'Holiday name åäö is displayed'); like ($output, qr/åäö/, 'Holiday name åäö is displayed');
$output = qx{../task rc:details.rc cal rc._forcecolor:on rc.monthsperline:1 rc.calendar.details:sparse rc.calendar.holidays:sparse 1 2015}; $output = qx{../src/task rc:details.rc cal rc._forcecolor:on rc.monthsperline:1 rc.calendar.details:sparse rc.calendar.holidays:sparse 1 2015};
unlike ($output, qr/Date/, 'Word Date is not displayed'); unlike ($output, qr/Date/, 'Word Date is not displayed');
unlike ($output, qr/Holiday/, 'Word Holiday is not displayed'); unlike ($output, qr/Holiday/, 'Word Holiday is not displayed');
like ($output, qr/30;103m 1/, 'Holiday AAAA is color-coded'); like ($output, qr/30;103m 1/, 'Holiday AAAA is color-coded');

52
test/caseless.t
View file

@ -39,84 +39,84 @@ if (open my $fh, '>', 'caseless.rc')
} }
# Attempt case-sensitive and case-insensitive substitutions and filters. # Attempt case-sensitive and case-insensitive substitutions and filters.
qx{../task rc:caseless.rc add one two three}; qx{../src/task rc:caseless.rc add one two three};
qx{../task rc:caseless.rc 1 annotate four five six}; qx{../src/task rc:caseless.rc 1 annotate four five six};
my $output; my $output;
# Description substitution. # Description substitution.
# 2 # 2
qx{../task rc:caseless.rc rc.search.case.sensitive:yes 1 /One/ONE/}; qx{../src/task rc:caseless.rc rc.search.case.sensitive:yes 1 /One/ONE/};
$output = qx{../task rc:caseless.rc info 1}; $output = qx{../src/task rc:caseless.rc info 1};
unlike ($output, qr/One two three/, 'one two three\nfour five six -> /One/ONE/ = fail'); unlike ($output, qr/One two three/, 'one two three\nfour five six -> /One/ONE/ = fail');
# 3 # 3
qx{../task rc:caseless.rc rc.search.case.sensitive:no 1 /One/ONE/}; qx{../src/task rc:caseless.rc rc.search.case.sensitive:no 1 /One/ONE/};
$output = qx{../task rc:caseless.rc info 1}; $output = qx{../src/task rc:caseless.rc info 1};
like ($output, qr/ONE two three/, 'one two three\nfour five six -> /One/ONE/ = caseless succeed'); like ($output, qr/ONE two three/, 'one two three\nfour five six -> /One/ONE/ = caseless succeed');
# 4 # 4
qx{../task rc:caseless.rc rc.search.case.sensitive:yes 1 /one/One/}; qx{../src/task rc:caseless.rc rc.search.case.sensitive:yes 1 /one/One/};
$output = qx{../task rc:caseless.rc info 1}; $output = qx{../src/task rc:caseless.rc info 1};
unlike ($output, qr/One two three/, 'ONE two three\nfour five six -> /one/ONE/ = fail'); unlike ($output, qr/One two three/, 'ONE two three\nfour five six -> /one/ONE/ = fail');
# 5 # 5
qx{../task rc:caseless.rc rc.search.case.sensitive:no 1 /one/one/}; qx{../src/task rc:caseless.rc rc.search.case.sensitive:no 1 /one/one/};
$output = qx{../task rc:caseless.rc info 1}; $output = qx{../src/task rc:caseless.rc info 1};
like ($output, qr/one two three/, 'ONE two three\nfour five six -> /one/one/ = caseless succeed'); like ($output, qr/one two three/, 'ONE two three\nfour five six -> /one/one/ = caseless succeed');
# Annotation substitution. # Annotation substitution.
# 6 # 6
qx{../task rc:caseless.rc rc.search.case.sensitive:yes 1 /Five/FIVE/}; qx{../src/task rc:caseless.rc rc.search.case.sensitive:yes 1 /Five/FIVE/};
$output = qx{../task rc:caseless.rc info 1}; $output = qx{../src/task rc:caseless.rc info 1};
unlike ($output, qr/four FIVE six/, 'one two three\nfour five six -> /Five/FIVE/ = fail'); unlike ($output, qr/four FIVE six/, 'one two three\nfour five six -> /Five/FIVE/ = fail');
# 7 # 7
qx{../task rc:caseless.rc rc.search.case.sensitive:no 1 /Five/FIVE/}; qx{../src/task rc:caseless.rc rc.search.case.sensitive:no 1 /Five/FIVE/};
$output = qx{../task rc:caseless.rc info 1}; $output = qx{../src/task rc:caseless.rc info 1};
like ($output, qr/four FIVE six/, 'one two three\nfour five six -> /Five/FIVE/ = caseless succeed'); like ($output, qr/four FIVE six/, 'one two three\nfour five six -> /Five/FIVE/ = caseless succeed');
# 8 # 8
qx{../task rc:caseless.rc rc.search.case.sensitive:yes 1 /five/Five/}; qx{../src/task rc:caseless.rc rc.search.case.sensitive:yes 1 /five/Five/};
$output = qx{../task rc:caseless.rc info 1}; $output = qx{../src/task rc:caseless.rc info 1};
unlike ($output, qr/four Five six/, 'one two three\nfour FIVE six -> /five/Five/ = fail'); unlike ($output, qr/four Five six/, 'one two three\nfour FIVE six -> /five/Five/ = fail');
# 9 # 9
qx{../task rc:caseless.rc rc.search.case.sensitive:no 1 /five/five/}; qx{../src/task rc:caseless.rc rc.search.case.sensitive:no 1 /five/five/};
$output = qx{../task rc:caseless.rc info 1}; $output = qx{../src/task rc:caseless.rc info 1};
like ($output, qr/four five six/, 'one two three\nfour FIVE six -> /five/five/ = caseless succeed'); like ($output, qr/four five six/, 'one two three\nfour FIVE six -> /five/five/ = caseless succeed');
# Description filter. # Description filter.
# 10 # 10
$output = qx{../task rc:caseless.rc rc.search.case.sensitive:yes ls One}; $output = qx{../src/task rc:caseless.rc rc.search.case.sensitive:yes ls One};
unlike ($output, qr/one two three/, 'one two three\nfour five six -> ls One = fail'); unlike ($output, qr/one two three/, 'one two three\nfour five six -> ls One = fail');
# 11 # 11
$output = qx{../task rc:caseless.rc rc.search.case.sensitive:no ls One}; $output = qx{../src/task rc:caseless.rc rc.search.case.sensitive:no ls One};
like ($output, qr/one two three/, 'one two three\nfour five six -> ls One caseless = succeed'); like ($output, qr/one two three/, 'one two three\nfour five six -> ls One caseless = succeed');
# 12 # 12
$output = qx{../task rc:caseless.rc rc.search.case.sensitive:yes ls Five}; $output = qx{../src/task rc:caseless.rc rc.search.case.sensitive:yes ls Five};
unlike ($output, qr/four five six/, 'one two three\nfour five six -> ls Five = fail'); unlike ($output, qr/four five six/, 'one two three\nfour five six -> ls Five = fail');
# 13 # 13
$output = qx{../task rc:caseless.rc rc.search.case.sensitive:no ls Five}; $output = qx{../src/task rc:caseless.rc rc.search.case.sensitive:no ls Five};
like ($output, qr/four five six/, 'one two three\nfour five six -> ls Five caseless = succeed'); like ($output, qr/four five six/, 'one two three\nfour five six -> ls Five caseless = succeed');
# Annotation filter. # Annotation filter.
# 14 # 14
$output = qx{../task rc:caseless.rc rc.search.case.sensitive:yes ls description.contains:Three}; $output = qx{../src/task rc:caseless.rc rc.search.case.sensitive:yes ls description.contains:Three};
unlike ($output, qr/one two three/, 'one two three\nfour five six -> ls description.contains:Three = fail'); unlike ($output, qr/one two three/, 'one two three\nfour five six -> ls description.contains:Three = fail');
# 15 # 15
$output = qx{../task rc:caseless.rc rc.search.case.sensitive:no ls description.contains:Three}; $output = qx{../src/task rc:caseless.rc rc.search.case.sensitive:no ls description.contains:Three};
like ($output, qr/one two three/, 'one two three\nfour five six -> ls description.contains:Three caseless = succeed'); like ($output, qr/one two three/, 'one two three\nfour five six -> ls description.contains:Three caseless = succeed');
# 16 # 16
$output = qx{../task rc:caseless.rc rc.search.case.sensitive:yes ls description.contains:Six}; $output = qx{../src/task rc:caseless.rc rc.search.case.sensitive:yes ls description.contains:Six};
unlike ($output, qr/four five six/, 'one two three\nfour five six -> ls description.contains:Six = fail'); unlike ($output, qr/four five six/, 'one two three\nfour five six -> ls description.contains:Six = fail');
# 17 # 17
$output = qx{../task rc:caseless.rc rc.search.case.sensitive:no ls description.contains:Six}; $output = qx{../src/task rc:caseless.rc rc.search.case.sensitive:no ls description.contains:Six};
like ($output, qr/four five six/, 'one two three\nfour five six -> ls description.contains:Six caseless = succeed'); like ($output, qr/four five six/, 'one two three\nfour five six -> ls description.contains:Six caseless = succeed');
# Cleanup. # Cleanup.

8
test/color.active.t
View file

@ -41,10 +41,10 @@ if (open my $fh, '>', 'color.rc')
} }
# Test the add command. # Test the add command.
qx{../task rc:color.rc add nothing}; qx{../src/task rc:color.rc add nothing};
qx{../task rc:color.rc add red}; qx{../src/task rc:color.rc add red};
qx{../task rc:color.rc start 2}; qx{../src/task rc:color.rc start 2};
my $output = qx{../task rc:color.rc list}; my $output = qx{../src/task rc:color.rc list};
like ($output, qr/ (?!<\033\[\d\dm) .* nothing .* (?!>\033\[0m) /x, 'none'); like ($output, qr/ (?!<\033\[\d\dm) .* nothing .* (?!>\033\[0m) /x, 'none');
like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.active'); like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.active');

8
test/color.blocked.t
View file

@ -42,10 +42,10 @@ if (open my $fh, '>', 'color.rc')
} }
# Test the add command. # Test the add command.
qx{../task rc:color.rc add red}; qx{../src/task rc:color.rc add red};
qx{../task rc:color.rc add nothing}; qx{../src/task rc:color.rc add nothing};
qx{../task rc:color.rc 1 depends:2}; qx{../src/task rc:color.rc 1 depends:2};
my $output = qx{../task rc:color.rc list}; my $output = qx{../src/task rc:color.rc list};
like ($output, qr/ (?!<\033\[\d\dm) .* nothing .* (?!>\033\[0m) /x, 'none'); like ($output, qr/ (?!<\033\[\d\dm) .* nothing .* (?!>\033\[0m) /x, 'none');
like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.blocked'); like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.blocked');

2
test/color.deprecated.t
View file

@ -41,7 +41,7 @@ if (open my $fh, '>', 'color.rc')
} }
# Test the add command. # Test the add command.
my $output = qx{../task rc:color.rc show}; my $output = qx{../src/task rc:color.rc show};
like ($output, qr/that use deprecated underscores/ms, 'Deprecated color detected'); like ($output, qr/that use deprecated underscores/ms, 'Deprecated color detected');
# Cleanup. # Cleanup.

4
test/color.disable.t
View file

@ -40,8 +40,8 @@ if (open my $fh, '>', 'color.rc')
} }
# Test the add command. # Test the add command.
qx{../task rc:color.rc add priority:H red}; qx{../src/task rc:color.rc add priority:H red};
my $output = qx{../task rc:color.rc list}; my $output = qx{../src/task rc:color.rc list};
like ($output, qr/red/, 'color.disable - found red'); like ($output, qr/red/, 'color.disable - found red');
unlike ($output, qr/\033\[31m/, 'color.disable - no color red'); unlike ($output, qr/\033\[31m/, 'color.disable - no color red');

6
test/color.due.t
View file

@ -41,9 +41,9 @@ if (open my $fh, '>', 'color.rc')
} }
# Test the add command. # Test the add command.
qx{../task rc:color.rc add due:12/31/2037 nothing}; qx{../src/task rc:color.rc add due:12/31/2037 nothing};
qx{../task rc:color.rc add due:tomorrow red}; qx{../src/task rc:color.rc add due:tomorrow red};
my $output = qx{../task rc:color.rc list}; my $output = qx{../src/task rc:color.rc list};
like ($output, qr/ (?!<\033\[\d\dm) \d{1,2}\/\d{1,2}\/\d{4} (?!>\033\[0m) .* nothing /x, 'none'); like ($output, qr/ (?!<\033\[\d\dm) \d{1,2}\/\d{1,2}\/\d{4} (?!>\033\[0m) .* nothing /x, 'none');
like ($output, qr/ \033\[31m .* red .* \033\[0m/x, 'color.due'); like ($output, qr/ \033\[31m .* red .* \033\[0m/x, 'color.due');

6
test/color.duetoday.t
View file

@ -41,9 +41,9 @@ if (open my $fh, '>', 'color.rc')
} }
# Test the add command. # Test the add command.
qx{../task rc:color.rc add due:12/31/2037 nothing}; qx{../src/task rc:color.rc add due:12/31/2037 nothing};
qx{../task rc:color.rc add due:1hr red}; qx{../src/task rc:color.rc add due:1hr red};
my $output = qx{../task rc:color.rc list}; my $output = qx{../src/task rc:color.rc list};
like ($output, qr/ (?!<\033\[\d\dm) \d{1,2}\/\d{1,2}\/\d{4} (?!>\033\[0m) .* nothing /x, 'none'); like ($output, qr/ (?!<\033\[\d\dm) \d{1,2}\/\d{1,2}\/\d{4} (?!>\033\[0m) .* nothing /x, 'none');
like ($output, qr/ (?:\033\[31m|\033\[38;5;9m) .* red .* \033\[0m/x, 'color.due.today'); like ($output, qr/ (?:\033\[31m|\033\[38;5;9m) .* red .* \033\[0m/x, 'color.due.today');

12
test/color.keyword.t
View file

@ -46,12 +46,12 @@ if (open my $fh, '>', 'color.rc')
} }
# Test the add command. # Test the add command.
qx{../task rc:color.rc add nothing}; qx{../src/task rc:color.rc add nothing};
qx{../task rc:color.rc add red}; qx{../src/task rc:color.rc add red};
qx{../task rc:color.rc add green}; qx{../src/task rc:color.rc add green};
qx{../task rc:color.rc add -- annotation}; qx{../src/task rc:color.rc add -- annotation};
qx{../task rc:color.rc 4 annotate yellow}; qx{../src/task rc:color.rc 4 annotate yellow};
my $output = qx{../task rc:color.rc list}; my $output = qx{../src/task rc:color.rc list};
like ($output, qr/ (?!<\033\[\d\dm) .* nothing .* (?!>\033\[0m) /x, 'none'); like ($output, qr/ (?!<\033\[\d\dm) .* nothing .* (?!>\033\[0m) /x, 'none');
like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.keyword.red'); like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.keyword.red');

6
test/color.overdue.t
View file

@ -41,9 +41,9 @@ if (open my $fh, '>', 'color.rc')
} }
# Test the add command. # Test the add command.
qx{../task rc:color.rc add due:tomorrow nothing}; qx{../src/task rc:color.rc add due:tomorrow nothing};
qx{../task rc:color.rc add due:yesterday red}; qx{../src/task rc:color.rc add due:yesterday red};
my $output = qx{../task rc:color.rc list}; my $output = qx{../src/task rc:color.rc list};
like ($output, qr/ (?!<\033\[\d\dm) \d{1,2}\/\d{1,2}\/\d{4} (?!>\033\[0m) .* nothing /x, 'none'); like ($output, qr/ (?!<\033\[\d\dm) \d{1,2}\/\d{1,2}\/\d{4} (?!>\033\[0m) .* nothing /x, 'none');
like ($output, qr/ \033\[31m .* red .* \033\[0m/x, 'color.overdue'); like ($output, qr/ \033\[31m .* red .* \033\[0m/x, 'color.overdue');

10
test/color.pri.t
View file

@ -45,11 +45,11 @@ if (open my $fh, '>', 'color.rc')
} }
# Test the add command. # Test the add command.
qx{../task rc:color.rc add priority:H red}; qx{../src/task rc:color.rc add priority:H red};
qx{../task rc:color.rc add priority:M green}; qx{../src/task rc:color.rc add priority:M green};
qx{../task rc:color.rc add priority:L blue}; qx{../src/task rc:color.rc add priority:L blue};
qx{../task rc:color.rc add yellow}; qx{../src/task rc:color.rc add yellow};
my $output = qx{../task rc:color.rc list}; my $output = qx{../src/task rc:color.rc list};
like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.pri.H'); like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.pri.H');
like ($output, qr/ \033\[32m .* green .* \033\[0m /x, 'color.pri.M'); like ($output, qr/ \033\[32m .* green .* \033\[0m /x, 'color.pri.M');

6
test/color.project.t
View file

@ -43,9 +43,9 @@ if (open my $fh, '>', 'color.rc')
} }
# Test the add command. # Test the add command.
qx{../task rc:color.rc add nothing}; qx{../src/task rc:color.rc add nothing};
qx{../task rc:color.rc add project:x red}; qx{../src/task rc:color.rc add project:x red};
my $output = qx{../task rc:color.rc list}; my $output = qx{../src/task rc:color.rc list};
like ($output, qr/ \033\[32m .* nothing .* \033\[0m /x, 'color.project.none'); like ($output, qr/ \033\[32m .* nothing .* \033\[0m /x, 'color.project.none');
like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.project.red'); like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.project.red');

6
test/color.recurring.t
View file

@ -42,9 +42,9 @@ if (open my $fh, '>', 'color.rc')
} }
# Test the add command. # Test the add command.
qx{../task rc:color.rc add nothing}; qx{../src/task rc:color.rc add nothing};
qx{../task rc:color.rc add due:tomorrow recur:1w red}; qx{../src/task rc:color.rc add due:tomorrow recur:1w red};
my $output = qx{../task rc:color.rc list}; my $output = qx{../src/task rc:color.rc list};
like ($output, qr/ (?!<\033\[\d\dm) .* nothing .* (?!>\033\[0m) /x, 'none'); like ($output, qr/ (?!<\033\[\d\dm) .* nothing .* (?!>\033\[0m) /x, 'none');
like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.recurring'); like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.recurring');

8
test/color.tag.t
View file

@ -45,10 +45,10 @@ if (open my $fh, '>', 'color.rc')
} }
# Test the add command. # Test the add command.
qx{../task rc:color.rc add nothing}; qx{../src/task rc:color.rc add nothing};
qx{../task rc:color.rc add +red red}; qx{../src/task rc:color.rc add +red red};
qx{../task rc:color.rc add +green green}; qx{../src/task rc:color.rc add +green green};
my $output = qx{../task rc:color.rc list}; my $output = qx{../src/task rc:color.rc list};
like ($output, qr/ \033\[33m .* nothing .* \033\[0m /x, 'color.tag.none'); like ($output, qr/ \033\[33m .* nothing .* \033\[0m /x, 'color.tag.none');
like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.tag.red'); like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.tag.red');

6
test/color.tagged.t
View file

@ -45,9 +45,9 @@ if (open my $fh, '>', 'color.rc')
} }
# Test the add command. # Test the add command.
qx{../task rc:color.rc add nothing}; qx{../src/task rc:color.rc add nothing};
qx{../task rc:color.rc add +tag red}; qx{../src/task rc:color.rc add +tag red};
my $output = qx{../task rc:color.rc list}; my $output = qx{../src/task rc:color.rc list};
like ($output, qr/ (?!<\033\[\d\dm) .* nothing .* (?!>\033\[0m) /x, 'none'); like ($output, qr/ (?!<\033\[\d\dm) .* nothing .* (?!>\033\[0m) /x, 'none');
like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.tagged'); like ($output, qr/ \033\[31m .* red .* \033\[0m /x, 'color.tagged');

10
test/completed.t
View file

@ -40,13 +40,13 @@ if (open my $fh, '>', 'completed.rc')
} }
# Add two tasks, mark 1 as done, the other as deleted. # Add two tasks, mark 1 as done, the other as deleted.
qx{../task rc:completed.rc add one}; qx{../src/task rc:completed.rc add one};
qx{../task rc:completed.rc add two}; qx{../src/task rc:completed.rc add two};
qx{../task rc:completed.rc 1 done}; qx{../src/task rc:completed.rc 1 done};
qx{../task rc:completed.rc 2 delete}; qx{../src/task rc:completed.rc 2 delete};
# Generate completed report. # Generate completed report.
my $output = qx{../task rc:completed.rc completed}; my $output = qx{../src/task rc:completed.rc completed};
like ($output, qr/one/, 'one -> completed'); like ($output, qr/one/, 'one -> completed');
unlike ($output, qr/two/, 'two -> deleted'); unlike ($output, qr/two/, 'two -> deleted');

2
test/config.obsolete.t
View file

@ -40,7 +40,7 @@ if (open my $fh, '>', 'obsolete.rc')
} }
# Test the add command. # Test the add command.
my $output = qx{../task rc:obsolete.rc show}; my $output = qx{../src/task rc:obsolete.rc show};
like ($output, qr/Your .taskrc file contains these unrecognized variables:\n/, like ($output, qr/Your .taskrc file contains these unrecognized variables:\n/,
'unsupported configuration variable'); 'unsupported configuration variable');

32
test/confirmation.t
View file

@ -47,52 +47,52 @@ if (open my $fh, '>', 'response.txt')
ok (-r 'response.txt', 'Created response.txt'); ok (-r 'response.txt', 'Created response.txt');
} }
qx{../task rc:confirm.rc add foo} for 1..10; qx{../src/task rc:confirm.rc add foo} for 1..10;
# Test the various forms of "Yes". # Test the various forms of "Yes".
my $output = qx{echo "Yes" | ../task rc:confirm.rc del 1}; my $output = qx{echo "Yes" | ../src/task rc:confirm.rc del 1};
like ($output, qr/Permanently delete task 1 'foo'\? \(y\/n\)/, 'confirmation - Yes works'); like ($output, qr/Permanently delete task 1 'foo'\? \(y\/n\)/, 'confirmation - Yes works');
unlike ($output, qr/Task not deleted\./, 'confirmation - Yes works'); unlike ($output, qr/Task not deleted\./, 'confirmation - Yes works');
$output = qx{echo "ye" | ../task rc:confirm.rc del 2}; $output = qx{echo "ye" | ../src/task rc:confirm.rc del 2};
like ($output, qr/Permanently delete task 2 'foo'\? \(y\/n\)/, 'confirmation - ye works'); like ($output, qr/Permanently delete task 2 'foo'\? \(y\/n\)/, 'confirmation - ye works');
unlike ($output, qr/Task not deleted\./, 'confirmation - ye works'); unlike ($output, qr/Task not deleted\./, 'confirmation - ye works');
$output = qx{echo "y" | ../task rc:confirm.rc del 3}; $output = qx{echo "y" | ../src/task rc:confirm.rc del 3};
like ($output, qr/Permanently delete task 3 'foo'\? \(y\/n\)/, 'confirmation - y works'); like ($output, qr/Permanently delete task 3 'foo'\? \(y\/n\)/, 'confirmation - y works');
unlike ($output, qr/Task not deleted\./, 'confirmation - y works'); unlike ($output, qr/Task not deleted\./, 'confirmation - y works');
$output = qx{echo "YES" | ../task rc:confirm.rc del 4}; $output = qx{echo "YES" | ../src/task rc:confirm.rc del 4};
like ($output, qr/Permanently delete task 4 'foo'\? \(y\/n\)/, 'confirmation - YES works'); like ($output, qr/Permanently delete task 4 'foo'\? \(y\/n\)/, 'confirmation - YES works');
unlike ($output, qr/Task not deleted\./, 'confirmation - YES works'); unlike ($output, qr/Task not deleted\./, 'confirmation - YES works');
$output = qx{echo "YE" | ../task rc:confirm.rc del 5}; $output = qx{echo "YE" | ../src/task rc:confirm.rc del 5};
like ($output, qr/Permanently delete task 5 'foo'\? \(y\/n\)/, 'confirmation - YE works'); like ($output, qr/Permanently delete task 5 'foo'\? \(y\/n\)/, 'confirmation - YE works');
unlike ($output, qr/Task not deleted\./, 'confirmation - YE works'); unlike ($output, qr/Task not deleted\./, 'confirmation - YE works');
$output = qx{echo "Y" | ../task rc:confirm.rc del 6}; $output = qx{echo "Y" | ../src/task rc:confirm.rc del 6};
like ($output, qr/Permanently delete task 6 'foo'\? \(y\/n\)/, 'confirmation - Y works'); like ($output, qr/Permanently delete task 6 'foo'\? \(y\/n\)/, 'confirmation - Y works');
unlike ($output, qr/Task not deleted\./, 'confirmation - Y works'); unlike ($output, qr/Task not deleted\./, 'confirmation - Y works');
# Test the various forms of "no". # Test the various forms of "no".
$output = qx{echo "no" | ../task rc:confirm.rc del 7}; $output = qx{echo "no" | ../src/task rc:confirm.rc del 7};
like ($output, qr/Permanently delete task 7 'foo'\? \(y\/n\)/, 'confirmation - no works'); like ($output, qr/Permanently delete task 7 'foo'\? \(y\/n\)/, 'confirmation - no works');
like ($output, qr/Task not deleted\./, 'confirmation - no works'); like ($output, qr/Task not deleted\./, 'confirmation - no works');
$output = qx{echo "n" | ../task rc:confirm.rc del 7}; $output = qx{echo "n" | ../src/task rc:confirm.rc del 7};
like ($output, qr/Permanently delete task 7 'foo'\? \(y\/n\)/, 'confirmation - n works'); like ($output, qr/Permanently delete task 7 'foo'\? \(y\/n\)/, 'confirmation - n works');
like ($output, qr/Task not deleted\./, 'confirmation - n works'); like ($output, qr/Task not deleted\./, 'confirmation - n works');
$output = qx{echo "NO" | ../task rc:confirm.rc del 7}; $output = qx{echo "NO" | ../src/task rc:confirm.rc del 7};
like ($output, qr/Permanently delete task 7 'foo'\? \(y\/n\)/, 'confirmation - NO works'); like ($output, qr/Permanently delete task 7 'foo'\? \(y\/n\)/, 'confirmation - NO works');
like ($output, qr/Task not deleted\./, 'confirmation - NO works'); like ($output, qr/Task not deleted\./, 'confirmation - NO works');
$output = qx{echo "N" | ../task rc:confirm.rc del 7}; $output = qx{echo "N" | ../src/task rc:confirm.rc del 7};
like ($output, qr/Permanently delete task 7 'foo'\? \(y\/n\)/, 'confirmation - N works'); like ($output, qr/Permanently delete task 7 'foo'\? \(y\/n\)/, 'confirmation - N works');
like ($output, qr/Task not deleted\./, 'confirmation - N works'); like ($output, qr/Task not deleted\./, 'confirmation - N works');
# Test Yes for multiple changes # Test Yes for multiple changes
$output = qx{echo -e "y\nY\nY\nY\nY" | ../task rc:confirm.rc 7-10 +bar}; $output = qx{echo -e "y\nY\nY\nY\nY" | ../src/task rc:confirm.rc 7-10 +bar};
like ($output, qr/Proceed with change\? \(Yes\/no\/All\/quit\)/, 'multiple confirmations - Y works'); like ($output, qr/Proceed with change\? \(Yes\/no\/All\/quit\)/, 'multiple confirmations - Y works');
like ($output, qr/Task 7 "foo"/, 'multiple confirmations - Y works'); like ($output, qr/Task 7 "foo"/, 'multiple confirmations - Y works');
like ($output, qr/Task 8 "foo"/, 'multiple confirmations - Y works'); like ($output, qr/Task 8 "foo"/, 'multiple confirmations - Y works');
@ -101,7 +101,7 @@ like ($output, qr/Task 10 "foo"/, 'multiple confirmations - Y works');
like ($output, qr/Modified 4 tasks/, 'multiple confirmations - Y works'); like ($output, qr/Modified 4 tasks/, 'multiple confirmations - Y works');
# Test no for multiple changes # Test no for multiple changes
$output = qx{echo -e "N\nn\nn\nn\nn" | ../task rc:confirm.rc 7-10 -bar}; $output = qx{echo -e "N\nn\nn\nn\nn" | ../src/task rc:confirm.rc 7-10 -bar};
like ($output, qr/Proceed with change\? \(Yes\/no\/All\/quit\)/, 'multiple confirmations - n works'); like ($output, qr/Proceed with change\? \(Yes\/no\/All\/quit\)/, 'multiple confirmations - n works');
like ($output, qr/Task 7 "foo"/, 'multiple confirmations - n works'); like ($output, qr/Task 7 "foo"/, 'multiple confirmations - n works');
like ($output, qr/Task 8 "foo"/, 'multiple confirmations - n works'); like ($output, qr/Task 8 "foo"/, 'multiple confirmations - n works');
@ -110,21 +110,21 @@ like ($output, qr/Task 10 "foo"/, 'multiple confirmations - n works');
like ($output, qr/Modified 0 tasks/, 'multiple confirmations - n works'); like ($output, qr/Modified 0 tasks/, 'multiple confirmations - n works');
# Test All for multiple changes # Test All for multiple changes
$output = qx{echo -e "a\nA" | ../task rc:confirm.rc 7-10 -bar}; $output = qx{echo -e "a\nA" | ../src/task rc:confirm.rc 7-10 -bar};
like ($output, qr/Proceed with change\? \(Yes\/no\/All\/quit\)/, 'multiple confirmations - A works'); like ($output, qr/Proceed with change\? \(Yes\/no\/All\/quit\)/, 'multiple confirmations - A works');
like ($output, qr/Task 7 "foo"/, 'multiple confirmations - A works'); like ($output, qr/Task 7 "foo"/, 'multiple confirmations - A works');
unlike ($output, qr/Task 8 "foo"/, 'multiple confirmations - A works'); unlike ($output, qr/Task 8 "foo"/, 'multiple confirmations - A works');
like ($output, qr/Modified 4 tasks/, 'multiple confirmations - A works'); like ($output, qr/Modified 4 tasks/, 'multiple confirmations - A works');
# Test quit for multiple changes # Test quit for multiple changes
$output = qx{echo "q" | ../task rc:confirm.rc 7-10 +bar}; $output = qx{echo "q" | ../src/task rc:confirm.rc 7-10 +bar};
like ($output, qr/Proceed with change\? \(Yes\/no\/All\/quit\)/, 'multiple confirmations - q works'); like ($output, qr/Proceed with change\? \(Yes\/no\/All\/quit\)/, 'multiple confirmations - q works');
like ($output, qr/Task 7 "foo"/, 'multiple confirmations - q works'); like ($output, qr/Task 7 "foo"/, 'multiple confirmations - q works');
unlike ($output, qr/Task 8 "foo"/, 'multiple confirmations - q works'); unlike ($output, qr/Task 8 "foo"/, 'multiple confirmations - q works');
like ($output, qr/Modified 0 tasks/, 'multiple confirmations - q works'); like ($output, qr/Modified 0 tasks/, 'multiple confirmations - q works');
# Test newlines. # Test newlines.
$output = qx{cat response.txt | ../task rc:confirm.rc del 7}; $output = qx{cat response.txt | ../src/task rc:confirm.rc del 7};
like ($output, qr/(Permanently delete task 7 'foo'\? \(y\/n\)) \1 \1/, 'confirmation - \n re-prompt works'); like ($output, qr/(Permanently delete task 7 'foo'\? \(y\/n\)) \1 \1/, 'confirmation - \n re-prompt works');
# Cleanup. # Cleanup.

22
test/count.t
View file

@ -40,26 +40,26 @@ if (open my $fh, '>', 'count.rc')
} }
# Test the count command. # Test the count command.
qx{../task rc:count.rc add one}; qx{../src/task rc:count.rc add one};
qx{../task rc:count.rc log two}; qx{../src/task rc:count.rc log two};
qx{../task rc:count.rc add three}; qx{../src/task rc:count.rc add three};
qx{../task rc:count.rc delete 3}; qx{../src/task rc:count.rc delete 3};
qx{../task rc:count.rc add four wait:eom}; qx{../src/task rc:count.rc add four wait:eom};
qx{../task rc:count.rc add five due:eom recur:monthly}; qx{../src/task rc:count.rc add five due:eom recur:monthly};
my $output = qx{../task rc:count.rc count}; my $output = qx{../src/task rc:count.rc count};
like ($output, qr/^5$/ms, 'count'); like ($output, qr/^5$/ms, 'count');
$output = qx{../task rc:count.rc count status:deleted}; $output = qx{../src/task rc:count.rc count status:deleted};
like ($output, qr/^1$/ms, 'count status:deleted'); like ($output, qr/^1$/ms, 'count status:deleted');
$output = qx{../task rc:count.rc count e}; $output = qx{../src/task rc:count.rc count e};
like ($output, qr/^3$/ms, 'count e'); like ($output, qr/^3$/ms, 'count e');
$output = qx{../task rc:count.rc count description.startswith:f}; $output = qx{../src/task rc:count.rc count description.startswith:f};
like ($output, qr/^2$/ms, 'count description.startswith:f'); like ($output, qr/^2$/ms, 'count description.startswith:f');
$output = qx{../task rc:count.rc count due.any:}; $output = qx{../src/task rc:count.rc count due.any:};
like ($output, qr/^1$/ms, 'count due.any:'); like ($output, qr/^1$/ms, 'count due.any:');
# Cleanup. # Cleanup.

50
test/countdown.t
View file

@ -64,29 +64,29 @@ if (open my $fh, '>', 'countdown.rc')
# Create a variety of pending tasks with increasingly higher due dates # Create a variety of pending tasks with increasingly higher due dates
# to ensure proper sort order. # to ensure proper sort order.
qx{../task rc:countdown.rc add one due:-1.2y}; qx{../src/task rc:countdown.rc add one due:-1.2y};
qx{../task rc:countdown.rc add two due:-9mo}; qx{../src/task rc:countdown.rc add two due:-9mo};
qx{../task rc:countdown.rc add three due:-2mo}; qx{../src/task rc:countdown.rc add three due:-2mo};
qx{../task rc:countdown.rc add four due:-3wk}; qx{../src/task rc:countdown.rc add four due:-3wk};
qx{../task rc:countdown.rc add five due:-7d}; qx{../src/task rc:countdown.rc add five due:-7d};
qx{../task rc:countdown.rc add six due:-2d}; qx{../src/task rc:countdown.rc add six due:-2d};
qx{../task rc:countdown.rc add seven due:-1d}; qx{../src/task rc:countdown.rc add seven due:-1d};
qx{../task rc:countdown.rc add eight due:-12h}; qx{../src/task rc:countdown.rc add eight due:-12h};
qx{../task rc:countdown.rc add nine due:-6h}; qx{../src/task rc:countdown.rc add nine due:-6h};
qx{../task rc:countdown.rc add ten due:-1h}; qx{../src/task rc:countdown.rc add ten due:-1h};
qx{../task rc:countdown.rc add eleven due:-30s}; qx{../src/task rc:countdown.rc add eleven due:-30s};
qx{../task rc:countdown.rc add twelve due:1h}; qx{../src/task rc:countdown.rc add twelve due:1h};
qx{../task rc:countdown.rc add thirteen due:6h}; qx{../src/task rc:countdown.rc add thirteen due:6h};
qx{../task rc:countdown.rc add fourteen due:12h}; qx{../src/task rc:countdown.rc add fourteen due:12h};
qx{../task rc:countdown.rc add fifteen due:1d}; qx{../src/task rc:countdown.rc add fifteen due:1d};
qx{../task rc:countdown.rc add sixteen due:2d}; qx{../src/task rc:countdown.rc add sixteen due:2d};
qx{../task rc:countdown.rc add seventeen due:7d}; qx{../src/task rc:countdown.rc add seventeen due:7d};
qx{../task rc:countdown.rc add eighteen due:3wk}; qx{../src/task rc:countdown.rc add eighteen due:3wk};
qx{../task rc:countdown.rc add nineteen due:2mo}; qx{../src/task rc:countdown.rc add nineteen due:2mo};
qx{../task rc:countdown.rc add twenty due:9mo}; qx{../src/task rc:countdown.rc add twenty due:9mo};
qx{../task rc:countdown.rc add twentyone due:1.2y}; qx{../src/task rc:countdown.rc add twentyone due:1.2y};
my $output = qx{../task rc:countdown.rc up}; my $output = qx{../src/task rc:countdown.rc up};
like ($output, qr/\bone\b.+\btwo\b/ms, 'up: one < two'); like ($output, qr/\bone\b.+\btwo\b/ms, 'up: one < two');
like ($output, qr/\btwo\b.+\bthree/ms, 'up: two < three'); like ($output, qr/\btwo\b.+\bthree/ms, 'up: two < three');
like ($output, qr/\bthree\b.+\bfour/ms, 'up: three < four'); like ($output, qr/\bthree\b.+\bfour/ms, 'up: three < four');
@ -108,7 +108,7 @@ like ($output, qr/\beighteen\b.+\bnineteen/ms, 'up: eighteen < nineteen');
like ($output, qr/\bnineteen\b.+\btwenty/ms, 'up: nineteen < twenty'); like ($output, qr/\bnineteen\b.+\btwenty/ms, 'up: nineteen < twenty');
like ($output, qr/\btwenty\b.+\btwentyone/ms, 'up: twenty < twentyone'); like ($output, qr/\btwenty\b.+\btwentyone/ms, 'up: twenty < twentyone');
$output = qx{../task rc:countdown.rc down}; $output = qx{../src/task rc:countdown.rc down};
like ($output, qr/\btwentyone\b.+\btwenty/ms, 'down: twentyone < twenty'); like ($output, qr/\btwentyone\b.+\btwenty/ms, 'down: twentyone < twenty');
like ($output, qr/\btwenty\b.+\bnineteen/ms, 'down: twenty < nineteen'); like ($output, qr/\btwenty\b.+\bnineteen/ms, 'down: twenty < nineteen');
like ($output, qr/\bnineteen\b.+\beighteen/ms, 'down: nineteen < eighteen'); like ($output, qr/\bnineteen\b.+\beighteen/ms, 'down: nineteen < eighteen');
@ -130,7 +130,7 @@ like ($output, qr/\bfour\b.+\bthree/ms, 'down: four < three');
like ($output, qr/\bthree\b.+\btwo/ms, 'down: three < two'); like ($output, qr/\bthree\b.+\btwo/ms, 'down: three < two');
like ($output, qr/\btwo\b.+\bone\b/ms, 'down: two < one'); like ($output, qr/\btwo\b.+\bone\b/ms, 'down: two < one');
$output = qx{../task rc:countdown.rc upc}; $output = qx{../src/task rc:countdown.rc upc};
like ($output, qr/\bone\b.+\btwo\b/ms, 'upc: one < two'); like ($output, qr/\bone\b.+\btwo\b/ms, 'upc: one < two');
like ($output, qr/\btwo\b.+\bthree/ms, 'upc: two < three'); like ($output, qr/\btwo\b.+\bthree/ms, 'upc: two < three');
like ($output, qr/\bthree\b.+\bfour/ms, 'upc: three < four'); like ($output, qr/\bthree\b.+\bfour/ms, 'upc: three < four');
@ -152,7 +152,7 @@ like ($output, qr/\beighteen\b.+\bnineteen/ms, 'upc: eighteen < nineteen');
like ($output, qr/\bnineteen\b.+\btwenty/ms, 'upc: nineteen < twenty'); like ($output, qr/\bnineteen\b.+\btwenty/ms, 'upc: nineteen < twenty');
like ($output, qr/\btwenty\b.+\btwentyone/ms, 'upc: twenty < twentyone'); like ($output, qr/\btwenty\b.+\btwentyone/ms, 'upc: twenty < twentyone');
$output = qx{../task rc:countdown.rc downc}; $output = qx{../src/task rc:countdown.rc downc};
like ($output, qr/\btwentyone\b.+\btwenty/ms, 'downc: twentyone < twenty'); like ($output, qr/\btwentyone\b.+\btwenty/ms, 'downc: twentyone < twenty');
like ($output, qr/\btwenty\b.+\bnineteen/ms, 'downc: twenty < nineteen'); like ($output, qr/\btwenty\b.+\bnineteen/ms, 'downc: twenty < nineteen');
like ($output, qr/\bnineteen\b.+\beighteen/ms, 'downc: nineteen < eighteen'); like ($output, qr/\bnineteen\b.+\beighteen/ms, 'downc: nineteen < eighteen');

2
test/custom.columns.t
View file

@ -43,7 +43,7 @@ if (open my $fh, '>', 'custom.rc')
} }
# Generate the usage screen, and locate the custom report on it. # Generate the usage screen, and locate the custom report on it.
my $output = qx{../task rc:custom.rc foo 2>&1}; my $output = qx{../src/task rc:custom.rc foo 2>&1};
like ($output, qr/Unrecognized column name: foo\.\n/, 'custom report spotted invalid column'); like ($output, qr/Unrecognized column name: foo\.\n/, 'custom report spotted invalid column');
# Cleanup. # Cleanup.

10
test/custom.priority_long.t
View file

@ -43,12 +43,12 @@ if (open my $fh, '>', 'pri.rc')
} }
# Generate the usage screen, and locate the custom report on it. # Generate the usage screen, and locate the custom report on it.
qx{../task rc:pri.rc add one pri:H}; qx{../src/task rc:pri.rc add one pri:H};
qx{../task rc:pri.rc add two pri:M}; qx{../src/task rc:pri.rc add two pri:M};
qx{../task rc:pri.rc add three pri:L}; qx{../src/task rc:pri.rc add three pri:L};
qx{../task rc:pri.rc add four pri:}; qx{../src/task rc:pri.rc add four pri:};
my $output = qx{../task rc:pri.rc foo 2>&1}; my $output = qx{../src/task rc:pri.rc foo 2>&1};
like ($output, qr/ID P/, 'priority_long indicator heading'); like ($output, qr/ID P/, 'priority_long indicator heading');
like ($output, qr/1\s+High/, 'priority_long High'); like ($output, qr/1\s+High/, 'priority_long High');
like ($output, qr/2\s+Medium/, 'priority_long Medium'); like ($output, qr/2\s+Medium/, 'priority_long Medium');

8
test/custom.recur_ind.t
View file

@ -43,14 +43,14 @@ if (open my $fh, '>', 'custom.rc')
} }
# Add a recurring and non-recurring task, look for the indicator. # Add a recurring and non-recurring task, look for the indicator.
qx{../task rc:custom.rc add foo due:tomorrow recur:weekly}; qx{../src/task rc:custom.rc add foo due:tomorrow recur:weekly};
qx{../task rc:custom.rc add bar}; qx{../src/task rc:custom.rc add bar};
my $output = qx{../task rc:custom.rc foo 2>&1}; my $output = qx{../src/task rc:custom.rc foo 2>&1};
like ($output, qr/ID R/, 'Recurrence indicator heading'); like ($output, qr/ID R/, 'Recurrence indicator heading');
like ($output, qr/2\s+R/, 'Recurrence indicator t1'); like ($output, qr/2\s+R/, 'Recurrence indicator t1');
unlike ($output, qr/1\s+R/, 'No recurrence indicator t2'); unlike ($output, qr/1\s+R/, 'No recurrence indicator t2');
$output = qx{../task rc:custom.rc foo rc.recurrence.indicator=RE 2>&1}; $output = qx{../src/task rc:custom.rc foo rc.recurrence.indicator=RE 2>&1};
like ($output, qr/2\s+RE/, 'Custom recurrence indicator t1'); like ($output, qr/2\s+RE/, 'Custom recurrence indicator t1');
unlike ($output, qr/1\s+RE/, 'No custom recurrence indicator t2'); unlike ($output, qr/1\s+RE/, 'No custom recurrence indicator t2');

8
test/custom.t
View file

@ -43,12 +43,12 @@ if (open my $fh, '>', 'custom.rc')
} }
# Generate the usage screen, and locate the custom report on it. # Generate the usage screen, and locate the custom report on it.
my $output = qx{../task rc:custom.rc usage}; my $output = qx{../src/task rc:custom.rc usage};
like ($output, qr/task foo \[tags\] \[attrs\] desc\.\.\.\s+DESC\n/m, 'report.foo'); like ($output, qr/task foo \[tags\] \[attrs\] desc\.\.\.\s+DESC\n/m, 'report.foo');
qx{../task rc:custom.rc add project:A one}; qx{../src/task rc:custom.rc add project:A one};
qx{../task rc:custom.rc add two}; qx{../src/task rc:custom.rc add two};
$output = qx{../task rc:custom.rc foo}; $output = qx{../src/task rc:custom.rc foo};
like ($output, qr/one/, 'custom filter included'); like ($output, qr/one/, 'custom filter included');
unlike ($output, qr/two/, 'custom filter excluded'); unlike ($output, qr/two/, 'custom filter excluded');

8
test/custom.tag_ind.t
View file

@ -43,14 +43,14 @@ if (open my $fh, '>', 'custom.rc')
} }
# Generate the usage screen, and locate the custom report on it. # Generate the usage screen, and locate the custom report on it.
qx{../task rc:custom.rc add foo +tag}; qx{../src/task rc:custom.rc add foo +tag};
qx{../task rc:custom.rc add bar}; qx{../src/task rc:custom.rc add bar};
my $output = qx{../task rc:custom.rc foo 2>&1}; my $output = qx{../src/task rc:custom.rc foo 2>&1};
like ($output, qr/ID T/, 'Tag indicator heading'); like ($output, qr/ID T/, 'Tag indicator heading');
like ($output, qr/1\s+\+/, 'Tag indicator t1'); like ($output, qr/1\s+\+/, 'Tag indicator t1');
unlike ($output, qr/2\s+\+/, 'No tag indicator t2'); unlike ($output, qr/2\s+\+/, 'No tag indicator t2');
$output = qx{../task rc:custom.rc foo rc.tag.indicator=TAG 2>&1}; $output = qx{../src/task rc:custom.rc foo rc.tag.indicator=TAG 2>&1};
like ($output, qr/1\s+TAG/, 'Custom ag indicator t1'); like ($output, qr/1\s+TAG/, 'Custom ag indicator t1');
unlike ($output, qr/2\s+TAG/, 'No custom tag indicator t2'); unlike ($output, qr/2\s+TAG/, 'No custom tag indicator t2');

14
test/dateformat.t
View file

@ -60,24 +60,24 @@ if (open my $fh, '>', 'date3.rc')
ok (-r 'date3.rc', 'Created date3.rc'); ok (-r 'date3.rc', 'Created date3.rc');
} }
qx{../task rc:date1.rc add foo due:20091231}; qx{../src/task rc:date1.rc add foo due:20091231};
my $output = qx{../task rc:date1.rc info 1}; my $output = qx{../src/task rc:date1.rc info 1};
like ($output, qr/\b20091231\b/, 'date format YMD parsed'); like ($output, qr/\b20091231\b/, 'date format YMD parsed');
unlink 'pending.data'; unlink 'pending.data';
ok (!-r 'pending.data', 'Removed pending.data'); ok (!-r 'pending.data', 'Removed pending.data');
qx{../task rc:date2.rc add foo due:12/1/09}; qx{../src/task rc:date2.rc add foo due:12/1/09};
$output = qx{../task rc:date2.rc info 1}; $output = qx{../src/task rc:date2.rc info 1};
like ($output, qr/\b12\/1\/09\b/, 'date format m/d/y parsed'); like ($output, qr/\b12\/1\/09\b/, 'date format m/d/y parsed');
unlink 'pending.data'; unlink 'pending.data';
ok (!-r 'pending.data', 'Removed pending.data'); ok (!-r 'pending.data', 'Removed pending.data');
qx{../task rc:date3.rc add foo due:4/8/10}; qx{../src/task rc:date3.rc add foo due:4/8/10};
$output = qx{../task rc:date3.rc list}; $output = qx{../src/task rc:date3.rc list};
like ($output, qr/Thursday 08 April 2010 \(v14\)/, 'date format A D B Y (vV) parsed'); like ($output, qr/Thursday 08 April 2010 \(v14\)/, 'date format A D B Y (vV) parsed');
$output = qx{../task rc:date3.rc rc.dateformat.report:"D b Y - a" list}; $output = qx{../src/task rc:date3.rc rc.dateformat.report:"D b Y - a" list};
like ($output, qr/08 Apr 2010 - Thu/, 'date format D b Y - a parsed'); like ($output, qr/08 Apr 2010 - Thu/, 'date format D b Y - a parsed');
# Cleanup. # Cleanup.

10
test/datesort.t
View file

@ -46,14 +46,14 @@ if (open my $fh, '>', 'datesort.rc')
ok (-r 'datesort.rc', 'Created datesort.rc'); ok (-r 'datesort.rc', 'Created datesort.rc');
} }
qx{../task rc:datesort.rc add two due:20100201}; qx{../src/task rc:datesort.rc add two due:20100201};
qx{../task rc:datesort.rc add one due:20100101}; qx{../src/task rc:datesort.rc add one due:20100101};
qx{../task rc:datesort.rc add three due:20100301}; qx{../src/task rc:datesort.rc add three due:20100301};
my $output = qx{../task rc:datesort.rc small_list}; my $output = qx{../src/task rc:datesort.rc small_list};
like ($output, qr/one.+two.+three/ms, 'Sorting by due+ with format MD works'); like ($output, qr/one.+two.+three/ms, 'Sorting by due+ with format MD works');
$output = qx{../task rc:datesort.rc rc.report.small_list.sort=due- small_list}; $output = qx{../src/task rc:datesort.rc rc.report.small_list.sort=due- small_list};
like ($output, qr/three.+two.+one/ms, 'Sorting by due- with format MD works'); like ($output, qr/three.+two.+one/ms, 'Sorting by due- with format MD works');
# Cleanup. # Cleanup.

18
test/default.t
View file

@ -43,38 +43,38 @@ if (open my $fh, '>', 'default.rc')
} }
# Set up a default command, project and priority. # Set up a default command, project and priority.
qx{../task rc:default.rc add all defaults}; qx{../src/task rc:default.rc add all defaults};
my $output = qx{../task rc:default.rc list}; my $output = qx{../src/task rc:default.rc list};
like ($output, qr/ all defaults/, 'task added'); like ($output, qr/ all defaults/, 'task added');
like ($output, qr/ PROJECT /, 'default project added'); like ($output, qr/ PROJECT /, 'default project added');
like ($output, qr/ M /, 'default priority added'); like ($output, qr/ M /, 'default priority added');
like ($output, qr/\//, 'default due added'); like ($output, qr/\//, 'default due added');
unlink 'pending.data'; unlink 'pending.data';
qx{../task rc:default.rc add project:specific priority:L due:eoy all specified}; qx{../src/task rc:default.rc add project:specific priority:L due:eoy all specified};
$output = qx{../task rc:default.rc list}; $output = qx{../src/task rc:default.rc list};
like ($output, qr/ all specified/, 'task added'); like ($output, qr/ all specified/, 'task added');
like ($output, qr/ specific /, 'project specified'); like ($output, qr/ specific /, 'project specified');
like ($output, qr/ L /, 'priority specified'); like ($output, qr/ L /, 'priority specified');
like ($output, qr/\//, 'due specified'); like ($output, qr/\//, 'due specified');
unlink 'pending.data'; unlink 'pending.data';
qx{../task rc:default.rc add project:specific project specified}; qx{../src/task rc:default.rc add project:specific project specified};
$output = qx{../task rc:default.rc list}; $output = qx{../src/task rc:default.rc list};
like ($output, qr/ project specified/, 'task added'); like ($output, qr/ project specified/, 'task added');
like ($output, qr/ specific /, 'project specified'); like ($output, qr/ specific /, 'project specified');
like ($output, qr/ M /, 'default priority added'); like ($output, qr/ M /, 'default priority added');
like ($output, qr/\//, 'default due added'); like ($output, qr/\//, 'default due added');
unlink 'pending.data'; unlink 'pending.data';
qx{../task rc:default.rc add priority:L priority specified}; qx{../src/task rc:default.rc add priority:L priority specified};
$output = qx{../task rc:default.rc list}; $output = qx{../src/task rc:default.rc list};
like ($output, qr/ priority specified/, 'task added'); like ($output, qr/ priority specified/, 'task added');
like ($output, qr/ PROJECT /, 'default project added'); like ($output, qr/ PROJECT /, 'default project added');
like ($output, qr/ L /, 'priority specified'); like ($output, qr/ L /, 'priority specified');
like ($output, qr/\//, 'default due added'); like ($output, qr/\//, 'default due added');
$output = qx{../task rc:default.rc}; $output = qx{../src/task rc:default.rc};
like ($output, qr/1 PROJECT L .+ priority specified/, 'default command worked'); like ($output, qr/1 PROJECT L .+ priority specified/, 'default command worked');
# Cleanup. # Cleanup.

10
test/delete.t
View file

@ -41,23 +41,23 @@ if (open my $fh, '>', 'delete.rc')
} }
# Add a task, delete it, undelete it. # Add a task, delete it, undelete it.
my $output = qx{../task rc:delete.rc add one; ../task rc:delete.rc info 1}; my $output = qx{../src/task rc:delete.rc add one; ../src/task rc:delete.rc info 1};
ok (-r 'pending.data', 'pending.data created'); ok (-r 'pending.data', 'pending.data created');
like ($output, qr/Status\s+Pending\n/, 'Pending'); like ($output, qr/Status\s+Pending\n/, 'Pending');
$output = qx{../task rc:delete.rc delete 1; ../task rc:delete.rc info 1}; $output = qx{../src/task rc:delete.rc delete 1; ../src/task rc:delete.rc info 1};
like ($output, qr/Status\s+Deleted\n/, 'Deleted'); like ($output, qr/Status\s+Deleted\n/, 'Deleted');
ok (-r 'completed.data', 'completed.data created'); ok (-r 'completed.data', 'completed.data created');
$output = qx{echo 'y' | ../task rc:delete.rc undo; ../task rc:delete.rc info 1}; $output = qx{echo 'y' | ../src/task rc:delete.rc undo; ../src/task rc:delete.rc info 1};
like ($output, qr/Status\s+Pending\n/, 'Pending'); like ($output, qr/Status\s+Pending\n/, 'Pending');
ok (-r 'completed.data', 'completed.data created'); ok (-r 'completed.data', 'completed.data created');
$output = qx{../task rc:delete.rc delete 1; ../task rc:delete.rc list}; $output = qx{../src/task rc:delete.rc delete 1; ../src/task rc:delete.rc list};
like ($output, qr/No matches./, 'No matches'); like ($output, qr/No matches./, 'No matches');
ok (-r 'completed.data', 'completed.data created'); ok (-r 'completed.data', 'completed.data created');
$output = qx{../task rc:delete.rc info 1}; $output = qx{../src/task rc:delete.rc info 1};
like ($output, qr/Task 1 not found/, 'No matches'); like ($output, qr/Task 1 not found/, 'No matches');
# Cleanup. # Cleanup.

42
test/denotate.t
View file

@ -45,23 +45,23 @@ if (open my $fh, '>', 'denotate.rc')
} }
# Add four tasks, annotate one three times, one twice, one just once and one none. # Add four tasks, annotate one three times, one twice, one just once and one none.
qx{../task rc:denotate.rc add one}; qx{../src/task rc:denotate.rc add one};
qx{../task rc:denotate.rc annotate 1 Ernie}; qx{../src/task rc:denotate.rc annotate 1 Ernie};
diag ("6 second delay"); diag ("6 second delay");
sleep 1; sleep 1;
qx{../task rc:denotate.rc annotate 1 Bert}; qx{../src/task rc:denotate.rc annotate 1 Bert};
sleep 1; sleep 1;
qx{../task rc:denotate.rc annotate 1 Bibo}; qx{../src/task rc:denotate.rc annotate 1 Bibo};
sleep 1; sleep 1;
qx{../task rc:denotate.rc annotate 1 Kermit the frog}; qx{../src/task rc:denotate.rc annotate 1 Kermit the frog};
sleep 1; sleep 1;
qx{../task rc:denotate.rc annotate 1 Kermit the frog}; qx{../src/task rc:denotate.rc annotate 1 Kermit the frog};
sleep 1; sleep 1;
qx{../task rc:denotate.rc annotate 1 Kermit}; qx{../src/task rc:denotate.rc annotate 1 Kermit};
sleep 1; sleep 1;
qx{../task rc:denotate.rc annotate 1 Kermit and Miss Piggy}; qx{../src/task rc:denotate.rc annotate 1 Kermit and Miss Piggy};
my $output = qx{../task rc:denotate.rc rrr}; my $output = qx{../src/task rc:denotate.rc rrr};
like ($output, qr/1 one/, 'task 1'); like ($output, qr/1 one/, 'task 1');
like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Ernie/ms, 'first annotation'); like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Ernie/ms, 'first annotation');
@ -73,36 +73,36 @@ like ($output, qr/frog.+\d{1,2}\/\d{1,2}\/\d{4} Kermit/ms, 'six
like ($output, qr/Kermit.+\d{1,2}\/\d{1,2}\/\d{4} Kermit and Miss Piggy/ms, 'seventh annotation'); like ($output, qr/Kermit.+\d{1,2}\/\d{1,2}\/\d{4} Kermit and Miss Piggy/ms, 'seventh annotation');
like ($output, qr/1 task/, 'count'); like ($output, qr/1 task/, 'count');
qx{../task rc:denotate.rc denotate 1 Ernie}; qx{../src/task rc:denotate.rc denotate 1 Ernie};
$output = qx{../task rc:denotate.rc rrr}; $output = qx{../src/task rc:denotate.rc rrr};
unlike ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Ernie/ms, 'Delete annotation'); unlike ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Ernie/ms, 'Delete annotation');
like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Bert/ms, 'Bert now first annotationt'); like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Bert/ms, 'Bert now first annotationt');
qx{../task rc:denotate.rc denotate 1 Bi}; qx{../src/task rc:denotate.rc denotate 1 Bi};
$output = qx{../task rc:denotate.rc rrr}; $output = qx{../src/task rc:denotate.rc rrr};
unlike ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Bibo/ms, 'Delete partial match'); unlike ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Bibo/ms, 'Delete partial match');
like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms, 'Kermit the frog now second annotation'); like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms, 'Kermit the frog now second annotation');
qx{../task rc:denotate.rc denotate 1 BErt}; qx{../src/task rc:denotate.rc denotate 1 BErt};
$output = qx{../task rc:denotate.rc rrr}; $output = qx{../src/task rc:denotate.rc rrr};
like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Bert/ms, 'Denotate is case sensitive'); like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Bert/ms, 'Denotate is case sensitive');
like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms, 'Kermit the frog still second annoation'); like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms, 'Kermit the frog still second annoation');
qx{../task rc:denotate.rc denotate 1 Kermit}; qx{../src/task rc:denotate.rc denotate 1 Kermit};
$output = qx{../task rc:denotate.rc rrr}; $output = qx{../src/task rc:denotate.rc rrr};
like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Bert/ms, 'Exact match deletion - Bert'); like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Bert/ms, 'Exact match deletion - Bert');
like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms, 'Exact match deletion - Kermit the frog'); like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms, 'Exact match deletion - Kermit the frog');
like ($output, qr/frog.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms, 'Exact match deletion - Kermit the frog'); like ($output, qr/frog.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms, 'Exact match deletion - Kermit the frog');
like ($output, qr/frog.+\d{1,2}\/\d{1,2}\/\d{4} Kermit and Miss Piggy/ms, 'Exact match deletion - Kermit and Miss Piggy'); like ($output, qr/frog.+\d{1,2}\/\d{1,2}\/\d{4} Kermit and Miss Piggy/ms, 'Exact match deletion - Kermit and Miss Piggy');
qx{../task rc:denotate.rc denotate 1 Kermit the}; qx{../src/task rc:denotate.rc denotate 1 Kermit the};
$output = qx{../task rc:denotate.rc rrr}; $output = qx{../src/task rc:denotate.rc rrr};
like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Bert/ms, 'Delete just one annotation - Bert'); like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Bert/ms, 'Delete just one annotation - Bert');
like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms, 'Delete just one annotation - Kermit the frog'); like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms, 'Delete just one annotation - Kermit the frog');
like ($output, qr/frog.+\d{1,2}\/\d{1,2}\/\d{4} Kermit and Miss Piggy/ms, 'Delete just one annotation - Kermit and Miss Piggy'); like ($output, qr/frog.+\d{1,2}\/\d{1,2}\/\d{4} Kermit and Miss Piggy/ms, 'Delete just one annotation - Kermit and Miss Piggy');
qx{../task rc:denotate.rc denotate 1 Kermit a}; qx{../src/task rc:denotate.rc denotate 1 Kermit a};
$output = qx{../task rc:denotate.rc rrr}; $output = qx{../src/task rc:denotate.rc rrr};
like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Bert/ms, 'Delete partial match - Bert'); like ($output, qr/one.+\d{1,2}\/\d{1,2}\/\d{4} Bert/ms, 'Delete partial match - Bert');
like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms, 'Delete partial match - Kermit the frog'); like ($output, qr/Bert.+\d{1,2}\/\d{1,2}\/\d{4} Kermit the frog/ms, 'Delete partial match - Kermit the frog');
unlike ($output, qr/frog.+\d{1,2}\/\d{1,2}\/\d{4} Kermit and Miss Piggy/ms, 'Delete partial match - Kermit and Miss Piggy'); unlike ($output, qr/frog.+\d{1,2}\/\d{1,2}\/\d{4} Kermit and Miss Piggy/ms, 'Delete partial match - Kermit and Miss Piggy');

130
test/dependencies.t
View file

@ -45,50 +45,50 @@ if (open my $fh, '>', 'dep.rc')
ok (-r 'dep.rc', 'Created dep.rc'); ok (-r 'dep.rc', 'Created dep.rc');
} }
qx{../task rc:dep.rc add One}; qx{../src/task rc:dep.rc add One};
qx{../task rc:dep.rc add Two}; qx{../src/task rc:dep.rc add Two};
# [2] # [2]
my $output = qx{../task rc:dep.rc 1 dep:-2}; my $output = qx{../src/task rc:dep.rc 1 dep:-2};
like ($output, qr/Modified 0 tasks\./, 'dependencies - remove nonexistent dependency'); like ($output, qr/Modified 0 tasks\./, 'dependencies - remove nonexistent dependency');
# [3] # [3]
$output = qx{../task rc:dep.rc 1 dep:99}; $output = qx{../src/task rc:dep.rc 1 dep:99};
like ($output, qr/Could not create a dependency on task 99 - not found\./, 'dependencies - add dependency for nonexistent task'); like ($output, qr/Could not create a dependency on task 99 - not found\./, 'dependencies - add dependency for nonexistent task');
# [4] # [4]
$output = qx{../task rc:dep.rc 99 dep:1}; $output = qx{../src/task rc:dep.rc 99 dep:1};
like ($output, qr/Task 99 not found\./, 'dependencies - add dependency to nonexistent task'); like ($output, qr/Task 99 not found\./, 'dependencies - add dependency to nonexistent task');
# [5,6] t 1 dep:2; t info 1 => blocked by 2 # [5,6] t 1 dep:2; t info 1 => blocked by 2
$output = qx{../task rc:dep.rc 1 dep:2; ../task rc:dep.rc info 1}; $output = qx{../src/task rc:dep.rc 1 dep:2; ../src/task rc:dep.rc info 1};
like ($output, qr/This task blocked by\s+2 Two\nUUID/, 'dependencies - trivial blocked'); like ($output, qr/This task blocked by\s+2 Two\nUUID/, 'dependencies - trivial blocked');
unlike ($output, qr/This task is blocking\n/, 'dependencies - trivial blocked'); unlike ($output, qr/This task is blocking\n/, 'dependencies - trivial blocked');
# [7,8] t info 2 => blocking 1 # [7,8] t info 2 => blocking 1
$output = qx{../task rc:dep.rc info 2}; $output = qx{../src/task rc:dep.rc info 2};
unlike ($output, qr/This task blocked by/, 'dependencies - trivial blocking'); unlike ($output, qr/This task blocked by/, 'dependencies - trivial blocking');
like ($output, qr/This task is blocking\s+1 One\nUUID/, 'dependencies - trivial blocking'); like ($output, qr/This task is blocking\s+1 One\nUUID/, 'dependencies - trivial blocking');
# [9] t 1 dep:2 (again) # [9] t 1 dep:2 (again)
$output = qx{../task rc:dep.rc 1 dep:2}; $output = qx{../src/task rc:dep.rc 1 dep:2};
like ($output, qr/Task 1 already depends on task 2\./, 'dependencies - add already existing dependency'); like ($output, qr/Task 1 already depends on task 2\./, 'dependencies - add already existing dependency');
# [10,11] t 1 dep:1 => error # [10,11] t 1 dep:1 => error
$output = qx{../task rc:dep.rc 1 dep:1}; $output = qx{../src/task rc:dep.rc 1 dep:1};
like ($output, qr/A task cannot be dependent on itself\./, 'dependencies - cannot depend on self'); like ($output, qr/A task cannot be dependent on itself\./, 'dependencies - cannot depend on self');
unlike ($output, qr/Modified 1 task\./, 'dependencies - cannot depend on self'); unlike ($output, qr/Modified 1 task\./, 'dependencies - cannot depend on self');
# [12,13] t 1 dep:2; t 2 dep:1 => error # [12,13] t 1 dep:2; t 2 dep:1 => error
$output = qx{../task rc:dep.rc 2 dep:1}; $output = qx{../src/task rc:dep.rc 2 dep:1};
like ($output, qr/Circular dependency detected and disallowed\./, 'dependencies - trivial circular'); like ($output, qr/Circular dependency detected and disallowed\./, 'dependencies - trivial circular');
unlike ($output, qr/Modified 1 task\./, 'dependencies - trivial circular'); unlike ($output, qr/Modified 1 task\./, 'dependencies - trivial circular');
# [14,15] t 1 dep:2; t 2 dep:3; t 1 dep:3 => not circular # [14,15] t 1 dep:2; t 2 dep:3; t 1 dep:3 => not circular
qx{../task rc:dep.rc 1 dep:2}; qx{../src/task rc:dep.rc 1 dep:2};
qx{../task rc:dep.rc add Three}; qx{../src/task rc:dep.rc add Three};
qx{../task rc:dep.rc 2 dep:3}; qx{../src/task rc:dep.rc 2 dep:3};
$output = qx{../task rc:dep.rc 1 dep:3}; $output = qx{../src/task rc:dep.rc 1 dep:3};
unlike ($output, qr/Circular dependency detected and disallowed\./, 'dependencies - diamond, non-circular'); unlike ($output, qr/Circular dependency detected and disallowed\./, 'dependencies - diamond, non-circular');
like ($output, qr/Modified 1 task\./, 'dependencies - diamond, non-circular'); like ($output, qr/Modified 1 task\./, 'dependencies - diamond, non-circular');
@ -96,16 +96,16 @@ like ($output, qr/Modified 1 task\./, 'dependencie
unlink 'pending.data'; unlink 'pending.data';
ok (!-r 'pending.data', 'Removed pending.data for a fresh start'); ok (!-r 'pending.data', 'Removed pending.data for a fresh start');
qx{../task rc:dep.rc add One}; qx{../src/task rc:dep.rc add One};
qx{../task rc:dep.rc add Two}; qx{../src/task rc:dep.rc add Two};
qx{../task rc:dep.rc add Three}; qx{../src/task rc:dep.rc add Three};
qx{../task rc:dep.rc add Four}; qx{../src/task rc:dep.rc add Four};
qx{../task rc:dep.rc add Five}; qx{../src/task rc:dep.rc add Five};
qx{../task rc:dep.rc 5 dep:4; ../task rc:dep.rc 4 dep:3; ../task rc:dep.rc 3 dep:2; ../task rc:dep.rc 2 dep:1}; qx{../src/task rc:dep.rc 5 dep:4; ../src/task rc:dep.rc 4 dep:3; ../src/task rc:dep.rc 3 dep:2; ../src/task rc:dep.rc 2 dep:1};
# [17,18] 5 dep 4 dep 3 dep 2 dep 1 dep 5 => error # [17,18] 5 dep 4 dep 3 dep 2 dep 1 dep 5 => error
$output = qx{../task rc:dep.rc 1 dep:5}; $output = qx{../src/task rc:dep.rc 1 dep:5};
like ($output, qr/Circular dependency detected and disallowed\./, 'dependencies - nontrivial circular'); like ($output, qr/Circular dependency detected and disallowed\./, 'dependencies - nontrivial circular');
unlike ($output, qr/Modified 1 task\./, 'dependencies - nontrivial circular'); unlike ($output, qr/Modified 1 task\./, 'dependencies - nontrivial circular');
@ -113,108 +113,108 @@ unlike ($output, qr/Modified 1 task\./, 'dependencie
unlink 'pending.data'; unlink 'pending.data';
ok (!-r 'pending.data', 'Removed pending.data for a fresh start'); ok (!-r 'pending.data', 'Removed pending.data for a fresh start');
qx{../task rc:dep.rc add One}; qx{../src/task rc:dep.rc add One};
qx{../task rc:dep.rc add Two}; qx{../src/task rc:dep.rc add Two};
qx{../task rc:dep.rc add Three}; qx{../src/task rc:dep.rc add Three};
qx{../task rc:dep.rc add Four}; qx{../src/task rc:dep.rc add Four};
qx{../task rc:dep.rc add Five}; qx{../src/task rc:dep.rc add Five};
qx{../task rc:dep.rc add Six recurring due:tomorrow recur:daily}; qx{../src/task rc:dep.rc add Six recurring due:tomorrow recur:daily};
# [20] # [20]
qx{../task rc:dep.rc ls}; # To force handleRecurrence call. qx{../src/task rc:dep.rc ls}; # To force handleRecurrence call.
$output = qx{../task rc:dep.rc 6 dep:5}; $output = qx{../src/task rc:dep.rc 6 dep:5};
like ($output, qr/Modified \d+ task/, 'dependencies - recurring task depending on another task'); like ($output, qr/Modified \d+ task/, 'dependencies - recurring task depending on another task');
# [21] # [21]
$output = qx{../task rc:dep.rc 4 dep:5}; $output = qx{../src/task rc:dep.rc 4 dep:5};
like ($output, qr/Modified \d+ task/, 'dependencies - task depending on recurring task'); like ($output, qr/Modified \d+ task/, 'dependencies - task depending on recurring task');
# [22] t 1 dep:2,3,4; t 1 dep:-2,-4,5; t info 1 => blocked by 3,5 # [22] t 1 dep:2,3,4; t 1 dep:-2,-4,5; t info 1 => blocked by 3,5
$output = qx{../task rc:dep.rc 1 dep:2,3,4; ../task rc:dep.rc 1 dep:-2,-4,5; ../task rc:dep.rc info 1}; $output = qx{../src/task rc:dep.rc 1 dep:2,3,4; ../src/task rc:dep.rc 1 dep:-2,-4,5; ../src/task rc:dep.rc info 1};
like ($output, qr/This task blocked by\s+3 Three\n\s+5 Five\nUUID/, 'dependencies - multiple dependencies modified'); like ($output, qr/This task blocked by\s+3 Three\n\s+5 Five\nUUID/, 'dependencies - multiple dependencies modified');
# [23,24] # [23,24]
$output = qx{../task rc:dep.rc do 3,5; ../task rc:dep.rc info 1}; $output = qx{../src/task rc:dep.rc do 3,5; ../src/task rc:dep.rc info 1};
unlike ($output, qr/This task blocked by/, 'dependencies - task info reflects completed dependencies'); unlike ($output, qr/This task blocked by/, 'dependencies - task info reflects completed dependencies');
unlike ($output, qr/This task is blocking/, 'dependencies - task info reflects completed dependencies'); unlike ($output, qr/This task is blocking/, 'dependencies - task info reflects completed dependencies');
# [25] # [25]
$output = qx{../task rc:dep.rc depreport}; $output = qx{../src/task rc:dep.rc depreport};
like ($output, qr/\s1\s+One\s+/, 'dependencies - depends report column reflects completed dependencies'); like ($output, qr/\s1\s+One\s+/, 'dependencies - depends report column reflects completed dependencies');
# [26] # [26]
unlink 'pending.data'; unlink 'pending.data';
ok (!-r 'pending.data', 'Removed pending.data for a fresh start'); ok (!-r 'pending.data', 'Removed pending.data for a fresh start');
qx{../task rc:dep.rc add One}; qx{../src/task rc:dep.rc add One};
qx{../task rc:dep.rc add Two}; qx{../src/task rc:dep.rc add Two};
qx{../task rc:dep.rc add Three}; qx{../src/task rc:dep.rc add Three};
qx{../task rc:dep.rc add Four}; qx{../src/task rc:dep.rc add Four};
qx{../task rc:dep.rc 1 dep:3,4}; qx{../src/task rc:dep.rc 1 dep:3,4};
qx{../task rc:dep.rc do 2}; qx{../src/task rc:dep.rc do 2};
# [27] # [27]
$output = qx{../task rc:dep.rc depreport}; $output = qx{../src/task rc:dep.rc depreport};
like ($output, qr/\s1\s+2,3\s+One\s+/, 'dependencies - depends report column reflects changed IDs'); like ($output, qr/\s1\s+2,3\s+One\s+/, 'dependencies - depends report column reflects changed IDs');
# [28] # [28]
qx{../task rc:dep.rc do 3}; qx{../src/task rc:dep.rc do 3};
$output = qx{../task rc:dep.rc depreport}; $output = qx{../src/task rc:dep.rc depreport};
like ($output, qr/\s1\s+2\s+One\s+/, 'dependencies - depends report column reflects completed dependencies'); like ($output, qr/\s1\s+2\s+One\s+/, 'dependencies - depends report column reflects completed dependencies');
# [29] # [29]
unlink 'pending.data'; unlink 'pending.data';
ok (!-r 'pending.data', 'Removed pending.data for a fresh start'); ok (!-r 'pending.data', 'Removed pending.data for a fresh start');
qx{../task rc:dep.rc add One}; qx{../src/task rc:dep.rc add One};
qx{../task rc:dep.rc add Two}; qx{../src/task rc:dep.rc add Two};
qx{../task rc:dep.rc add Three}; qx{../src/task rc:dep.rc add Three};
qx{../task rc:dep.rc add Four}; qx{../src/task rc:dep.rc add Four};
qx{../task rc:dep.rc 2 dep:1; ../task rc:dep.rc 3 dep:2; ../task rc:dep.rc 4 dep:3}; qx{../src/task rc:dep.rc 2 dep:1; ../src/task rc:dep.rc 3 dep:2; ../src/task rc:dep.rc 4 dep:3};
# [30,31] # [30,31]
$output = qx{echo y | ../task rc:dep.rc do 2}; $output = qx{echo y | ../src/task rc:dep.rc do 2};
like ($output, qr/fixed/, 'dependencies - user prompted to fix broken chain after completing a blocked task'); like ($output, qr/fixed/, 'dependencies - user prompted to fix broken chain after completing a blocked task');
like ($output, qr/is blocked by/, 'dependencies - user nagged for completing a blocked task'); like ($output, qr/is blocked by/, 'dependencies - user nagged for completing a blocked task');
# [32] # [32]
$output = qx{echo y | ../task rc:dep.rc do 1}; $output = qx{echo y | ../src/task rc:dep.rc do 1};
unlike ($output, qr/fixed/, 'dependencies - user not prompted to fix broken chain when the head of the chain is marked as complete'); unlike ($output, qr/fixed/, 'dependencies - user not prompted to fix broken chain when the head of the chain is marked as complete');
# [33] # [33]
$output = qx{echo y | ../task rc:dep.rc del 4}; $output = qx{echo y | ../src/task rc:dep.rc del 4};
unlike ($output, qr/fixed/, 'dependencies - user not prompted to fix broken chain when the tail of the chain is deleted'); unlike ($output, qr/fixed/, 'dependencies - user not prompted to fix broken chain when the tail of the chain is deleted');
# [34] # [34]
unlink 'pending.data'; unlink 'pending.data';
ok (!-r 'pending.data', 'Removed pending.data for a fresh start'); ok (!-r 'pending.data', 'Removed pending.data for a fresh start');
qx{../task rc:dep.rc add One}; qx{../src/task rc:dep.rc add One};
qx{../task rc:dep.rc add Two}; qx{../src/task rc:dep.rc add Two};
qx{../task rc:dep.rc add Three}; qx{../src/task rc:dep.rc add Three};
qx{../task rc:dep.rc add Four}; qx{../src/task rc:dep.rc add Four};
qx{../task rc:dep.rc add Five}; qx{../src/task rc:dep.rc add Five};
qx{../task rc:dep.rc 2 dep:1}; qx{../src/task rc:dep.rc 2 dep:1};
qx{../task rc:dep.rc 3 dep:2}; qx{../src/task rc:dep.rc 3 dep:2};
qx{../task rc:dep.rc 4 dep:3}; qx{../src/task rc:dep.rc 4 dep:3};
qx{../task rc:dep.rc 5 dep:4}; qx{../src/task rc:dep.rc 5 dep:4};
# [35] # [35]
qx{echo y | ../task rc:dep.rc do 2}; qx{echo y | ../src/task rc:dep.rc do 2};
$output = qx{../task rc:dep.rc depreport}; $output = qx{../src/task rc:dep.rc depreport};
like ($output, qr/\s1\s+One\s*\n\s2\s+1\s+Three\s*\n\s3\s+2\s+Four\s*\n\s4\s+3\s+Five/, 'dependencies - fixed chain after completing a blocked task'); like ($output, qr/\s1\s+One\s*\n\s2\s+1\s+Three\s*\n\s3\s+2\s+Four\s*\n\s4\s+3\s+Five/, 'dependencies - fixed chain after completing a blocked task');
# [36] # [36]
qx{printf "Y\nY\n" | ../task rc:dep.rc del 2}; qx{printf "Y\nY\n" | ../src/task rc:dep.rc del 2};
$output = qx{../task rc:dep.rc depreport}; $output = qx{../src/task rc:dep.rc depreport};
like ($output, qr/\s1\s+One\s*\n\s2\s+1\s+Four\s*\n\s3\s+2\s+Five/, 'dependencies - fixed chain after deleting a blocked task'); like ($output, qr/\s1\s+One\s*\n\s2\s+1\s+Four\s*\n\s3\s+2\s+Five/, 'dependencies - fixed chain after deleting a blocked task');
# [37] # [37]
qx{../task rc:dep.rc 2 dep:-1}; qx{../src/task rc:dep.rc 2 dep:-1};
$output = qx{../task rc:dep.rc depreport}; $output = qx{../src/task rc:dep.rc depreport};
like ($output, qr/\s1\s+One\s*\n\s2\s+Four\s*\n\s3\s+2\s+Five/, 'dependencies - chain should not be automatically repaired after manually removing a dependency'); like ($output, qr/\s1\s+One\s*\n\s2\s+Four\s*\n\s3\s+2\s+Five/, 'dependencies - chain should not be automatically repaired after manually removing a dependency');
# TODO - test dependency.confirmation config variable # TODO - test dependency.confirmation config variable

12
test/due.t
View file

@ -51,17 +51,17 @@ my $just = sprintf ("%d/%d/%d", $m + 1, $d, $y + 1900);
($d, $m, $y) = (localtime (time + 5 * 86_400))[3..5]; ($d, $m, $y) = (localtime (time + 5 * 86_400))[3..5];
my $almost = sprintf ("%d/%d/%d", $m + 1, $d, $y + 1900); my $almost = sprintf ("%d/%d/%d", $m + 1, $d, $y + 1900);
qx{../task rc:due.rc add one due:$just}; qx{../src/task rc:due.rc add one due:$just};
qx{../task rc:due.rc add two due:$almost}; qx{../src/task rc:due.rc add two due:$almost};
my $output = qx{../task rc:due.rc list}; my $output = qx{../src/task rc:due.rc list};
like ($output, qr/\[31m.+$just.+\[0m/, 'one marked due'); like ($output, qr/\[31m.+$just.+\[0m/, 'one marked due');
like ($output, qr/\s+$almost\s+/, 'two not marked due'); like ($output, qr/\s+$almost\s+/, 'two not marked due');
qx{../task rc:due.rc add three due:today}; qx{../src/task rc:due.rc add three due:today};
$output = qx{../task rc:due.rc list due:today}; $output = qx{../src/task rc:due.rc list due:today};
like ($output, qr/three/, 'due:today works as a filter'); like ($output, qr/three/, 'due:today works as a filter');
$output = qx{../task rc:due.rc list due.is:today}; $output = qx{../src/task rc:due.rc list due.is:today};
like ($output, qr/three/, 'due.is:today works as a filter'); like ($output, qr/three/, 'due.is:today works as a filter');
# Cleanup. # Cleanup.

12
test/duplicate.t
View file

@ -39,16 +39,16 @@ if (open my $fh, '>', 'dup.rc')
} }
# Test the duplicate command. # Test the duplicate command.
qx{../task rc:dup.rc add foo}; qx{../src/task rc:dup.rc add foo};
qx{../task rc:dup.rc duplicate 1}; qx{../src/task rc:dup.rc duplicate 1};
my $output = qx{../task rc:dup.rc info 2}; my $output = qx{../src/task rc:dup.rc info 2};
like ($output, qr/ID\s+2/, 'duplicate new id'); like ($output, qr/ID\s+2/, 'duplicate new id');
like ($output, qr/Status\s+Pending/, 'duplicate same status'); like ($output, qr/Status\s+Pending/, 'duplicate same status');
like ($output, qr/Description\s+foo/, 'duplicate same description'); like ($output, qr/Description\s+foo/, 'duplicate same description');
# Test the en passant modification while duplicating. # Test the en passant modification while duplicating.
qx{../task rc:dup.rc duplicate 1 priority:H /foo/FOO/ +tag}; qx{../src/task rc:dup.rc duplicate 1 priority:H /foo/FOO/ +tag};
$output = qx{../task rc:dup.rc info 3}; $output = qx{../src/task rc:dup.rc info 3};
like ($output, qr/ID\s+3/, 'duplicate new id'); like ($output, qr/ID\s+3/, 'duplicate new id');
like ($output, qr/Status\s+Pending/, 'duplicate same status'); like ($output, qr/Status\s+Pending/, 'duplicate same status');
like ($output, qr/Description\s+FOO/, 'duplicate modified description'); like ($output, qr/Description\s+FOO/, 'duplicate modified description');
@ -56,7 +56,7 @@ like ($output, qr/Priority\s+H/, 'duplicate added priority');
like ($output, qr/Tags\s+tag/, 'duplicate added tag'); like ($output, qr/Tags\s+tag/, 'duplicate added tag');
# Test the output of the duplicate command - returning id of duplicated task # Test the output of the duplicate command - returning id of duplicated task
$output = qx{../task rc:dup.rc duplicate 1}; $output = qx{../src/task rc:dup.rc duplicate 1};
like ($output, qr/Duplicated\s+1\s+'foo'/, 'duplicate output task id and description'); like ($output, qr/Duplicated\s+1\s+'foo'/, 'duplicate output task id and description');
like ($output, qr/Created\s+task\s+4/, 'duplicate output of new task id'); like ($output, qr/Created\s+task\s+4/, 'duplicate output of new task id');

10
test/enpassant.t
View file

@ -39,15 +39,15 @@ if (open my $fh, '>', 'enp.rc')
} }
# Test the en passant feature. # Test the en passant feature.
qx{../task rc:enp.rc add foo}; qx{../src/task rc:enp.rc add foo};
qx{../task rc:enp.rc add foo bar}; qx{../src/task rc:enp.rc add foo bar};
qx{../task rc:enp.rc do 1,2 /foo/FOO/ pri:H +tag}; qx{../src/task rc:enp.rc do 1,2 /foo/FOO/ pri:H +tag};
my $output = qx{../task rc:enp.rc info 1}; my $output = qx{../src/task rc:enp.rc info 1};
like ($output, qr/Status\s+Completed/, 'en passant 1 status change'); like ($output, qr/Status\s+Completed/, 'en passant 1 status change');
like ($output, qr/Description\s+FOO/, 'en passant 1 description change'); like ($output, qr/Description\s+FOO/, 'en passant 1 description change');
like ($output, qr/Priority\s+H/, 'en passant 1 description change'); like ($output, qr/Priority\s+H/, 'en passant 1 description change');
like ($output, qr/Tags\s+tag/, 'en passant 1 description change'); like ($output, qr/Tags\s+tag/, 'en passant 1 description change');
$output = qx{../task rc:enp.rc info 2}; $output = qx{../src/task rc:enp.rc info 2};
like ($output, qr/Status\s+Completed/, 'en passant 2 status change'); like ($output, qr/Status\s+Completed/, 'en passant 2 status change');
like ($output, qr/Description\s+FOO bar/, 'en passant 2 description change'); like ($output, qr/Description\s+FOO bar/, 'en passant 2 description change');
like ($output, qr/Priority\s+H/, 'en passant 2 description change'); like ($output, qr/Priority\s+H/, 'en passant 2 description change');

6
test/export.csv.t
View file

@ -39,9 +39,9 @@ if (open my $fh, '>', 'export.rc')
} }
# Add two tasks, export, examine result. # Add two tasks, export, examine result.
qx{../task rc:export.rc add priority:H project:A one}; qx{../src/task rc:export.rc add priority:H project:A one};
qx{../task rc:export.rc add +tag1 +tag2 two}; qx{../src/task rc:export.rc add +tag1 +tag2 two};
qx{../task rc:export.rc export.csv > ./export.txt}; qx{../src/task rc:export.rc export.csv > ./export.txt};
my @lines; my @lines;
if (open my $fh, '<', './export.txt') if (open my $fh, '<', './export.txt')

6
test/export.yaml.t
View file

@ -39,9 +39,9 @@ if (open my $fh, '>', 'export.rc')
} }
# Add two tasks, export, examine result. # Add two tasks, export, examine result.
qx{../task rc:export.rc add priority:H project:A one}; qx{../src/task rc:export.rc add priority:H project:A one};
qx{../task rc:export.rc add +tag1 +tag2 two}; qx{../src/task rc:export.rc add +tag1 +tag2 two};
qx{../task rc:export.rc export.yaml > ./export.txt}; qx{../src/task rc:export.rc export.yaml > ./export.txt};
my @lines; my @lines;
if (open my $fh, '<', './export.txt') if (open my $fh, '<', './export.txt')

6
test/feature.exit.t
View file

@ -39,10 +39,10 @@ if (open my $fh, '>', 'exit.rc')
ok (-r 'exit.rc', 'Created exit.rc'); ok (-r 'exit.rc', 'Created exit.rc');
} }
qx{../task rc:exit.rc add foo}; qx{../src/task rc:exit.rc add foo};
my $exit_good = system ('../task rc:exit.rc ls foo 2>&1 >>/dev/null'); my $exit_good = system ('../src/task rc:exit.rc ls foo 2>&1 >>/dev/null');
is ($exit_good, 0, 'task returns 0 on success'); is ($exit_good, 0, 'task returns 0 on success');
my $exit_bad = system ('../task rc:exit.rc ls bar 2>&1 >>/dev/null'); my $exit_bad = system ('../src/task rc:exit.rc ls bar 2>&1 >>/dev/null');
isnt ($exit_bad, 0, 'task returns non-zero on failure'); isnt ($exit_bad, 0, 'task returns non-zero on failure');
# Cleanup. # Cleanup.

64
test/filter.t
View file

@ -39,15 +39,15 @@ if (open my $fh, '>', 'filter.rc')
} }
# Test the filters. # Test the filters.
qx{../task rc:filter.rc add project:A priority:H +tag one foo}; qx{../src/task rc:filter.rc add project:A priority:H +tag one foo};
qx{../task rc:filter.rc add project:A priority:H two}; qx{../src/task rc:filter.rc add project:A priority:H two};
qx{../task rc:filter.rc add project:A three}; qx{../src/task rc:filter.rc add project:A three};
qx{../task rc:filter.rc add priority:H four}; qx{../src/task rc:filter.rc add priority:H four};
qx{../task rc:filter.rc add +tag five}; qx{../src/task rc:filter.rc add +tag five};
qx{../task rc:filter.rc add six foo}; qx{../src/task rc:filter.rc add six foo};
qx{../task rc:filter.rc add priority:L seven bar foo}; qx{../src/task rc:filter.rc add priority:L seven bar foo};
my $output = qx{../task rc:filter.rc list}; my $output = qx{../src/task rc:filter.rc list};
like ($output, qr/one/, 'a1'); like ($output, qr/one/, 'a1');
like ($output, qr/two/, 'a2'); like ($output, qr/two/, 'a2');
like ($output, qr/three/, 'a3'); like ($output, qr/three/, 'a3');
@ -56,7 +56,7 @@ like ($output, qr/five/, 'a5');
like ($output, qr/six/, 'a6'); like ($output, qr/six/, 'a6');
like ($output, qr/seven/, 'a7'); like ($output, qr/seven/, 'a7');
$output = qx{../task rc:filter.rc list project:A}; $output = qx{../src/task rc:filter.rc list project:A};
like ($output, qr/one/, 'b1'); like ($output, qr/one/, 'b1');
like ($output, qr/two/, 'b2'); like ($output, qr/two/, 'b2');
like ($output, qr/three/, 'b3'); like ($output, qr/three/, 'b3');
@ -65,7 +65,7 @@ unlike ($output, qr/five/, 'b5');
unlike ($output, qr/six/, 'b6'); unlike ($output, qr/six/, 'b6');
unlike ($output, qr/seven/, 'b7'); unlike ($output, qr/seven/, 'b7');
$output = qx{../task rc:filter.rc list priority:H}; $output = qx{../src/task rc:filter.rc list priority:H};
like ($output, qr/one/, 'c1'); like ($output, qr/one/, 'c1');
like ($output, qr/two/, 'c2'); like ($output, qr/two/, 'c2');
unlike ($output, qr/three/, 'c3'); unlike ($output, qr/three/, 'c3');
@ -74,7 +74,7 @@ unlike ($output, qr/five/, 'c5');
unlike ($output, qr/six/, 'c6'); unlike ($output, qr/six/, 'c6');
unlike ($output, qr/seven/, 'c7'); unlike ($output, qr/seven/, 'c7');
$output = qx{../task rc:filter.rc list priority:}; $output = qx{../src/task rc:filter.rc list priority:};
unlike ($output, qr/one/, 'd1'); unlike ($output, qr/one/, 'd1');
unlike ($output, qr/two/, 'd2'); unlike ($output, qr/two/, 'd2');
like ($output, qr/three/, 'd3'); like ($output, qr/three/, 'd3');
@ -83,7 +83,7 @@ like ($output, qr/five/, 'd5');
like ($output, qr/six/, 'd6'); like ($output, qr/six/, 'd6');
unlike ($output, qr/seven/, 'd7'); unlike ($output, qr/seven/, 'd7');
$output = qx{../task rc:filter.rc list foo}; $output = qx{../src/task rc:filter.rc list foo};
like ($output, qr/one/, 'e1'); like ($output, qr/one/, 'e1');
unlike ($output, qr/two/, 'e2'); unlike ($output, qr/two/, 'e2');
unlike ($output, qr/three/, 'e3'); unlike ($output, qr/three/, 'e3');
@ -92,7 +92,7 @@ unlike ($output, qr/five/, 'e5');
like ($output, qr/six/, 'e6'); like ($output, qr/six/, 'e6');
like ($output, qr/seven/, 'e7'); like ($output, qr/seven/, 'e7');
$output = qx{../task rc:filter.rc list foo bar}; $output = qx{../src/task rc:filter.rc list foo bar};
unlike ($output, qr/one/, 'f1'); unlike ($output, qr/one/, 'f1');
unlike ($output, qr/two/, 'f2'); unlike ($output, qr/two/, 'f2');
unlike ($output, qr/three/, 'f3'); unlike ($output, qr/three/, 'f3');
@ -101,7 +101,7 @@ unlike ($output, qr/five/, 'f5');
unlike ($output, qr/six/, 'f6'); unlike ($output, qr/six/, 'f6');
like ($output, qr/seven/, 'f7'); like ($output, qr/seven/, 'f7');
$output = qx{../task rc:filter.rc list +tag}; $output = qx{../src/task rc:filter.rc list +tag};
like ($output, qr/one/, 'g1'); like ($output, qr/one/, 'g1');
unlike ($output, qr/two/, 'g2'); unlike ($output, qr/two/, 'g2');
unlike ($output, qr/three/, 'g3'); unlike ($output, qr/three/, 'g3');
@ -110,7 +110,7 @@ like ($output, qr/five/, 'g5');
unlike ($output, qr/six/, 'g6'); unlike ($output, qr/six/, 'g6');
unlike ($output, qr/seven/, 'g7'); unlike ($output, qr/seven/, 'g7');
$output = qx{../task rc:filter.rc list -tag}; $output = qx{../src/task rc:filter.rc list -tag};
unlike ($output, qr/one/, 'h1'); unlike ($output, qr/one/, 'h1');
like ($output, qr/two/, 'h2'); like ($output, qr/two/, 'h2');
like ($output, qr/three/, 'h3'); like ($output, qr/three/, 'h3');
@ -119,7 +119,7 @@ unlike ($output, qr/five/, 'h5');
like ($output, qr/six/, 'h6'); like ($output, qr/six/, 'h6');
like ($output, qr/seven/, 'h7'); like ($output, qr/seven/, 'h7');
$output = qx{../task rc:filter.rc list -missing}; $output = qx{../src/task rc:filter.rc list -missing};
like ($output, qr/one/, 'i1'); like ($output, qr/one/, 'i1');
like ($output, qr/two/, 'i2'); like ($output, qr/two/, 'i2');
like ($output, qr/three/, 'i3'); like ($output, qr/three/, 'i3');
@ -128,7 +128,7 @@ like ($output, qr/five/, 'i5');
like ($output, qr/six/, 'i6'); like ($output, qr/six/, 'i6');
like ($output, qr/seven/, 'i7'); like ($output, qr/seven/, 'i7');
$output = qx{../task rc:filter.rc list +tag -tag}; $output = qx{../src/task rc:filter.rc list +tag -tag};
unlike ($output, qr/one/, 'j1'); unlike ($output, qr/one/, 'j1');
unlike ($output, qr/two/, 'j2'); unlike ($output, qr/two/, 'j2');
unlike ($output, qr/three/, 'j3'); unlike ($output, qr/three/, 'j3');
@ -137,7 +137,7 @@ unlike ($output, qr/five/, 'j5');
unlike ($output, qr/six/, 'j6'); unlike ($output, qr/six/, 'j6');
unlike ($output, qr/seven/, 'j7'); unlike ($output, qr/seven/, 'j7');
$output = qx{../task rc:filter.rc list project:A priority:H}; $output = qx{../src/task rc:filter.rc list project:A priority:H};
like ($output, qr/one/, 'k1'); like ($output, qr/one/, 'k1');
like ($output, qr/two/, 'k2'); like ($output, qr/two/, 'k2');
unlike ($output, qr/three/, 'k3'); unlike ($output, qr/three/, 'k3');
@ -146,7 +146,7 @@ unlike ($output, qr/five/, 'k5');
unlike ($output, qr/six/, 'k6'); unlike ($output, qr/six/, 'k6');
unlike ($output, qr/seven/, 'k7'); unlike ($output, qr/seven/, 'k7');
$output = qx{../task rc:filter.rc list project:A priority:}; $output = qx{../src/task rc:filter.rc list project:A priority:};
unlike ($output, qr/one/, 'l1'); unlike ($output, qr/one/, 'l1');
unlike ($output, qr/two/, 'l2'); unlike ($output, qr/two/, 'l2');
like ($output, qr/three/, 'l3'); like ($output, qr/three/, 'l3');
@ -155,7 +155,7 @@ unlike ($output, qr/five/, 'l5');
unlike ($output, qr/six/, 'l6'); unlike ($output, qr/six/, 'l6');
unlike ($output, qr/seven/, 'l7'); unlike ($output, qr/seven/, 'l7');
$output = qx{../task rc:filter.rc list project:A foo}; $output = qx{../src/task rc:filter.rc list project:A foo};
like ($output, qr/one/, 'm1'); like ($output, qr/one/, 'm1');
unlike ($output, qr/two/, 'm2'); unlike ($output, qr/two/, 'm2');
unlike ($output, qr/three/, 'm3'); unlike ($output, qr/three/, 'm3');
@ -164,7 +164,7 @@ unlike ($output, qr/five/, 'm5');
unlike ($output, qr/six/, 'm6'); unlike ($output, qr/six/, 'm6');
unlike ($output, qr/seven/, 'm7'); unlike ($output, qr/seven/, 'm7');
$output = qx{../task rc:filter.rc list project:A +tag}; $output = qx{../src/task rc:filter.rc list project:A +tag};
like ($output, qr/one/, 'n1'); like ($output, qr/one/, 'n1');
unlike ($output, qr/two/, 'n2'); unlike ($output, qr/two/, 'n2');
unlike ($output, qr/three/, 'n3'); unlike ($output, qr/three/, 'n3');
@ -173,7 +173,7 @@ unlike ($output, qr/five/, 'n5');
unlike ($output, qr/six/, 'n6'); unlike ($output, qr/six/, 'n6');
unlike ($output, qr/seven/, 'n7'); unlike ($output, qr/seven/, 'n7');
$output = qx{../task rc:filter.rc list project:A priority:H foo}; $output = qx{../src/task rc:filter.rc list project:A priority:H foo};
like ($output, qr/one/, 'o1'); like ($output, qr/one/, 'o1');
unlike ($output, qr/two/, 'o2'); unlike ($output, qr/two/, 'o2');
unlike ($output, qr/three/, 'o3'); unlike ($output, qr/three/, 'o3');
@ -182,7 +182,7 @@ unlike ($output, qr/five/, 'o5');
unlike ($output, qr/six/, 'o6'); unlike ($output, qr/six/, 'o6');
unlike ($output, qr/seven/, 'o7'); unlike ($output, qr/seven/, 'o7');
$output = qx{../task rc:filter.rc list project:A priority:H +tag}; $output = qx{../src/task rc:filter.rc list project:A priority:H +tag};
like ($output, qr/one/, 'p1'); like ($output, qr/one/, 'p1');
unlike ($output, qr/two/, 'p2'); unlike ($output, qr/two/, 'p2');
unlike ($output, qr/three/, 'p3'); unlike ($output, qr/three/, 'p3');
@ -191,7 +191,7 @@ unlike ($output, qr/five/, 'p5');
unlike ($output, qr/six/, 'p6'); unlike ($output, qr/six/, 'p6');
unlike ($output, qr/seven/, 'p7'); unlike ($output, qr/seven/, 'p7');
$output = qx{../task rc:filter.rc list project:A priority:H foo +tag}; $output = qx{../src/task rc:filter.rc list project:A priority:H foo +tag};
like ($output, qr/one/, 'q1'); like ($output, qr/one/, 'q1');
unlike ($output, qr/two/, 'q2'); unlike ($output, qr/two/, 'q2');
unlike ($output, qr/three/, 'q3'); unlike ($output, qr/three/, 'q3');
@ -200,7 +200,7 @@ unlike ($output, qr/five/, 'q5');
unlike ($output, qr/six/, 'q6'); unlike ($output, qr/six/, 'q6');
unlike ($output, qr/seven/, 'q7'); unlike ($output, qr/seven/, 'q7');
$output = qx{../task rc:filter.rc list project:A priority:H foo +tag baz}; $output = qx{../src/task rc:filter.rc list project:A priority:H foo +tag baz};
unlike ($output, qr/one/, 'r1'); unlike ($output, qr/one/, 'r1');
unlike ($output, qr/two/, 'r2'); unlike ($output, qr/two/, 'r2');
unlike ($output, qr/three/, 'r3'); unlike ($output, qr/three/, 'r3');
@ -210,7 +210,7 @@ unlike ($output, qr/six/, 'r6');
unlike ($output, qr/seven/, 'r7'); unlike ($output, qr/seven/, 'r7');
# Regex filters. # Regex filters.
$output = qx{../task rc:filter.rc list rc.regex:on project:[A-Z]}; $output = qx{../src/task rc:filter.rc list rc.regex:on project:[A-Z]};
like ($output, qr/one/, 's1'); like ($output, qr/one/, 's1');
like ($output, qr/two/, 's2'); like ($output, qr/two/, 's2');
like ($output, qr/three/, 's3'); like ($output, qr/three/, 's3');
@ -219,7 +219,7 @@ unlike ($output, qr/five/, 's5');
unlike ($output, qr/six/, 's6'); unlike ($output, qr/six/, 's6');
unlike ($output, qr/seven/, 's7'); unlike ($output, qr/seven/, 's7');
$output = qx{../task rc:filter.rc list rc.regex:on project:.}; $output = qx{../src/task rc:filter.rc list rc.regex:on project:.};
like ($output, qr/one/, 't1'); like ($output, qr/one/, 't1');
like ($output, qr/two/, 't2'); like ($output, qr/two/, 't2');
like ($output, qr/three/, 't3'); like ($output, qr/three/, 't3');
@ -228,7 +228,7 @@ unlike ($output, qr/five/, 't5');
unlike ($output, qr/six/, 't6'); unlike ($output, qr/six/, 't6');
unlike ($output, qr/seven/, 't7'); unlike ($output, qr/seven/, 't7');
$output = qx{../task rc:filter.rc rc.regex:on list fo\{2\}}; $output = qx{../src/task rc:filter.rc rc.regex:on list fo\{2\}};
like ($output, qr/one/, 'u1'); like ($output, qr/one/, 'u1');
unlike ($output, qr/two/, 'u2'); unlike ($output, qr/two/, 'u2');
unlike ($output, qr/three/, 'u3'); unlike ($output, qr/three/, 'u3');
@ -237,7 +237,7 @@ unlike ($output, qr/five/, 'u5');
like ($output, qr/six/, 'u6'); like ($output, qr/six/, 'u6');
like ($output, qr/seven/, 'u7'); like ($output, qr/seven/, 'u7');
$output = qx{../task rc:filter.rc rc.regex:on list f.. b..}; $output = qx{../src/task rc:filter.rc rc.regex:on list f.. b..};
unlike ($output, qr/one/, 'v1'); unlike ($output, qr/one/, 'v1');
unlike ($output, qr/two/, 'v2'); unlike ($output, qr/two/, 'v2');
unlike ($output, qr/three/, 'v3'); unlike ($output, qr/three/, 'v3');
@ -246,7 +246,7 @@ unlike ($output, qr/five/, 'v5');
unlike ($output, qr/six/, 'v6'); unlike ($output, qr/six/, 'v6');
like ($output, qr/seven/, 'v7'); like ($output, qr/seven/, 'v7');
$output = qx{../task rc:filter.rc rc.regex:on list ^s}; $output = qx{../src/task rc:filter.rc rc.regex:on list ^s};
unlike ($output, qr/one/, 'w1'); unlike ($output, qr/one/, 'w1');
unlike ($output, qr/two/, 'w2'); unlike ($output, qr/two/, 'w2');
unlike ($output, qr/three/, 'w3'); unlike ($output, qr/three/, 'w3');
@ -255,7 +255,7 @@ unlike ($output, qr/five/, 'w5');
like ($output, qr/six/, 'w6'); like ($output, qr/six/, 'w6');
like ($output, qr/seven/, 'w7'); like ($output, qr/seven/, 'w7');
$output = qx{../task rc:filter.rc rc.regex:on list ^.i}; $output = qx{../src/task rc:filter.rc rc.regex:on list ^.i};
unlike ($output, qr/one/, 'x1'); unlike ($output, qr/one/, 'x1');
unlike ($output, qr/two/, 'x2'); unlike ($output, qr/two/, 'x2');
unlike ($output, qr/three/, 'x3'); unlike ($output, qr/three/, 'x3');
@ -264,7 +264,7 @@ like ($output, qr/five/, 'x5');
like ($output, qr/six/, 'x6'); like ($output, qr/six/, 'x6');
unlike ($output, qr/seven/, 'x7'); unlike ($output, qr/seven/, 'x7');
$output = qx{../task rc:filter.rc rc.regex:on list "two|five"}; $output = qx{../src/task rc:filter.rc rc.regex:on list "two|five"};
unlike ($output, qr/one/, 'y1'); unlike ($output, qr/one/, 'y1');
like ($output, qr/two/, 'y2'); like ($output, qr/two/, 'y2');
unlike ($output, qr/three/, 'y3'); unlike ($output, qr/three/, 'y3');

18
test/fontunderline.t
View file

@ -54,22 +54,22 @@ if (open my $fh, '>', 'font.rc')
# #
# * When isatty (fileno (stdout)) is false, color is automatically disabled. # * When isatty (fileno (stdout)) is false, color is automatically disabled.
qx{../task rc:font.rc add foo}; qx{../src/task rc:font.rc add foo};
my $output = qx{../task 1 info rc:font.rc rc.color:off rc._forcecolor:off rc.fontunderline:off}; my $output = qx{../src/task 1 info rc:font.rc rc.color:off rc._forcecolor:off rc.fontunderline:off};
like ($output, qr/--------/, '0,0,0 -> dashes'); like ($output, qr/--------/, '0,0,0 -> dashes');
$output = qx{../task 1 info rc:font.rc rc.color:off rc._forcecolor:off rc.fontunderline:on}; $output = qx{../src/task 1 info rc:font.rc rc.color:off rc._forcecolor:off rc.fontunderline:on};
like ($output, qr/--------/, '0,0,1 -> dashes'); like ($output, qr/--------/, '0,0,1 -> dashes');
$output = qx{../task 1 info rc:font.rc rc.color:off rc._forcecolor:on rc.fontunderline:off}; $output = qx{../src/task 1 info rc:font.rc rc.color:off rc._forcecolor:on rc.fontunderline:off};
like ($output, qr/--------/, '0,1,0 -> dashes'); like ($output, qr/--------/, '0,1,0 -> dashes');
$output = qx{../task 1 info rc:font.rc rc.color:off rc._forcecolor:on rc.fontunderline:on}; $output = qx{../src/task 1 info rc:font.rc rc.color:off rc._forcecolor:on rc.fontunderline:on};
unlike ($output, qr/--------/, '0,1,1 -> underline'); unlike ($output, qr/--------/, '0,1,1 -> underline');
$output = qx{../task 1 info rc:font.rc rc.color:on rc._forcecolor:off rc.fontunderline:off}; $output = qx{../src/task 1 info rc:font.rc rc.color:on rc._forcecolor:off rc.fontunderline:off};
like ($output, qr/--------/, '1,0,0 -> dashes'); like ($output, qr/--------/, '1,0,0 -> dashes');
$output = qx{../task 1 info rc:font.rc rc.color:on rc._forcecolor:off rc.fontunderline:on}; $output = qx{../src/task 1 info rc:font.rc rc.color:on rc._forcecolor:off rc.fontunderline:on};
like ($output, qr/--------/, '1,0,1 -> dashes'); like ($output, qr/--------/, '1,0,1 -> dashes');
$output = qx{../task 1 info rc:font.rc rc.color:on rc._forcecolor:on rc.fontunderline:off}; $output = qx{../src/task 1 info rc:font.rc rc.color:on rc._forcecolor:on rc.fontunderline:off};
like ($output, qr/--------/, '1,1,0 -> dashes'); like ($output, qr/--------/, '1,1,0 -> dashes');
$output = qx{../task 1 info rc:font.rc rc.color:on rc._forcecolor:on rc.fontunderline:on}; $output = qx{../src/task 1 info rc:font.rc rc.color:on rc._forcecolor:on rc.fontunderline:on};
unlike ($output, qr/--------/, '1,1,1 -> underline'); unlike ($output, qr/--------/, '1,1,1 -> underline');
# Cleanup. # Cleanup.

2
test/history.annual.t
View file

@ -62,7 +62,7 @@ EOF
ok (-r 'pending.data', 'Created pending.data'); ok (-r 'pending.data', 'Created pending.data');
} }
my $output = qx{../task rc:time.rc history.annual}; my $output = qx{../src/task rc:time.rc history.annual};
like ($output, qr/7\s+1\s+0\s+6/, 'history.annual - last year'); like ($output, qr/7\s+1\s+0\s+6/, 'history.annual - last year');
like ($output, qr/2\s+3\s+3\s+-4/, 'history.annual - this year'); like ($output, qr/2\s+3\s+3\s+-4/, 'history.annual - this year');
like ($output, qr/4\s+2\s+1\s+1/, 'history.annual - average'); like ($output, qr/4\s+2\s+1\s+1/, 'history.annual - average');

2
test/history.monthly.t
View file

@ -62,7 +62,7 @@ EOF
ok (-r 'pending.data', 'Created pending.data'); ok (-r 'pending.data', 'Created pending.data');
} }
my $output = qx{../task rc:time.rc history.monthly}; my $output = qx{../src/task rc:time.rc history.monthly};
like ($output, qr/7\s+1\s+0\s+6/, 'history.monthly - last month'); like ($output, qr/7\s+1\s+0\s+6/, 'history.monthly - last month');
like ($output, qr/2\s+3\s+3\s+-4/, 'history.monthly - this month'); like ($output, qr/2\s+3\s+3\s+-4/, 'history.monthly - this month');
like ($output, qr/4\s+2\s+1\s+1/, 'history.monthly - average'); like ($output, qr/4\s+2\s+1\s+1/, 'history.monthly - average');

6
test/hook.api.task_debug.t
View file

@ -48,12 +48,12 @@ if (open my $fh, '>', 'hook')
ok (-r 'hook', 'Created hook'); ok (-r 'hook', 'Created hook');
} }
my $output = qx{../task rc:hook.rc version}; my $output = qx{../src/task rc:hook.rc version};
if ($output =~ /PUC-Rio/) if ($output =~ /PUC-Rio/)
{ {
# Test the hook. # Test the hook.
qx{../task rc:hook.rc add foo}; qx{../src/task rc:hook.rc add foo};
$output = qx{../task rc:hook.rc info 1}; $output = qx{../src/task rc:hook.rc info 1};
like ($output, qr/DEBUG MESSAGE/ms, 'Hook called task_debug_message'); like ($output, qr/DEBUG MESSAGE/ms, 'Hook called task_debug_message');
} }
else else

4
test/hook.api.task_exit.t
View file

@ -47,11 +47,11 @@ if (open my $fh, '>', 'hook')
ok (-r 'hook', 'Created hook'); ok (-r 'hook', 'Created hook');
} }
my $output = qx{../task rc:hook.rc version}; my $output = qx{../src/task rc:hook.rc version};
if ($output =~ /PUC-Rio/) if ($output =~ /PUC-Rio/)
{ {
# Test the hook. # Test the hook.
$output = qx{../task rc:hook.rc _version}; $output = qx{../src/task rc:hook.rc _version};
like ($output, qr/^Exiting.$/ms, 'Hook called task_exit'); like ($output, qr/^Exiting.$/ms, 'Hook called task_exit');
} }
else else

4
test/hook.api.task_feature.t
View file

@ -55,11 +55,11 @@ if (open my $fh, '>', 'hook')
ok (-r 'hook', 'Created hook'); ok (-r 'hook', 'Created hook');
} }
my $output = qx{../task rc:hook.rc version}; my $output = qx{../src/task rc:hook.rc version};
if ($output =~ /PUC-Rio/) if ($output =~ /PUC-Rio/)
{ {
# Test the hook. # Test the hook.
$output = qx{../task rc:hook.rc _version}; $output = qx{../src/task rc:hook.rc _version};
like ($output, qr/^<<lua>>$/ms, 'Hook called task_feature (lua)'); like ($output, qr/^<<lua>>$/ms, 'Hook called task_feature (lua)');
unlike ($output, qr/^<<foo>>$/ms, 'Hook called task_feature (foo)'); unlike ($output, qr/^<<foo>>$/ms, 'Hook called task_feature (foo)');
} }

6
test/hook.api.task_footnote.t
View file

@ -47,12 +47,12 @@ if (open my $fh, '>', 'hook')
ok (-r 'hook', 'Created hook'); ok (-r 'hook', 'Created hook');
} }
my $output = qx{../task rc:hook.rc version}; my $output = qx{../src/task rc:hook.rc version};
if ($output =~ /PUC-Rio/) if ($output =~ /PUC-Rio/)
{ {
# Test the hook. # Test the hook.
qx{../task rc:hook.rc add foo}; qx{../src/task rc:hook.rc add foo};
$output = qx{../task rc:hook.rc info 1}; $output = qx{../src/task rc:hook.rc info 1};
like ($output, qr/FOOTNOTE MESSAGE/ms, 'Hook called task_footnote_message'); like ($output, qr/FOOTNOTE MESSAGE/ms, 'Hook called task_footnote_message');
} }
else else

4
test/hook.api.task_get_config.t
View file

@ -48,11 +48,11 @@ if (open my $fh, '>', 'hook')
ok (-r 'hook', 'Created hook'); ok (-r 'hook', 'Created hook');
} }
my $output = qx{../task rc:hook.rc version}; my $output = qx{../src/task rc:hook.rc version};
if ($output =~ /PUC-Rio/) if ($output =~ /PUC-Rio/)
{ {
# Test the hook. # Test the hook.
$output = qx{../task rc:hook.rc _version}; $output = qx{../src/task rc:hook.rc _version};
like ($output, qr/^NAG-STRING$/ms, 'Hook called task_get_config'); like ($output, qr/^NAG-STRING$/ms, 'Hook called task_get_config');
} }
else else

6
test/hook.api.task_get_description.t
View file

@ -47,12 +47,12 @@ if (open my $fh, '>', 'hook')
ok (-r 'hook', 'Created hook'); ok (-r 'hook', 'Created hook');
} }
my $output = qx{../task rc:hook.rc version}; my $output = qx{../src/task rc:hook.rc version};
if ($output =~ /PUC-Rio/) if ($output =~ /PUC-Rio/)
{ {
# Test the hook. # Test the hook.
qx{../task rc:hook.rc add foo}; qx{../src/task rc:hook.rc add foo};
$output = qx{../task rc:hook.rc info 1}; $output = qx{../src/task rc:hook.rc info 1};
like ($output, qr/^<<foo>>$/ms, 'Hook called task_get_description'); like ($output, qr/^<<foo>>$/ms, 'Hook called task_get_description');
} }
else else

6
test/hook.api.task_get_due.t
View file

@ -50,12 +50,12 @@ if (open my $fh, '>', 'hook')
ok (-r 'hook', 'Created hook'); ok (-r 'hook', 'Created hook');
} }
my $output = qx{../task rc:hook.rc version}; my $output = qx{../src/task rc:hook.rc version};
if ($output =~ /PUC-Rio/) if ($output =~ /PUC-Rio/)
{ {
# Test the hook. # Test the hook.
qx{../task rc:hook.rc add foo due:eom}; qx{../src/task rc:hook.rc add foo due:eom};
$output = qx{../task rc:hook.rc info 1}; $output = qx{../src/task rc:hook.rc info 1};
like ($output, qr/^<<\d+>>$/ms, 'Hook called task_get_due'); like ($output, qr/^<<\d+>>$/ms, 'Hook called task_get_due');
} }
else else

8
test/hook.api.task_get_end.t
View file

@ -50,13 +50,13 @@ if (open my $fh, '>', 'hook')
ok (-r 'hook', 'Created hook'); ok (-r 'hook', 'Created hook');
} }
my $output = qx{../task rc:hook.rc version}; my $output = qx{../src/task rc:hook.rc version};
if ($output =~ /PUC-Rio/) if ($output =~ /PUC-Rio/)
{ {
# Test the hook. # Test the hook.
qx{../task rc:hook.rc add foo}; qx{../src/task rc:hook.rc add foo};
qx{../task rc:hook.rc do 1}; qx{../src/task rc:hook.rc do 1};
$output = qx{../task rc:hook.rc info 1}; $output = qx{../src/task rc:hook.rc info 1};
like ($output, qr/^<<\d+>>$/ms, 'Hook called task_get_end'); like ($output, qr/^<<\d+>>$/ms, 'Hook called task_get_end');
} }
else else

6
test/hook.api.task_get_entry.t
View file

@ -50,12 +50,12 @@ if (open my $fh, '>', 'hook')
ok (-r 'hook', 'Created hook'); ok (-r 'hook', 'Created hook');
} }
my $output = qx{../task rc:hook.rc version}; my $output = qx{../src/task rc:hook.rc version};
if ($output =~ /PUC-Rio/) if ($output =~ /PUC-Rio/)
{ {
# Test the hook. # Test the hook.
qx{../task rc:hook.rc add foo}; qx{../src/task rc:hook.rc add foo};
$output = qx{../task rc:hook.rc info 1}; $output = qx{../src/task rc:hook.rc info 1};
like ($output, qr/^<<\d+>>$/ms, 'Hook called task_get_entry'); like ($output, qr/^<<\d+>>$/ms, 'Hook called task_get_entry');
} }
else else

6
test/hook.api.task_get_priority.t
View file

@ -47,12 +47,12 @@ if (open my $fh, '>', 'hook')
ok (-r 'hook', 'Created hook'); ok (-r 'hook', 'Created hook');
} }
my $output = qx{../task rc:hook.rc version}; my $output = qx{../src/task rc:hook.rc version};
if ($output =~ /PUC-Rio/) if ($output =~ /PUC-Rio/)
{ {
# Test the hook. # Test the hook.
qx{../task rc:hook.rc add foo priority:M}; qx{../src/task rc:hook.rc add foo priority:M};
$output = qx{../task rc:hook.rc info 1}; $output = qx{../src/task rc:hook.rc info 1};
like ($output, qr/^<<M>>$/ms, 'Hook called task_get_priority'); like ($output, qr/^<<M>>$/ms, 'Hook called task_get_priority');
} }
else else

6
test/hook.api.task_get_project.t
View file

@ -47,12 +47,12 @@ if (open my $fh, '>', 'hook')
ok (-r 'hook', 'Created hook'); ok (-r 'hook', 'Created hook');
} }
my $output = qx{../task rc:hook.rc version}; my $output = qx{../src/task rc:hook.rc version};
if ($output =~ /PUC-Rio/) if ($output =~ /PUC-Rio/)
{ {
# Test the hook. # Test the hook.
qx{../task rc:hook.rc add foo pro:PPP}; qx{../src/task rc:hook.rc add foo pro:PPP};
$output = qx{../task rc:hook.rc info 1}; $output = qx{../src/task rc:hook.rc info 1};
like ($output, qr/^<<PPP>>$/ms, 'Hook called task_get_project'); like ($output, qr/^<<PPP>>$/ms, 'Hook called task_get_project');
} }
else else

8
test/hook.api.task_get_start.t
View file

@ -50,13 +50,13 @@ if (open my $fh, '>', 'hook')
ok (-r 'hook', 'Created hook'); ok (-r 'hook', 'Created hook');
} }
my $output = qx{../task rc:hook.rc version}; my $output = qx{../src/task rc:hook.rc version};
if ($output =~ /PUC-Rio/) if ($output =~ /PUC-Rio/)
{ {
# Test the hook. # Test the hook.
qx{../task rc:hook.rc add foo}; qx{../src/task rc:hook.rc add foo};
qx{../task rc:hook.rc start 1}; qx{../src/task rc:hook.rc start 1};
$output = qx{../task rc:hook.rc info 1}; $output = qx{../src/task rc:hook.rc info 1};
like ($output, qr/^<<\d+>>$/ms, 'Hook called task_get_start'); like ($output, qr/^<<\d+>>$/ms, 'Hook called task_get_start');
} }
else else

Some files were not shown because too many files have changed in this diff Show more