[Module-build-checkins] Module-Build/t install.t,1.12.2.1,1.12.2.2

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8763/t

Modified Files:
      Tag: release-0_26_branch
	install.t 
Log Message:
Write a .packlist file

Index: install.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/install.t,v
retrieving revision 1.12.2.1
retrieving revision 1.12.2.2
diff -u -d -r1.12.2.1 -r1.12.2.2
--- install.t	7 Jan 2005 02:17:42 -0000	1.12.2.1
+++ install.t	28 Feb 2005 22:41:54 -0000	1.12.2.2
@@ -1,7 +1,7 @@
 use strict;
 
 use Test; 
-BEGIN { plan tests => 28 }
+BEGIN { plan tests => 29 }
 use Module::Build;
 use File::Spec;
 use File::Path;
@@ -39,6 +39,11 @@
   local @INC = (@INC, File::Spec->catdir($destdir, $libdir));
   eval {require Sample};
   ok $@, '';
+
+  # Make sure there's a packlist installed
+  my $archdir = $build->install_destination('arch');
+  my $packlist = File::Spec->catdir($destdir, $archdir, 'auto', 'Sample', '.packlist');
+  ok -e $packlist, 1, "$packlist should be written";
 }
 
 {