[Module-build-checkins] Module-Build/t files.t,1.4,1.5 notes.t,1.10,1.11 tilde.t,1.7,1.8
Status: Beta
Brought to you by:
kwilliams
|
From: Randy W. S. <si...@us...> - 2005-06-23 08:45:13
|
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 = @_; |