The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test::More;
use ShipIt::Step::Readme;
use ShipIt::Util qw(slurp);

################################################################################
# adding Install instructions
my $package_content = q~
=head1 NAME

ShipIt::Step::Readme

=head1 SYNOPSIS
~;

my $new_package = ShipIt::Step::Readme->_add_install_instructions($package_content);
is  $new_package,
    q~
=head1 NAME

ShipIt::Step::Readme

=begin readme

=head1 INSTALLATION

To install this module, run the following commands:

    perl Build.PL
    ./Build
    ./Build test
    ./Build install

=end readme

=head1 SYNOPSIS
~,
    'Adding Install Instructions after NAME';

################################################################################
# adding Install instructions after VERSION
$package_content = q~
=head1 NAME

ShipIt::Step::Readme

=head1 VERSION

Version 1.0

=head1 SYNOPSIS
~;

$new_package = ShipIt::Step::Readme->_add_install_instructions($package_content);
is  $new_package,
    q~
=head1 NAME

ShipIt::Step::Readme

=head1 VERSION

Version 1.0

=begin readme

=head1 INSTALLATION

To install this module, run the following commands:

    perl Build.PL
    ./Build
    ./Build test
    ./Build install

=end readme

=head1 SYNOPSIS
~,
    'Adding Install Instructions after VERSION';

################################################################################
# don't overwrite existing Install instructions
# => can't be tested here, it is earlier in the code
#$package_content = q~
#=head1 NAME
#
#ShipIt::Step::Readme
#
#=head1 INSTALLATION
#
#To install this module, run the following commands:
#
#    perl Build.PL
#    ./Build
#    ./Build test
#    ./Build install
#    dance around your computer 3 times
#
#=head1 SYNOPSIS
#~;
#
#$new_package = ShipIt::Step::Readme->_add_install_instructions($package_content);
#is  $new_package,
#    $package_content,
#    'Existing Install Instructions are not overwritten';


done_testing;