From 50294c15196f98e4d2ed90473b074d2fc1c6dd12 Mon Sep 17 00:00:00 2001
From: Mark Harrah <dmharrah@gmail.com>
Date: Tue, 24 May 2011 23:54:49 -0400
Subject: [PATCH] support wildcards in test-only

---
 main/Defaults.scala | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/main/Defaults.scala b/main/Defaults.scala
index d2a0f6e19..b0489e42f 100644
--- a/main/Defaults.scala
+++ b/main/Defaults.scala
@@ -444,13 +444,22 @@ object Defaults extends BuildCommon
 	def testOnlyParser: (State, Seq[String]) => Parser[(Seq[String],Seq[String])] =
 	{ (state, tests) =>
 			import DefaultParsers._
-		def distinctParser(exs: Set[String]): Parser[Seq[String]] =
-			(token(Space) ~> token((NotSpace - "--") examples exs) ).flatMap(ex => distinctParser(exs - ex).map(ex +: _)) ?? Nil
-		val selectTests = distinctParser(tests.toSet) // todo: proper IDs
+		val selectTests = distinctParser(tests.toSet)
 		val options = (token(Space) ~> token("--") ~> spaceDelimited("<option>")) ?? Nil
 		selectTests ~ options
 	}
 
+	def distinctParser(exs: Set[String]): Parser[Seq[String]] =
+	{
+			import DefaultParsers._
+		val base = token(Space) ~> token(NotSpace - "--" examples exs)
+		val recurse = base flatMap { ex =>
+			val (matching, notMatching) = exs.partition( GlobFilter(ex).accept _ )
+			distinctParser(notMatching).map(matching.toSeq ++ _)
+		}
+		recurse ?? Nil
+	}
+
 	def inAllDependencies[T](base: ProjectRef, key: ScopedSetting[T], structure: Load.BuildStructure): Seq[T] =
 	{
 		def deps(ref: ProjectRef): Seq[ProjectRef] =