Checking in changes prior to tagging of version 0.6. Changelog diff is:

[catagits/Test-NoTabs.git] / t / 12-fail.t

diff --git a/t/12-fail.t b/t/12-fail.t
index 731b76a..21daa75 100644 (file)
--- a/t/12-fail.t
+++ b/t/12-fail.t
@@ -1,8 +1,6 @@
 use strict;
 
-use Test::More no_plan => 1;
-
-use Test::Group;
+use Test::More qw(no_plan);
 
 use File::Temp qw( tempdir tempfile );
 
@@ -10,32 +8,32 @@ my $perl  = $^X || 'perl';
 my $inc = join(' -I ', @INC) || '';
 $inc = "-I $inc" if $inc;
 
-test 'bad file 1' => sub {
+{
     my $dir = make_bad_file_1();
     my ($fh, $outfile) = tempfile();
     ok( `$perl $inc -MTest::NoTabs -e "all_perl_files_ok( '$dir' )" 2>&1 > $outfile` );
     local $/ = undef;
     my $content = <$fh>;
-    like( $content, qr/^not ok 1 - Found tabs in '[^']*' on line 4/m, 'tabs found in tmp file' );
-};
+    like( $content, qr/^not ok 1 - Found tabs in '[^']*' on line 4/m, 'tabs found in tmp file 1' );
+}
 
-test 'bad file 2' => sub {
+{
     my $dir = make_bad_file_2();
     my ($fh, $outfile) = tempfile();
     ok( `$perl $inc -MTest::NoTabs -e "all_perl_files_ok( '$dir' )" 2>&1 > $outfile` );
     local $/ = undef;
     my $content = <$fh>;
-    like( $content, qr/^not ok 1 - Found tabs in '[^']*' on line 12/m, 'tabs found in tmp file' );
-};
+    like( $content, qr/^not ok 1 - Found tabs in '[^']*' on line 12/m, 'tabs found in tmp file2 ' );
+}
 
-test 'bad file 3' => sub {
+{
     my $file = make_bad_file_3();
     my ($fh, $outfile) = tempfile();
     ok( `$perl $inc -MTest::NoTabs -e "all_perl_files_ok( '$file' )" 2>&1 > $outfile` );
     local $/ = undef;
     my $content = <$fh>;
-    like( $content, qr/^not ok 1 - Found tabs in '[^']*' on line 6/m, 'tabs found in tmp file' );
-};
+    like( $content, qr/^not ok 1 - Found tabs in '[^']*' on line 6/m, 'tabs found in tmp file 3' );
+}
 
 sub make_bad_file_1 {
   my $tmpdir = tempdir();