Merge pull request #1500 from kadoban/1336-1337-int-tests

unicode integration tests

test/integration/tests/1336-1337-new-package-names/Main.hs

@@ -0,0 +1,20 @@
+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"]
+    stackErr ["new", "444-ば日本-4本"]
+    stack ["new", "ば日本-4本"]
+    stack ["new", "אבהץש"]
+    stack ["new", "ΔΘΩϬ"]
+    doesExist "./ΔΘΩϬ/stack.yaml"
+    doesExist "./ΔΘΩϬ/ΔΘΩϬ.cabal"

test/integration/tests/1337-unicode-everywhere/Main.hs

@@ -0,0 +1,5 @@
+import StackTest
+
+main :: IO ()
+main = do stack ["build"]
+          stack ["exec", "以-exe"]

test/integration/tests/1337-unicode-everywhere/files/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

test/integration/tests/1337-unicode-everywhere/files/app/Main.hs

@@ -0,0 +1,6 @@
+module Main where
+
+import Пσε
+
+main :: IO ()
+main = putStrLn θυπε

test/integration/tests/1337-unicode-everywhere/files/stack.yaml

@@ -0,0 +1,32 @@
+# For more information, see: https://github.com/commercialhaskell/stack/blob/release/doc/yaml_configuration.md
+
+# Specifies the GHC version and set of packages available (e.g., lts-3.5, nightly-2015-09-21, ghc-7.10.2)
+resolver: lts-3.16
+
+# Local packages, usually specified by relative directory name
+packages:
+- '.'
+
+# Packages to be pulled from upstream that are not in the resolver (e.g., acme-missiles-0.3)
+extra-deps: []
+
+# Override default flag values for local packages and extra-deps
+flags: {}
+
+# Extra package databases containing global packages
+extra-package-dbs: []
+
+# Control whether we use the GHC we find on the path
+# system-ghc: true
+
+# Require a specific version of stack, using version ranges
+# require-stack-version: -any # Default
+# require-stack-version: >= 0.1.10.0
+
+# Override the architecture used by stack, especially useful on Windows
+# arch: i386
+# arch: x86_64
+
+# Extra directories used by stack for building
+# extra-include-dirs: [/path/to/dir]
+# extra-lib-dirs: [/path/to/dir]

test/integration/tests/1337-unicode-everywhere/files/ארץ/Пσε.hs

@@ -0,0 +1,6 @@
+module Пσε
+    ( θυπε
+    ) where
+
+θυπε :: String
+θυπε = "以呂波耳本部止"

test/integration/tests/1337-unicode-everywhere/files/いろは-LICENSE

@@ -0,0 +1 @@
+Whatever license. This is a project that only exists for integration testing and all rights are granted to it to whoever wants to do anything with it. It's mostly automatically generated content anyway.

test/integration/tests/1337-unicode-everywhere/files/以.cabal

