#! /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 => 6; # Create the rc file. if (open my $fh, '>', 'bug.rc') { print $fh "data.location=.\n", "confirmation=no\n"; close $fh; ok (-r 'bug.rc', 'Created bug.rc'); } # Unreported Bug c01: Entering two recurring tasks back to back fails to increment # the ID returned to the user # # First noticed in 1.9.4 commit 2d50d1c # Setup: Add a recurring task qx{../src/task rc:bug.rc add First recurring task due:tomorrow rec:daily}; # Result: Ensure the second recurring task has an ID of 2 my $output = qx{../src/task rc:bug.rc add Second recurring task due:tomorrow rec:daily}; like ($output, qr/Created task 2\./ms, 'Recurring task assigned correct ID.'); # 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 'bug.rc'; ok (!-r 'bug.rc', 'Removed bug.rc'); exit 0;