base: Add a test for T10412
authorBen Gamari <bgamari.foss@gmail.com>
Fri, 20 Apr 2018 17:54:04 +0000 (13:54 -0400)
committerBen Gamari <ben@smart-cactus.org>
Fri, 20 Apr 2018 22:04:19 +0000 (18:04 -0400)
Expects the current behavior, will be updated by D4593 to reflect
desired behavior.

Reviewers: hvr

Subscribers: thomie, carter

GHC Trac Issues: #10412

Differential Revision: https://phabricator.haskell.org/D4610

libraries/base/tests/T10412.hs [new file with mode: 0644]
libraries/base/tests/T10412.stdout [new file with mode: 0644]
libraries/base/tests/all.T

diff --git a/libraries/base/tests/T10412.hs b/libraries/base/tests/T10412.hs
new file mode 100644 (file)
index 0000000..9657ef7
--- /dev/null
@@ -0,0 +1,7 @@
+import Data.Char
+
+main :: IO ()
+main = do
+    print $ isMark '\768'
+    print $ isAlphaNum '\768'
+    print $ (isAlpha '\768', isNumber '\768')
diff --git a/libraries/base/tests/T10412.stdout b/libraries/base/tests/T10412.stdout
new file mode 100644 (file)
index 0000000..b243ae6
--- /dev/null
@@ -0,0 +1,3 @@
+True
+True
+(False,False)
index 06c7350..0db147e 100644 (file)
@@ -222,3 +222,4 @@ test('T3474',
       only_ways(['normal'])],
      compile_and_run, ['-O'])
 test('T14425', normal, compile_and_run, [''])
+test('T10412', normal, compile_and_run, [''])