more build testing and fixes

bin/btiny

@@ -1,3 +1,4 @@
+#!perl
 use 5.006;
 use strict;
 use warnings;

lib/Acme/Module/Build/Tiny.pm

@@ -57,7 +57,9 @@ sub build {
     (map {$_=>"blib/$_"} _files('lib')),
     (map {;"bin/$_"=>"blib/script/$_"} map {s{^bin/}{}; $_} _files('bin')),
   };
-  ExtUtils::Install::pm_to_blib($map, 'blib/lib/auto') || 1;
+  ExtUtils::Install::pm_to_blib($map, 'blib/lib/auto');
+  ExtUtils::MM->fixin($_), chmod(0555, $_) for _files('blib/script');
+  return 1;
 }
 
 sub test {

t/btiny.t

@@ -1,3 +1,4 @@
+#!perl
 use strict;
 use warnings;
 use File::pushd 1.00 qw(tempd);

t/simple.t

@@ -7,7 +7,7 @@ use Test::More 0.86;
 use lib 't/lib';
 use DistGen qw/undent/;
 
-plan tests => 9;
+plan tests => 17;
 
 #--------------------------------------------------------------------------#
 # fixtures
@@ -16,13 +16,17 @@ plan tests => 9;
 my $dist = DistGen->new(name => 'Foo::Bar');
 $dist->chdir_in;
 $dist->add_file('bin/simple', undent(<<"    ---"));
-    use Simple;
+    #!perl
+    use Foo::Bar;
     print Simple->VERSION . "\n";
     ---
 $dist->regen;
 
 my ($guts, $ec);
 
+sub _mod2pm   { (my $mod = shift) =~ s{::}{/}g; return "$mod.pm" }
+sub _path2mod { (my $pm  = shift) =~ s{/}{::}g; return substr $pm, 5, -3 }
+sub _mod2dist { (my $mod = shift) =~ s{::}{-}g; return $mod; }
 sub _slurp { do { local (@ARGV,$/)=$_[0]; <> } }
 
 #--------------------------------------------------------------------------#
@@ -50,6 +54,23 @@ sub _slurp { do { local (@ARGV,$/)=$_[0]; <> } }
   ok( -d 'blib',        "created blib" );
   ok( -d 'blib/lib',    "created blib/lib" );
   ok( -d 'blib/script', "created blib/script" );
+
+  # check pm
+  my $pmfile = _mod2pm($dist->name);
+  ok( -f 'blib/lib/' . $pmfile, "$dist->{name} copied to blib" );
+  is( _slurp("lib/$pmfile"), _slurp("blib/lib/$pmfile"), "pm contents are correct" );
+  ok( ! -w "blib/lib/$pmfile", "pm file in blib is readonly" );
+
+  # check bin
+  ok( -f 'blib/script/simple', "bin/simple copied to blib" );
+  like( _slurp("blib/script/simple"), '/' .quotemeta(_slurp("blib/script/simple")) . "/",
+    "blib/script/simple contents are correct" );
+  ok( ! -w "blib/script/simple", "blib/script/simple is readonly" );
+  ok( -x "blib/script/simple", "blib/script/simple is executable" );
+  open my $fh, "<", "blib/script/simple";
+  my $line = <$fh>;
+  like( $line, qr/\A#!\Q$^X\E/, "blib/script/simple has shebang line with \$^X" );
+
 }