@@ -0,0 +1,72 @@
+name:                以
+version:             0.1.0.0
+synopsis:            سقوط المدن من ذات.
+description:
+    以呂波耳本部止
+    千利奴流乎和加
+    餘多連曽津祢那
+    良牟有為能於久
+    耶万計不己衣天
+    阿佐伎喩女美之
+    恵比毛勢須
+
+    いろはにほへと
+    ちりぬるを
+    わかよたれそ
+    つねならむ
+    うゐのおくやま
+    けふこえて
+    あさきゆめみし
+    ゑひもせす
+
+    永
+
+    The quick brown fox jumps over the lazy dog
+
+    Victor jagt zwölf Boxkämpfer quer über den großen Sylter Deich
+
+    Δάματρα μέλπω Κόραν τε Κλυμένοι᾽ ἄλοχον
+    μελιβόαν ὕμνον ἀναγνέων
+    Αἰολίδ᾽ ἂμ βαρύβρομον ἁρμονίαν
+
+    Ед эож алььтэрюм витюпэраторебуз, фалля пожйдонёюм нэ квуй. Зюаз атоморюм эю вэл, экз агам магна жкряпшэрит нам. Примич вокынт дэлььякатезшимя эа мэль, ыам факэтэ пытынтёюм волуптатум ку. Квуым квюаэчтио йн пэр, дольор форынчйбюж ут еюж. Эжт нонюмэш янвыняры эю.
+
+    Υθ φιμ λιβερ δισερετ κυαεστιο. Νε δυο σονγυε φιθυπερατοριβυς, θε φις αθκυι σενσεριτ δεφινιεβας, μολλις θαμκυαμ ηας εα. Ιν φιμ εραντ μυσιυς, αλιι δισαντ σομμοδο νο συμ. Πρι αμετ πορρω σονσεκυυντυρ ατ. Ιδ σεα ηομερω αδιπισι, ομνεσκυε επισυρει ετ μελ, σεα αφφερθ σωνσεκυαθ θε.
+
+    नीचे खरिदे समस्याओ व्रुद्धि सुना शीघ्र व्याख्या निरपेक्ष शुरुआत असरकारक अविरोधता खरिदे मेमत उसीएक् असरकारक आंतरकार्यक्षमता केवल करता। असक्षम सामूहिक विवरण हीकम सुनत सदस्य खरिदने उदेशीत
+
+    引全堀記物質行上初野年謝止質警細物競。委目態政業諸好岡積米真香冒班分団時大一夏。帝同手怠問来視旧記次禁身妨性直権員。州駅都稿頂風著報計個勢意時言進整。作敗約秘都並断旬検面事真区。則局世紙文般百校車社金名室権金練危。水夫動間始旅円典中所場針仁暮中。書稿準提選別推五玲常能船岡味。詩聞誌寧真身性業遠国無軽春臨個鳥相契断者。
+
+    紙ウ主転ね加必キト聴4水そない岩者づど会前ラシ総過権ぜ聞快にクげそ庫辺はぴず意掲ひに真価トしざが。体ろ名録ふいに公問築ムミ数基ー原多ぞぎすど済進ハレ見況ヤラエロ館刊キイ構読増禎ヨモメ提信最フ済席ワモキル弘28思弾5健はーろ提館ぱっるけ社除左てがひ。全てれ理時渉ン勝境チ測試ヌエマラ年9億ち込全クテヒカ土止びぎこぐ署進アカモヌ同賞誕傾吹敏こ。
+
+    سقوط المدن من ذات. ٠٨٠٤ تعديل إبّان عن هذه, لمّ في هامش الدمج. فرنسية الجنوب ولكسمبورغ حتى أم, مع بحث لكون الشمل استطاعوا, فعل بلاده انتهت تم. كما مع واحدة الخاسر, أخذ وإعلان الشمال رجوعهم أن. تعد تم بشكل مشارف الشرقي, هو مئات مهمّات أخذ.
+
+    בקר את הארץ מיתולוגיה. ובמתן העזרה דת מלא, שמו זקוק לחיבור אגרונומיה על. אל זכר התוכן מונחונים ארכיאולוגיה, ויש קצרמרים פסיכולוגיה אל. כתב אם בארגז אחרונים וכמקובל. ספינות ומדעים האטמוספירה ויש מה, צ'ט משחקים הקהילה ארכיאולוגיה על. אל כימיה המדינה סדר, זכר של שמות להפוך, ייִדיש לעריכת דת ויש.
+
+    😀😁😂😃😄😅😆😇😈😉😊😋😌😍😎😏
+    ➀➁➂➃➄➅➆➇➈➉
+    ♀♁♂♃♄♅♆♇♈♉♊♋♌♍♎♏
+    💩
+homepage:            http://invalid/以#readme
+license:             BSD3
+license-file:        いろは-LICENSE
+author:              Fake 💩💩💩💩💩 Name
+maintainer:          以呂波耳本部止@invalid
+copyright:           BSD3
+category:            Δσαντ
+build-type:          Simple
+cabal-version:       >=1.10
+
+library
+  hs-source-dirs:      ארץ
+  exposed-modules:     Пσε
+  build-depends:       base >= 4.7 && < 5
+  default-language:    Haskell2010
+
+executable 以-exe
+  hs-source-dirs:      app
+  main-is:             Main.hs
+  ghc-options:         -threaded -rtsopts -with-rtsopts=-N
+  build-depends:       base
+                     , 以
+  default-language:    Haskell2010