From 939bb6b7a6415860af26f559a9e7c97468b67fce Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentfredric@gmail.com>
Date: Tue, 7 Apr 2015 03:25:11 +1200
Subject: [PATCH] t/maniadd.t: Add a test for bug #13

---
 t/maniadd.t | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/t/maniadd.t b/t/maniadd.t
index c20a259..c38d68f 100644
--- a/t/maniadd.t
+++ b/t/maniadd.t
@@ -5,7 +5,7 @@ use lib 't/lib';
 use ManifestTest qw( catch_warning canon_warning spew runtemp );
 use ExtUtils::Manifest qw( maniadd );
 use Config;
-use Test::More tests => 5;
+use Test::More tests => 7;
 
 my $LAST_ERROR;
 
@@ -51,3 +51,25 @@ SKIP: {
   }
 
 };
+
+runtemp "maniadd.unneeded_readonly_notrailingeol" => sub {
+  note "Ensuring maniadd does not arbitrarily make a file writeable if it lacks an EOL";
+  local $TODO = "Broken, GH #13";
+  spew( "MANIFEST", "foo #bar" );
+SKIP: {
+    chmod( 0400, "MANIFEST" );
+
+    if ( -w "MANIFEST" or $Config{osname} eq "cygwin" ) {
+      skip "Cant make manifest readonly", 5;
+    }
+    ok( !fatal { maniadd( { "foo" => "bar" } ) }, "maniadd() wont die adding an existing key" )
+      or diag $LAST_ERROR;
+
+    ok( !-w "MANIFEST", "MANIFEST is still readonly" );
+
+    chmod( 0600, "MANIFEST" );
+
+  }
+
+};
+