[Module-build-checkins] Module-Build/t compat.t,1.17,1.17.2.1

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

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

Modified Files:
      Tag: release-0_26_branch
	compat.t 
Log Message:
Integrate from mainline

Index: compat.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v
retrieving revision 1.17
retrieving revision 1.17.2.1
diff -C2 -d -r1.17 -r1.17.2.1
*** compat.t	13 Jul 2004 03:56:56 -0000	1.17
--- compat.t	29 Dec 2004 02:54:36 -0000	1.17.2.1
***************
*** 21,25 ****
  my @makefile_types = qw(small passthrough traditional);
  my $tests_per_type = 10;
! plan tests => 30 + @makefile_types*$tests_per_type;
  ok(1);  # Loaded
  
--- 21,25 ----
  my @makefile_types = qw(small passthrough traditional);
  my $tests_per_type = 10;
! plan tests => 32 + @makefile_types*$tests_per_type;
  ok(1);  # Loaded
  
***************
*** 145,148 ****
--- 145,161 ----
  }
  
+ {
+   # Make sure tilde-expansion works
+   Module::Build::Compat->create_makefile_pl('passthrough', $build);
+ 
+   $build->run_perl_script('Makefile.PL', [], ['INSTALL_BASE=~/foo']);
+   my $b2 = Module::Build->current;
+   ok $b2->install_base;
+   ok $b2->install_base !~ /^~/, 1, "Tildes should be expanded";
+   
+   $build->do_system(@make, 'realclean');
+   1 while unlink 'Makefile.PL';
+ }
+ 
  #########################################################