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' );
|
