Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20175/t
Modified Files:
files.t notes.t tilde.t
Log Message:
Rearrange init code for consistency.
Index: files.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/files.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- files.t 23 Jun 2005 07:55:52 -0000 1.4
+++ files.t 23 Jun 2005 08:44:47 -0000 1.5
@@ -1,11 +1,9 @@
+#!/usr/bin/perl -w
+
use lib 't/lib';
use strict;
-use Test::More tests => 6;
-
-
-use File::Spec;
-use IO::File;
+use Test::More tests => 5;
use Cwd ();
@@ -18,9 +16,11 @@
chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!";
-use Module::Build;
-ok(1);
+use File::Spec;
+use IO::File;
+
+use Module::Build;
my $m = Module::Build->new_from_context;
my @files;
Index: notes.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/notes.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- notes.t 23 Jun 2005 08:20:22 -0000 1.10
+++ notes.t 23 Jun 2005 08:44:47 -0000 1.11
@@ -1,7 +1,10 @@
+#!/usr/bin/perl -w
+
use lib 't/lib';
use strict;
-use Test::More tests => 9;
+use Test::More tests => 8;
+
use Cwd ();
my $cwd = Cwd::cwd;
@@ -12,8 +15,8 @@
chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!";
+
use Module::Build;
-ok(1);
###################################
$dist->change_file( 'Build.PL', <<"---" );
Index: tilde.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/tilde.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- tilde.t 23 Jun 2005 07:30:17 -0000 1.7
+++ tilde.t 23 Jun 2005 08:44:48 -0000 1.8
@@ -5,13 +5,13 @@
use lib 't/lib';
use strict;
+use Test::More tests => 10;
+
+
use File::Spec ();
my $common_pl = File::Spec->catfile( 't', 'common.pl' );
require $common_pl;
-use Test::More tests => 10;
-
-use Module::Build;
use Cwd ();
my $cwd = Cwd::cwd;
@@ -22,6 +22,9 @@
chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!";
+
+use Module::Build;
+
sub run_sample {
my @args = @_;
|
