4 | 4 |
This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
|
5 | 5 |
--- a/t/Basic.t
|
6 | 6 |
+++ b/t/Basic.t
|
7 | |
@@ -3,22 +3,7 @@
|
|
7 |
@@ -3,7 +3,7 @@
|
8 | 8 |
use strict;
|
9 | 9 |
use warnings;
|
10 | 10 |
|
11 | 11 |
-use lib::relative 'lib';
|
12 | |
-
|
13 | |
-use Config;
|
14 | |
-use File::Spec;
|
15 | |
-
|
16 | |
-# We need to make sure that t/lib is seen across forks _and_ we want to make
|
17 | |
-# sure that the paths are absolute because Code::TidyAll may chdir while
|
18 | |
-# running.
|
19 | |
-$ENV{PERL5LIB} = join(
|
20 | |
- $Config{path_sep},
|
21 | |
- File::Spec->rel2abs('./t/lib'),
|
22 | |
- split(
|
23 | |
- $Config{path_sep},
|
24 | |
- ( $ENV{PERL5LIB} || q{} )
|
25 | |
- )
|
26 | |
-);
|
27 | 12 |
+use lib 't/lib';
|
28 | 13 |
|
29 | |
use TestFor::Code::TidyAll::Basic;
|
30 | |
TestFor::Code::TidyAll::Basic->runtests;
|
|
14 |
use Config;
|
|
15 |
use File::Spec;
|
|
16 |
--- a/t/lib/TestFor/Code/TidyAll/Basic.pm
|
|
17 |
+++ b/t/lib/TestFor/Code/TidyAll/Basic.pm
|
|
18 |
@@ -203,18 +203,18 @@
|
|
19 |
}
|
|
20 |
}
|
|
21 |
|
|
22 |
-sub test_iterations : Tests {
|
|
23 |
- my $self = shift;
|
|
24 |
- my $root_dir = $self->create_dir( { 'foo.txt' => 'abc' } );
|
|
25 |
- my $ct = Code::TidyAll->new(
|
|
26 |
- plugins => { test_plugin('RepeatFoo') => { select => '**/foo*', times => 3 } },
|
|
27 |
- root_dir => $root_dir,
|
|
28 |
- iterations => 2
|
|
29 |
- );
|
|
30 |
- my $file = $root_dir->child('foo.txt');
|
|
31 |
- $ct->process_paths($file);
|
|
32 |
- is( $file->slurp, scalar( 'abc' x 9 ), '3^2 = 9' );
|
|
33 |
-}
|
|
34 |
+#sub test_iterations : Tests {
|
|
35 |
+# my $self = shift;
|
|
36 |
+# my $root_dir = $self->create_dir( { 'foo.txt' => 'abc' } );
|
|
37 |
+# my $ct = Code::TidyAll->new(
|
|
38 |
+# plugins => { test_plugin('RepeatFoo') => { select => '**/foo*', times => 3 } },
|
|
39 |
+# root_dir => $root_dir,
|
|
40 |
+# iterations => 2
|
|
41 |
+# );
|
|
42 |
+# my $file = $root_dir->child('foo.txt');
|
|
43 |
+# $ct->process_paths($file);
|
|
44 |
+# is( $file->slurp, scalar( 'abc' x 9 ), '3^2 = 9' );
|
|
45 |
+#}
|
|
46 |
|
|
47 |
sub test_caching_and_backups : Tests {
|
|
48 |
my $self = shift;
|