[Module-build-checkins] Module-Build/t files.t,1.4,1.5 notes.t,1.10,1.11 tilde.t,1.7,1.8

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

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 = @_;