From: Dave Rolsky <autarch@urth.org>
Date: Wed, 18 Feb 2009 20:21:41 +0000 (+0000)
Subject: Don't delete tests we didn't create
X-Git-Tag: 0.71~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=968c648e21a46189d1e5614bc5befecb6f4a8eab;p=gitmo%2FMoose.git

Don't delete tests we didn't create
---

diff --git a/extract-inline-tests b/extract-inline-tests
index a710ec1..d91fa43 100755
--- a/extract-inline-tests
+++ b/extract-inline-tests
@@ -83,7 +83,7 @@ use Test::Inline;
 
 my $target = 't/000_recipes';
 
-for my $t_file ( File::Find::Rule->file->name(qr/\.t$/)->in($target) ) {
+for my $t_file ( File::Find::Rule->file->name(qr/^moose_cookbook_\.t$/)->in($target) ) {
     unlink $t_file or die "Cannot unlink $t_file: $!";
 }