X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2Fstrictures.git;a=blobdiff_plain;f=t%2Fstrictures.t;h=9a107ed9922cfa7f41c7d2ba85644beb304cf4dd;hp=47cfa20f61455b6e8671d7257eea62bf774ece4b;hb=8c8a0b9a00083cf79d1ee44930ab0b4a1f8beaa9;hpb=abacb15a012489948b584b4bfb6470d2027adfeb

diff --git a/t/strictures.t b/t/strictures.t
index 47cfa20..9a107ed 100644
--- a/t/strictures.t
+++ b/t/strictures.t
@@ -1,4 +1,4 @@
-mkdir('t/smells-of-vcs/.git') or die "Couldn't create fake .git: $!";
+BEGIN { delete $ENV{PERL_STRICTURES_EXTRA} }
 
 use Test::More qw(no_plan);
 
@@ -10,8 +10,10 @@ sub capture_us { push @us, capture_stuff }
 sub capture_expect { push @expect, capture_stuff }
 
 {
+  BEGIN { $ENV{PERL_STRICTURES_EXTRA} = 0 }
   use strictures 1;
   BEGIN { capture_us }
+  BEGIN { delete $ENV{PERL_STRICTURES_EXTRA} }
 }
 
 {
@@ -27,17 +29,8 @@ foreach my $idx (0 .. $#us) {
   is($us[$idx][1], $expect[$idx][1], 'Warnings ok for case '.($idx+1));
 }
 
-{
-  local $0 = 't/00load.t';
-  sub Foo::new { 1 }
-  chdir("t/smells-of-vcs");
-  my $r = eval q{
-    use strictures 1;
-    new Foo 1, 2, 3;
-  };
-  # I don't test $@ here since if indirect isn't installed we hit one
-  # error and if it is we hit another; it's enough the code path's hit.
-  ok(!$r, 'strictures blows up for t/00load.t');
-}
+my $v;
+eval { $v = strictures->VERSION; 1 } or diag $@;
+is $v, $strictures::VERSION, '->VERSION returns version correctly';
 
 ok(!eval q{use strictures 2; 1; }, "Can't use strictures 2 (this is version 1)");