[Module-build-checkins] Module-Build/t compat.t,1.18,1.19

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

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

Modified Files:
	compat.t 
Log Message:
Do tilde-expansion on args to Makefile.PL

Index: compat.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** compat.t	28 Nov 2004 02:30:13 -0000	1.18
--- compat.t	28 Dec 2004 05:13:50 -0000	1.19
***************
*** 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,160 ----
  }
  
+ {
+   # 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';
+ }
  #########################################################