Run tests in lexicographical order.HEADmaster

1 files changed, 2 insertions, 2 deletions

diff --git a/tt.hs b/tt.hs
index e289e88..6f22b76 100755
--- a/tt.hs
+++ b/tt.hs
@@ -6,7 +6,7 @@ import System.Directory ( doesFileExist
                         , doesDirectoryExist
                         , getDirectoryContents
                         )
-import Data.List (intercalate, stripPrefix, isSuffixOf)
+import Data.List (intercalate, stripPrefix, isSuffixOf, sort)
 import Data.Maybe (fromMaybe, listToMaybe, isNothing, fromJust)
 import Control.Applicative ((<$>), (<*>))
 import Control.Monad (when, filterM, forever, replicateM_)
@@ -139,7 +139,7 @@ expand testDir inTree s
         isDirectory <- doesDirectoryExist dir
 
         if isDirectory
-            then (map (s </>) . filter isPython) <$> getDirectoryContents dir
+            then (map (s </>) . sort . filter isPython) <$> getDirectoryContents dir
             else return [s ++ ".py"]
 
 {- Stupid project-specific crap detection -}