#! /usr/bin/perl ################################################################################ ## taskwarrior - a command line task list manager. ## ## Copyright 2006 - 2011, Paul Beckingham, Federico Hernandez. ## All rights reserved. ## ## This program is free software; you can redistribute it and/or modify it under ## the terms of the GNU General Public License as published by the Free Software ## Foundation; either version 2 of the License, or (at your option) any later ## version. ## ## This program is distributed in the hope that it will be useful, but WITHOUT ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS ## FOR A PARTICULAR PURPOSE. See the GNU General Public License for more ## details. ## ## You should have received a copy of the GNU General Public License along with ## this program; if not, write to the ## ## Free Software Foundation, Inc., ## 51 Franklin Street, Fifth Floor, ## Boston, MA ## 02110-1301 ## USA ## ################################################################################ use strict; use warnings; use Test::More tests => 8; # Create the rc file. if (open my $fh, '>', 'bug.rc') { print $fh "data.location=.\n", "confirmation=no\n", "dateformat=a b D Y\n"; close $fh; ok (-r 'bug.rc', 'Created bug.rc'); } # Bug 628: task wait: with non-standard dateformat bug # Setup: Add a task qx{../src/task rc:bug.rc add wait:\\"Wed Jan 01 2020\\" A buggy task}; # Result: Immediately delete the created task my $output = qx{../src/task rc:bug.rc waiting}; like ($output, qr/1\/1\/2020/ms, 'a b D Y dateformat correctly parsed.'); # Cleanup. unlink 'pending.data'; ok (!-r 'pending.data', 'Removed pending.data'); unlink 'completed.data'; ok (!-r 'completed.data', 'Removed completed.data'); unlink 'undo.data'; ok (!-r 'undo.data', 'Removed undo.data'); unlink 'backlog.data'; ok (!-r 'backlog.data', 'Removed backlog.data'); unlink 'synch.key'; ok (!-r 'synch.key', 'Removed synch.key'); unlink 'bug.rc'; ok (!-r 'bug.rc', 'Removed bug.rc');