test for 'stack new' creating projects with valid and bogus names

related to (closed) issue commercialhaskell#1336
kadoban · Dec 12, 2015 · 79646fe · 79646fe
1 parent 68ef027
commit 79646fe
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/test/integration/tests/1336-new-package-names/Main.hs b/test/integration/tests/1336-new-package-names/Main.hs
@@ -0,0 +1,14 @@
+import StackTest
+import System.Directory
+import System.FilePath
+
+main :: IO ()
+main = do
+    stack ["new", "1234a-4b-b4-abc-12b34"]
+    doesExist "./1234a-4b-b4-abc-12b34/stack.yaml"
+    stackErr ["new", "1234-abc"]
+    doesNotExist "./1234-abc/stack.yaml"
+    doesNotExist "./1234-abc"
+    stackErr ["new", "1-abc"]
+    stackErr ["new", "44444444444444"]
+    stackErr ["new", "abc-1"]