From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 8 Feb 2009 19:20:07 +0000 (-0600)
Subject: Skip tests for flattened extensions that weren't built.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6ebb0601826917b6ce1b97a2bdd6577110416c64;p=p5sagit%2Fp5-mst-13.2.git

Skip tests for flattened extensions that weren't built.

Foo/Bar may live under ext/Foo-Bar, but if we didn't build it, we
still need to skip its tests.
---

diff --git a/t/TEST b/t/TEST
index 1fdcb12..655b3e5 100755
--- a/t/TEST
+++ b/t/TEST
@@ -151,6 +151,9 @@ unless (@ARGV) {
 			$extension =~ s!/t$!!;
 			# XXX Do I want to warn that I'm skipping these?
 			next if $skip{$extension};
+			$flat_extension = $extension;
+			$flat_extension =~ s!-!/!g;
+			next if $skip{$flat_extension}; # Foo/Bar may live in Foo-Bar
 		    }
 		    my $path = File::Spec->catfile($updir, $t);
 		    push @ARGV, $path;