[Module-build-checkins] Module-Build/t tilde.t,1.5,1.6

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

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

Modified Files:
	tilde.t 
Log Message:
Test that the API does not expand tildes.



Index: tilde.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/tilde.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- tilde.t	23 Jun 2005 02:35:33 -0000	1.5
+++ tilde.t	23 Jun 2005 02:54:18 -0000	1.6
@@ -5,7 +5,7 @@
 use lib 't/lib';
 use strict;
 
-use Test::More tests => 9;
+use Test::More tests => 10;
 
 use TieOut;
 use Cwd;
@@ -63,6 +63,6 @@
     $mb = run_sample( ['--destdir=~'] );
     is( $mb->destdir,           $ENV{HOME} );
 
+    $mb->install_base('~');
+    is( $mb->install_base,      '~', 'API does not expand tildes' );
 }
-
-