[Module-build-checkins] Module-Build/t tilde.t,NONE,1.1

[Michael G S. <sc...@us...>]

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

Added Files:
	tilde.t 
Log Message:
Simple test to see if ~ expansion is working.


--- NEW FILE: tilde.t ---
#!/usr/bin/perl -w

# Test ~ expansion from command line arguments.

use strict;

use Test::More tests => 1;

use Cwd;
use File::Spec::Functions qw(catdir);
use Module::Build;

my $cwd = cwd;

{
    local $ENV{HOME} = 'home';

    chdir 'Sample';
    Module::Build->run_perl_script('Build.PL', [], ['--install_base=~']);

    my $mb = Module::Build->current;

    like( $mb->install_destination('lib'), qr/^$ENV{HOME}/ );

    chdir $cwd;
}