[Module-build-checkins] Module-Build/t versions.t,1.4,1.5

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

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

Modified Files:
	versions.t 
Log Message:
use Test::More

Index: versions.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/versions.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- versions.t	28 Jun 2005 03:58:40 -0000	1.4
+++ versions.t	28 Jun 2005 04:02:44 -0000	1.5
@@ -5,15 +5,17 @@
 
 use Test::More tests => 2;
 
-use Cwd ();
-my $cwd = Cwd::cwd;
+use DistGen;
+my $dist = DistGen->new;
+$dist->regen;
 
 #########################
 
 use Module::Build;
 use File::Spec;
 
-my $file = File::Spec->catfile('t', 'Sample', 'lib', 'Sample.pm');
+my @mod = split( /::/, $dist->name );
+my $file = File::Spec->catfile( $dist->dirname, 'lib', @mod ) . '.pm';
 is( Module::Build->version_from_file( $file ), '0.01', 'version_from_file' );
 
 ok( Module::Build->compare_versions( '1.01_01', '>', '1.01' ), 'compare: 1.0_01 > 1.0' );