[Git][ghc/ghc][wip/js-mkdir] mkdir: add test

[Josh Meredith (@JoshMeredith)]

Josh Meredith pushed to branch wip/js-mkdir at Glasgow Haskell Compiler / GHC


Commits:
7d4d3c30 by Josh Meredith at 2023-04-19T16:49:51+00:00
mkdir: add test

- - - - -


2 changed files:

- libraries/base/tests/IO/all.T
- + libraries/base/tests/IO/mkDirExists.hs


Changes:

=====================================
libraries/base/tests/IO/all.T
=====================================
@@ -152,3 +152,5 @@ test('T17510', expect_broken(17510), compile_and_run, [''])
 test('bytestringread001', extra_run_opts('test.data'), compile_and_run, [''])
 test('T17912', [only_ways(['threaded1']), when(opsys('mingw32'),expect_broken(1))], compile_and_run, [''])
 test('T18832', only_ways(['threaded1']), compile_and_run, [''])
+
+test('mkDirExists', normal, compile_and_run, [''])


=====================================
libraries/base/tests/IO/mkDirExists.hs
=====================================
@@ -0,0 +1,8 @@
+module Main where
+
+import System.Directory
+
+main :: IO ()
+main = do
+  createDirectory "foo"
+  createDirectory "foo"



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/7d4d3c308c5495b9dfa7bdf0f803d6290687f3b5

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/7d4d3c308c5495b9dfa7bdf0f803d6290687f3b5
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20230419/7be46729/attachment-0001.html>