Merge pull request #208 from haskell/test-gen-files

Generate test files in test suite.

Author: athas

.gitignore

@@ -9,3 +9,6 @@ myhist
 
 # IDEs
 .vscode
+
+# Test suite
+tests/dummy-μασ

haskeline.cabal

@@ -35,7 +35,7 @@ tested-with:
   GHC == 8.2.2
   GHC == 8.0.2
 
-extra-source-files: examples/Test.hs Changelog tests/dummy-μασ/bar tests/dummy-μασ/ςερτ
+extra-source-files: examples/Test.hs Changelog
 
 source-repository head
     type: git
@@ -154,6 +154,7 @@ test-suite haskeline-tests
         base         >= 4.9 && < 4.23
       , containers   >= 0.4 && < 0.9
       , bytestring   >= 0.9 && < 0.13
+      , directory
       , process      >= 1.0 && < 1.7
       -- dependencies for test-suite
       , HUnit

tests/Unit.hs

@@ -16,6 +16,7 @@ import Data.Word
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as E
 import Data.Monoid ((<>))
+import System.Directory (createDirectoryIfMissing)
 import System.Exit (exitFailure)
 import System.Process (readProcess)
 import Test.HUnit
@@ -34,6 +35,13 @@ legacyEncoding = False
 whenLegacy :: BC.ByteString -> BC.ByteString
 whenLegacy s = if legacyEncoding then s else B.empty
 
+-- These files are used to test tab completion.
+makeTestFiles :: IO ()
+makeTestFiles = do
+  createDirectoryIfMissing True "tests/dummy-μασ"
+  writeFile "tests/dummy-μασ/bar" ""
+  writeFile "tests/dummy-μασ/ςερτ" ""
+
 main :: IO ()
 main = do
     -- forkProcess needs an absolute path to the binary.
@@ -45,6 +53,7 @@ main = do
                 runInTTY = True,
                 environment = []
             }
+    makeTestFiles
     result <- runTestTT $ test [interactionTests i, fileStyleTests i]
     when (errors result > 0 || failures result > 0) exitFailure