Fix range of changes printed in deploy debug output

The debug output of deploy (added with commit 06daffc) starts with
the currently deployed change or the last planned change if nothing
is deployed yet.  Fix this by starting with the first change after
the current plan position.

Changes

@@ -14,6 +14,9 @@ Revision history for Perl extension App::Sqitch
      - Fixed the output of the list of changes to be deployed or reverted to
        actually require `--verbose` twice, as described in the v1.4.0 changes,
        and not just once. Thanks to Erik Wienhold for the PR (#785)!
+     - Removed the duplicate change name from the output of the list of
+       changes to be deployed or reverted with `-VV`. Thanks to Erik Wienhold
+       for the PR (#787)!
 
 1.4.0 2023-08-01T23:37:30Z
      - Fixed Snowflake warehouse and role setup to properly quote identifiers

lib/App/Sqitch/Engine.pm

@@ -270,7 +270,7 @@ sub deploy {
     );
 
     $sqitch->debug(__ "Will deploy the following changes:");
-    foreach my $will_deploy_position ($plan->position .. $to_index) {
+    foreach my $will_deploy_position (($plan->position + 1) .. $to_index) {
         $sqitch->debug($plan->change_at($will_deploy_position)->format_name_with_tags);
     }
 

t/engine.t

@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use 5.010;
 use utf8;
-use Test::More tests => 780;
+use Test::More tests => 781;
 # use Test::More 'no_plan';
 use App::Sqitch;
 use App::Sqitch::Plan;
@@ -1169,6 +1169,7 @@ is_deeply +MockOutput->get_info, [
 ], 'Should have emitted deploy announcement and successes';
 
 # Make sure we can deploy everything by change.
+MockOutput->clear;
 $latest_change_id = undef;
 $plan->reset;
 $plan->add( name => 'lolz', note => 'ha ha' );
@@ -1208,6 +1209,15 @@ is_deeply +MockOutput->get_info_literal, [
     ['  + lolz ..', '.........', ' '],
 ], 'Should have seen the output of the deploy to the end';
 
+is_deeply +MockOutput->get_debug, [
+    [__ 'Will deploy the following changes:' ],
+    ['roles'],
+    ['users @alpha'],
+    ['widgets @beta'],
+    ['lolz'],
+], 'Debug output should show what will be deployed';
+
+
 # If we deploy again, it should be up-to-date.
 $latest_change_id = $changes[-1]->id;
 ok $engine->deploy, 'Should return success for deploy to up-to-date DB';