[Module-build-checkins] Module-Build/t compat.t,1.17.2.3,1.17.2.4

[Randy W. S. <si...@us...>]

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

Modified Files:
      Tag: release-0_26_branch
	compat.t 
Log Message:
Use perl's glob() function to implement tilde expansion since it works better across platforms, and update related tests. [suggested by Yitzchak Scott-Thoennes]

Index: compat.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v
retrieving revision 1.17.2.3
retrieving revision 1.17.2.4
diff -C2 -d -r1.17.2.3 -r1.17.2.4
*** compat.t	7 Jan 2005 02:17:41 -0000	1.17.2.3
--- compat.t	7 Jan 2005 08:14:57 -0000	1.17.2.4
***************
*** 147,152 ****
  }
  
! {
!   # Make sure tilde-expansion works
    Module::Build::Compat->create_makefile_pl('passthrough', $build);
  
--- 147,155 ----
  }
  
! { # Make sure tilde-expansion works
! 
!   # C<glob> on MSWin32 uses $ENV{HOME} if defined to do tilde-expansion
!   local $ENV{HOME} = 'C:/' if $^O =~ /MSWin/ && !exists( $ENV{HOME} );
! 
    Module::Build::Compat->create_makefile_pl('passthrough', $build);
  
***************
*** 154,159 ****
    my $b2 = Module::Build->current;
    ok $b2->install_base;
!   skip $^O =~ /MSWin/ ? 'Windows does not support tilde-expansion' : '',
!        $b2->install_base !~ /^~/, 1, "Tildes should be expanded";
    
    $build->do_system(@make, 'realclean');
--- 157,161 ----
    my $b2 = Module::Build->current;
    ok $b2->install_base;
!   ok $b2->install_base !~ /^~/, 1, "Tildes should be expanded";
    
    $build->do_system(@make, 'realclean');