Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9418/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.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- versions.t 1 Aug 2003 03:28:13 -0000 1.3
+++ versions.t 28 Jun 2005 03:58:40 -0000 1.4
@@ -1,13 +1,19 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
+use lib 't/lib';
use strict;
-use Test;
-BEGIN { plan tests => 2 }
+
+use Test::More tests => 2;
+
+use Cwd ();
+my $cwd = Cwd::cwd;
+
+#########################
use Module::Build;
use File::Spec;
my $file = File::Spec->catfile('t', 'Sample', 'lib', 'Sample.pm');
-ok( Module::Build->version_from_file( $file ), '0.01', 'version_from_file' );
+is( Module::Build->version_from_file( $file ), '0.01', 'version_from_file' );
-ok( Module::Build->compare_versions( '1.01_01', '>', '1.01' ), 1, 'compare: 1.0_01 > 1.0' );
+ok( Module::Build->compare_versions( '1.01_01', '>', '1.01' ), 'compare: 1.0_01 > 1.0' );
|
