t/maniadd.t: auto_add_newlines test from Manifest.t

Author: kentfredric

t/Manifest.t

@@ -14,7 +14,7 @@ chdir 't';
 
 use strict;
 
-use Test::More tests => 64;
+use Test::More tests => 63;
 use Cwd;
 
 use File::Spec;
@@ -300,19 +300,6 @@ my @funky_keys = qw(space space_quote space_backslash space_quote_backslash);
     $Files{"$_.bak"}++ for ('MANIFEST', "MANIFEST${extsep}SKIP");
 }
 
-add_file('MANIFEST'   => 'Makefile.PL');
-maniadd({ foo  => 'bar' });
-$files = maniread;
-# VMS downcases the MANIFEST.  We normalize it here to match.
-%$files = map { (lc $_ => $files->{$_}) } keys %$files;
-my %expect = ( 'makefile.pl' => '',
-               'foo'    => 'bar'
-             );
-is_deeply( $files, \%expect, 'maniadd() vs MANIFEST without trailing newline');
-
-#add_file('MANIFEST'   => 'Makefile.PL');
-#maniadd({ foo => 'bar' });
-
 END {
 	note "remove all files";
 	for my $file ( sort keys %Files ) {

t/maniadd.t

@@ -3,9 +3,9 @@ use warnings;
 
 use lib 't/lib';
 use ManifestTest qw( catch_warning canon_warning spew runtemp );
-use ExtUtils::Manifest qw( maniadd );
+use ExtUtils::Manifest qw( maniadd maniread );
 use Config;
-use Test::More tests => 7;
+use Test::More tests => 8;
 
 my $LAST_ERROR;
 
@@ -73,3 +73,18 @@ SKIP: {
 
 };
 
+runtemp "maniadd.auto_add_newlines" => sub {
+  note "Ensuring lack of a trailing source newline does not break maniadd";
+  spew( "MANIFEST", "initial_content" );
+  maniadd( { "newfile", "newcomment" } );
+
+  my $read = maniread;
+
+  # VMS downcases the MANIFEST.  We normalize it here to match.
+  my (%got) = map { lc $_ => $read->{$_} } keys %{$read};
+  my (%expected) = (
+    "initial_content" => "",
+    "newfile"         => "newcomment"
+  );
+  is_deeply( \%got, \%expected, "maniadd added new entries to MANIFEST with newline included" );
+};